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

Réponses
5
Affichages
258
Réponses
2
Affichages
295

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T