Changer extension fichier lors de la création

fleet21

XLDnaute Junior
Bonjour à tous,

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

VB:
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.
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
315 097
Messages
2 116 186
Membres
112 679
dernier inscrit
Yupanki