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]

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

 

[pierrejean]

Bonjour Nico
comment fais-tu l'enregistrement en A.xlsm ??

 

[maintroto]

Bonjour PIerrejean,
Avec cette petite macro:

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