Autres Enregistrement d'un classeur issu d'un modèle contenant des macros

[JLuc69nc]

Bonjour le groupe,

Excel, quelque soit la version : fichier utilisé dans différents clubs

J'essaie de modifier un modèle de document Excel (*.xltm) et de faire un enregistrement sous après saisie de valeurs via un formulaire affiché sur le "Workbook.open"
Plus d'explications ainsi que des captures d'écran sont présentes dans le fichier PDF en pièce jointe.

Je suis ouvert à toute proposition pour pouvoir enregistrer en gardant les macros (je ne comprends pas pourquoi ça ne marche plus).

Merci à tous

 

[Lolote83]

Bonjour,
Comme tu dis :

Je suis ouvert à toute proposition pour pouvoir enregistrer en gardant les macros

Si effectivement tu souhaites enregistrer ton classeur en gardant les macros, il faut choisir XLSM et non XLSX
Un fichier XLSX est un fichier sans macro

un exemple de code pour enregistrer en conservant les macros (chemin et nom de fichier à adapter)

Sub EnregistrerSousXLSM()
    ActiveWorkbook.SaveAs Filename:="C:\Users\Toto\Documents\Test.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

@+ Lolote83

 

[JLuc69nc]

En conservant le code d'origine, j'ai modifié comme ceci :

NomFichier = etape & " " & disc & " " & cat & " " & clubAbrege & ".xlsm"
NomChoisi = Application.GetSaveAsFilename(NomFichier, fileFilter:="Excel Files (*.xlsm), *.xlsm")

If NomChoisi <> False Then
    ThisWorkbook.SaveAs (NomChoisi)
Else
    MsgBox "enregistrement annulé"
End If
Unload Me

A l'enregistrement, j'ai :

Et à la sortie, j'obtiens :

J'avoue que je ne comprends pas tout :/

 

[Lolote83]

Re bonjour
Regarde bien la syntaxe pour enregistrer en XLSM

ActiveWorkbook.SaveAs Filename:="C:\Users\Toto\Documents\Test.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Peut être faut il modifier ton code en se sens

NomFichier = etape & " " & disc & " " & cat & " " & clubAbrege & ".xlsm"
NomChoisi = Application.GetSaveAsFilename(NomFichier, fileFilter:="Excel Files (*.xlsm), *.xlsm")

If NomChoisi <> False Then
    ThisWorkbook.SaveAs Filename:=NomChoisi, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Else
    MsgBox "enregistrement annulé"
End If
Unload Me

Il faut ainsi que dans ta variable NomChoisi tu ais le chemin et le nom du fichier
A tester
@+ Lolote83

 

[JLuc69nc]

Oui, j'avais modifié exactement comme ça et ça fonctionne.
Mais comme j'avais d'autres problèmes dans le reste du code, je me suis attelé à ces réparations.

Je te remercie de ta contribution et de ta solution

JLuc