XL 2019 Enregistrer au format .xlsm

[thibaut93800]

Bonsoir,

Je cherche à utiliser mon bouton 1 pour éditer un fichier au format .xlsm
Lorsque j'utilise mon fichier cela fonctionne.

Sub Enregistre()
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\Tsixte\Desktop\TEST\" & Sheets("PM").Range("B3") & ".xlsm"
End Sub

Mais pour éviter les erreurs au taf, je dois utiliser un fichier en type modèle.
Donc j'ai créé un modèle excel avec prise en charge macro mais maintenant lorsque j'appuie sur le "bouton 1", la macro présente une erreur.

Quelqu'un aurait'il une idée?

Merci

 

[Gégé-45550]

Bonjour,

ActiveWorkbook.SaveAs Filename:= _
"C:\Users\Tsixte\Desktop\TEST\" & Sheets("PM").Range("B3") & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

 

[GALOUGALOU]

bonjour le fil
a supposer que au travail le chemin ne soit pas le même, il serait judicieux d'enregistrer le classeur dans le dossier source
a essayer

Sub Enregistre()

ActiveWorkbook.SaveAs Filename:= _
 ThisWorkbook.Path & " \ " & Sheets("PM").Range("B3") & ".xlsm"
End Sub

cordialement
galougalou