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.
 

fleet21

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

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas