XL 2016 Macro qui s'exécute dans le fichier copié sous un autre répertoire

[Zazouha95]

Bonjour,

J'ai, dans un fichier toto.xlm la macro suivante :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.SaveCopyAs Filename:= _
"Z:\chemin\TOTO.xlsx"
End Sub

Je pensais que de forcer un enregistrement en .xlsx permettait que les macros ne s'exécutent pas sur la copie du fichier. Je me trompe, cette macro s'exécute toujours. Comment enregistrer une copie du fichier sans cette macro, du coup ? Car en effet, la macro s'exécutant, le fichier tente de s'enregistrer sur lui même...

Merci pour votre aide !

 

[chris]

Bonjour

L'extension d'un fichier ne change pas son type

Il faut préciser
FileFormat:= xlOpenXMLWorkbook

 

[Zazouha95]

Merci. Pouvez-vous me dire comment je l'intègre dans ma macro, car ceci ne fonctionne pas :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.SaveCopyAs Filename:= _
"Z:\chemin\TOTO.xlsx"
FileFormat:= xlOpenXMLWorkbook
End Sub