XL 2013 Effectuer une enregistrer sous pour passer de xlsx à xlsm puis exécuter une macro en ouvrant le fichier xlsm à l'aide de VBA

maintroto

XLDnaute Nouveau
Bonjour a tous,
J'effectue une sauvegarde tous les jours d'un fichier A.xlsx , je voulais faire une sauvegarde en A. xlsm puis ouvrir ce fichier A.xlsm et lancer des macros à l'ouverture, jusque la pas de soucis,mais celles ci sont systématiquement effacées des que je fais mon enregister sous, ce qui semble logique puisque le fichier A.xlsm est ecrasé chaque jour. Pour info le fichier A.xlsx, fait 34 colonnes par 7000 lignes donc une copie avec liaison ne fonctionne pas.
Je pense que cela est impossible par cette voie.
Pouvez vous me le confirmer.
Merci a tous
Nico
 

maintroto

XLDnaute Nouveau
Bonjour PIerrejean,
Avec cette petite macro:
VB:
Sub saveas()
     Workbooks.Open Filename:= _
    "C:\Users\NICOLAS\Desktop\Bd\A.xlsx"
    ActiveWorkbook.RefreshAll
    Application.DisplayAlerts = False
    ActiveWorkbook.saveas "C:\Users\NICOLAS\Desktop\Bd\A", FileFormat:=xlOpenXMLWorkbookMacroEnabled
    ActiveWorkbook.Close
   

End Sub
merci
Nico
 
Dernière édition:

Haut Bas