Enregistrer modèle en format Xslm

Bonjour,

Voici mon problème :

J'ai un fichier Excel que les utilisateurs ouvrent en format modèle. Une fois quelques informations renseignées, ils sont invités à enregistrer (enregistrer-sous) leur fichier par le biais d'un bouton, pour ensuite travailler sur leur fichier, enregistré avec le nom comportant leurs informations et une chemin d'accès renseignés précédemment.

Voici le code que j'ai écrit mais qui ne fonctionne pas.

 Sub Command_XLSM()
    Dim extension As String
    Dim chemin As String
    Dim nomfichier As String

    extension = ".xlsm"
    chemin = Sheets("SPS").Range("H5").Value
    nomfichier = Range("S7") & "-" & Range("M8") & "-" & "Analyse SPS" & "-" & Range("E3") & "-" & Format(Date, "dd-mm-yyyy") & extension

    With ThisWorkbook

        .SaveAs Filename:=chemin & nomfichier, FileFormat:=xlOpenXMLTemplateMacroEnabled, CreateBackup:=False

    End With

    End Sub

le message d'erreur suivant apparait :

"Erreur d'exécution 1004 : Impossible d'utiliser cette extension avec le type de fichier Sélectionné. Modifiez l'extension du fichier dans la zone de texte Nom du fichier ou sélectionnez un autre type de fichier dans la zone type de fichier."

Merci pour votre aide,

BOB

Bonjour,

XLSM n'est pas un modèle de classeur contenant des macros, d'où l'incompatibilité.

Votre fichier serait plutôt un fichier avec macro :

Sub Command_XLSM()
Dim chemin As String
Dim nomfichier As String
chemin = Sheets("SPS").Range("H5").Value
nomfichier = Range("S7") & "-" & Range("M8") & "-" & "Analyse SPS" & "-" & Range("E3") & "-" & Format(Date, "dd-mm-yyyy")
With ThisWorkbook
    .SaveAs Filename:=chemin & nomfichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled
End With
End Sub

Ou si vous souhaitez un modèle

Sub Command_XLSM()
Dim chemin As String
Dim nomfichier As String
chemin = Sheets("SPS").Range("H5").Value
nomfichier = Range("S7") & "-" & Range("M8") & "-" & "Analyse SPS" & "-" & Range("E3") & "-" & Format(Date, "dd-mm-yyyy")
With ThisWorkbook
    .SaveAs Filename:=chemin & nomfichier, FileFormat:=xlOpenXMLTemplateMacroEnabled
End With
End Sub

L'extension n'est pas nécessaire dès lors que le format d'enregistrement est spécifié.

Cdlt,

Bonjour,

Cela fonctionne parfaitement ! Merci beaucoup de votre aide.

BOB