Changer extension fichier lors de la création

[fleet21]

Bonjour à tous,

Je voudrais modifier l'extension d'un fichier créé xlsx en xlsm pour qu'il puisse prendre en charge les macros.

Option Explicit
Dim var As String
Chm = "C:\Users\Poste_1\Desktop\"
ActiveWorkbook.SaveAs Filename:=Chm & var & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False 'fonctionne mais ne prends pas en charge les macros
'ActiveWorkbook.SaveAs Filename:=Chm & var & ".xlsm", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False ne fonctionne pas

Voici le message d'erreur généré par la ligne mise en commentaire :
Erreur d'execution 1004
Impossible d'utiliser cette extension avec le type de fichier sélectionné. Modifier l'extension du fichier dans la zone de texte nom du fichier ou sélectionner un autre type de fichier dans la zone type de fichier.

 

[Dranreb]

Bonjour.
Essayez en précisant FileFormat:=xlOpenXMLWorkbookMacroEnabled

 

[fleet21]

Je n'ai qu'un seul mot à dire : EXCELLENT !!!
Merci Dranreb

 

[fleet21]

Par contre je ne trouve plus comment mettre les sujets en résolu