VBA - Saveas ne fonctionne pas ?

Bonjour à tous,

Voici mon problème. En XL-2003, je propose une mise à jour auto (via réseau) d'une macro complémentaire.
Pour se faire, le principe est de faire un "enregistrer sous" vers un autre nom de la macro courante, puis de copier la nouvelle version dans le dossier addin du poste en local (pour remplacer la version courante)
Pour se faire, voici le code (qui fonctionne très bien en XL-2003) :

Code:

---

1 2 3

Kill "ma_macro(old).xlam" ThisWorkbook.SaveAs "ma_macro(old).xlam", FileFormat:=xlOpenXMLAddIn ' <-- la macro courante change de nom en XL-2003 FileCopy NetworkPath & "ma_macro.xlam", Macro.FullName

---

Le problème en XL-2007, c'est qu'à l'execution du saveas, la macro courante ne change pas de nom et du coup, l'instruction FileCopy génère une erreur (70) puisque le fichier est utilisé par Excel....

Comment puis je contourner ce problème ?

Merci par avance.

Salut,

J'ai été confronté au même problème que toi, et j'ai trouvé la solution:
remplace xlOpenXMLAddIn par xlOpenXMLWorkbookMacroEnabled.
Avec cette option, la fonction SaveAs fonctionne correctement, c'est-à-dire que ta macro en cours d'exécution est bien renommée, ce qui te permet de créer un nouveau fichier ayant le nom initial de ton add-in. Et lors du prochain lancement d'Excel, le nouvel add-in est exécuté, ne reste plus qu'à effacer ma_macro(old)...