> 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
51,99 €Office 365 Famille - 6 utilisateurs - Abonnement 1 an à 51,99 €
Valable jusqu'au 22 Mai

Amazon fait une promotion sur Office 365 Famille qui passe ainsi à 51,99 €, en téléchargement légal alors qu'on le trouve habituellement à 99 €. Vous pourrez télécharger et installer les dernières versions d'Outlook, Word, Excel, PowerPoint et OneNote sur 6 PC, Mac ou tablettes (iOS ou Android) pendant 1 an. Vous bénéficierez également d'un espace de stockage en ligne sur OneDrive de 1 To pour chaque utilisateur (6x1 To). Le code de téléchargement vous sera envoyé par email.


> Voir l'offre
95,98 €SSD Interne M.2 NVMe Samsung 980 1 To (3500 Mo/s) à 95,98 €
Valable jusqu'au 22 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
247,46 €Casque sans fil à réduction de bruit Sony WH-1000XM4 (Hi-Res Audio, Bluetooth/NFC) à 247,46 € livré
Valable jusqu'au 23 Mai

Amazon Italie propose actuellement l'excellent casque sans fil à réduction de bruit et Hi-Res Audio Sony WH-1000XM4 à 241,76 € (avec la TVA ajustée). Comptez 5,70 € pour la livraison en France soit un total de 247,46 € livré. On le trouve ailleurs à partir de 291 €. Equipé de l'annulation de bruit active, d'une connexion sans fil Bluetooth et NFC, d'un confort supérieur et d'une autonomie longue durée (30 heures), ce modèle vous accompagnera idéalement dans tous vos déplacements. Profitez d'une qualité acoustique Hi-Res Audio, de commandes tactiles intuitives et des assistants vocaux intégrés. Laissez-vous transporter au coeur des émotions de vos morceaux préférés et révolutionnez votre manière d'écouter la musique.


> Voir l'offre

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