> 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
259,00 €PC Ankermann (Intel Pentium Dual Core, 8Go RAM, SSD 480Go, Win 10 Pro + Office 365) à 259 € livré
Valable jusqu'au 23 Mai

Amazon fait une promotion sur l'ordinateur de bureau Ankermann Silent PC Work à 259 € livré. Le PC est équipé d'un processeur Intel Pentium dual core à 2.7 GHz, de 8 Go de RAM, d'un SSD de 480 Go, d'un disque dur de 500 Go, d'un lecteur DVD, d'un lecteur de carte mémoires et tourne sous Windows 10 Pro 64 bits FR. Un abonnement d'un an à Microsoft Office 365 est également fourni.

Ajoutez un écran et un pack clavier souris et vous avez un PC complet à l'aise en bureautique et Internet. Garantie 2 ans.


> Voir l'offre
15,99 €Switch Gigabit Netgear GS308 8 ports à 15,99 €
Valable jusqu'au 21 Mai

Amazon fait une vente flash sur l'excellent switch Netgear GS308 Gigabit 8 ports 10/100/1000 qu'il propose à 15,99 € alors qu'on le trouve ailleurs à partir de 27,99 €.


> Voir l'offre
95,98 €SSD Interne M.2 NVMe Samsung 980 1 To (3500 Mo/s) à 95,98 €
Valable jusqu'au 21 Mai

Amazon fait une promotion sur le SSD Interne M.2 NVMe PCIe 3.0 Samsung 980 1 To qui passe à 95,98 €. On le trouve ailleurs à partir de 120 €. Ce SSD offre des taux de transfert de 3500 Mo/s. Une bonne affaire.


> Voir l'offre

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