> Tous les forums > Forum Bureautique
 Macro Excel 2007
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
SKIPBO
  Posté le 14/12/2017 @ 16:58 
Aller en bas de la page 
Petit astucien

Bonjour.
J'ai un fichier EXCEl 2007, sur ce fichier j'ai fais une petite macro (commandée par un bouton) pour faire une sauvegarde quelque part sur mon disque. Cela fonctionne très bien, depuis longtemps.

Dans le même temps je voudrais une deuxième macro pour sauvegarder ce fichier, (ou un autre) sur un support USB, je fais bien cette macro qui fonctionne parfaitement, j'enregistre le tout, et je ferme le fichier.

Lorsque je reviens sur mon fichier, la dernière macro a disparue.

J'ai fais plusieurs fois la manip et c'est toujour pareil!

Que c'est il passé , peut être dans les paramètres d'excel. J'ai d'autres fichiers avec beaucoup de macros qui fonctionnent très bien.

Je vous remercie.

SKIPBO

onfiguration automatique à compléter]

Windows 7
Chrome 63.0.3239.84

Publicité
Magnan
 Posté le 15/12/2017 à 06:11 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

Sans voir ta macro ... difficile de répondre.

Il faudrait à minima donner le code VB ou joindre un fichier pour que la réponse soit concrété et efficace.

A+

SKIPBO
 Posté le 15/12/2017 à 06:55 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour.

Merci pour la réponse.

Ci-joint la macro, qui fonctionne très bien, mais qui disparaît lorsque j'enregistre mon fichier et que je le ferme.

SKIPBO

Sub Sauvegardeusb()

'' Sauvegardeusb Macro

'

ChDir "E:\"

ActiveWorkbook.SaveAs Filename:="E:\CAPTUR 2015.xlsm", FileFormat:= _

xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

End Sub

SKIPBO
 Posté le 16/12/2017 à 07:06 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour.

Je suis toujour à chercher pourquoi chaque fois que j'enregistre une macro, elle disparaît quand je ferme le fichier?

Peut être quelque paramètre dans EXCEL?

Je compte sur une aide charitable.

Merci.

SKIPBO

dlxpat
 Posté le 16/12/2017 à 07:36 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour, moi j'ai celle-ci qui marche très très bien !

Sub auto_close()

Dim Chemin As String, Fichier As String

' changer le nom du chemin en fonction du besoin

Chemin = "f:\compte\"

Fichier = "exemple_macro" & ".xlsm"

ActiveWorkbook.SaveCopyAs Chemin & Fichier

End Sub

SKIPBO
 Posté le 16/12/2017 à 08:31 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour dlxpat.

Merci pour ta proposition de macro, elle fonctionne très bien, ainsi que la mienne.

Mon problème c'est que à l'enregistrement du fichier, elles disparaissent , du module, aussi bien la tienne que la mienne.

J'ai beaucoup d'autres macros dans mes fichiers depuis longtemps, qui fonctionnent très bien.

Depuis quelques temps je ne peut plus enregistrer de macros sur n'importe quel fichier, celles ci disparaissent à l'enregistrement.

Je pense que cela doit venir de quelque paramètre d'Excel, mais......Lesquels?

En attendant d'autres réponses,

Merci.

SKIPBO

dlxpat
 Posté le 16/12/2017 à 08:44 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Là j'avoue ne pas pouvoir répondre ! Désolé

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
139,99 €Outil 3 en 1 Coupe-bordure/Tondeuse/Dresse-bordure sans fil Black + Decker à 139,99 €
Valable jusqu'au 26 Mai

Amazon fait une belle promotion sur l'outil 3 en 1 Black + Decker STC1825CM qui passe à 139,99 € livré gratuitement. On le trouve ailleurs à partir de 169 €. Cet outil sans fil avec une batterie de 18V 2,5 Ah regroupe un coupe-bordure, une tondeuse 30 cm et un dresse-bordure.


> Voir l'offre
176,90 €Disque dur externe Western Digital Elements Desktop USB 3.0 10 To à 176,90 € livré
Valable jusqu'au 26 Mai

Amazon Allemagne propose actuellement le disque dur externe Western Digital Elements Desktop USB 3.0 10 To à 170,42 € (avec la TVA ajustée). Comptez 6,48 € pour la livraison en France soit un total de 176,90 € livré. On le trouve ailleurs à partir de 200 €. Ce disque dur dispose d'un grande capacité de stockage (10 To) et d'une connectique USB 3.0 qui vous offrira des transferts rapides. Il est compatible USB 2.0. Une très bonne affaire. Notez que le disque dur n'est pas soudé et que vous pouvez le récupérer pour l'utiliser dans un ordinateur ou un NAS (il s'agit d'un disque dur CMR UltraStar DC HC 510).

Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de douane. Si vous êtes perdu en allemand, vous pouvez traduire le site en anglais.


> Voir l'offre
239,99 €Solution Wifi 6 Mesh Netgear Orbi Pro Mini SXK30 (AX1800, couverture jusqu'à 375 m²) à 239,99 €
Valable jusqu'au 26 Mai

Amazon fait une belle promotion sur le Kit Wifi 6 Mesh Netgear Orbi Pro Mini SXK30B3 qui passe à 239,99  alors qu'on le trouve ailleurs à partir de 337 €. Avec Orbi, vous bénéficiez d’un Wifi étendu n’importe où chez vous sans perte de connexion. Ce Kit Orbi avec un routeur à brancher sur votre box et deux satellites vous permettra de couvrir jusqu’à 375 m² grâce à son Wifi 6 AX1800. 

Profitez d’un streaming simultané et sans interruptions de films, jeux, appels vidéo ou téléchargez/transférez des fichiers à une vitesse Wifi de 1,8 Gbit/s.

Vos équipements (jusqu'à 40) peuvent se déplacer entre les différents modules Orbi sans avoir à se reconnecter.

Toute la surface de votre maison sera couverte par un réseau ultra rapide, vous offrant ainsi des performances Wifi inégalées partout où vous allez. Vous avez besoin d’une couverture supérieure ? Il vous suffit d’ajouter un satellite Orbi pour étendre instantanément votre couverture Wifi.


> Voir l'offre

Sujets relatifs
Aucun sujet pertinent lié trouvé
 > Tous les forums > Forum Bureautique