Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

JLuc69nc

XLDnaute Nouveau
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
 

Pièces jointes

  • Enregistrement Excel.pdf
    431.9 KB · Affichages: 1
Solution
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
Code:
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

Lolote83

XLDnaute Barbatruc
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)
VB:
Sub EnregistrerSousXLSM()
    ActiveWorkbook.SaveAs Filename:="C:\Users\Toto\Documents\Test.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

@+ Lolote83
 

JLuc69nc

XLDnaute Nouveau
En conservant le code d'origine, j'ai modifié comme ceci :
VB:
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

XLDnaute Barbatruc
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
Code:
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

XLDnaute Nouveau
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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…