micapilote
XLDnaute Junior
Bonjour, je galère à finaliser ma macro afin qu'elle:
ouvre la fenêtre "enregistrer sous" OK
préremplisse le nom OK
préremplisse le chemin OK
sélectionne le format "XLSM" PAS OK
mon pb est qu'il s'agit d'un fichier modèle à l'origine (.XLTM) et cela limite les choses, sinon j'aurais fait un enregistrement auto avec ce code mais le dossier d'origine d'un XLTM est c:/ !
nota: mon fichier se nomme Test.xltm donc une fois ouvert il s'appelle Test1.xltm
merci d'avance
ouvre la fenêtre "enregistrer sous" OK
préremplisse le nom OK
préremplisse le chemin OK
sélectionne le format "XLSM" PAS OK
Code:
Sub Enregistrer()
Dim chemin, nom
nom = Sheets(1).Range("A1")
chemin = "G:\Nouvelle FS\Nouveau dossier\"
If ActiveWorkbook.Name = "Test1" Then
Application.Dialogs(xlDialogSaveAs).Show chemin & nom
Else: ActiveWorkbook.Save
End If
End Sub
mon pb est qu'il s'agit d'un fichier modèle à l'origine (.XLTM) et cela limite les choses, sinon j'aurais fait un enregistrement auto avec ce code mais le dossier d'origine d'un XLTM est c:/ !
nota: mon fichier se nomme Test.xltm donc une fois ouvert il s'appelle Test1.xltm
Code:
Sub Enregistrer()
Dim chemin, nom
nom = Sheets(1).Range("A1")
chemin = ThisWorkbook.Path & "\"
If ActiveWorkbook.Name = "Test1" Then
ActiveWorkbook.SaveAs Filename:= _
chemin & nom, FileFormat:=52, CreateBackup:=False
Else: ActiveWorkbook.Save
End If
End Sub
merci d'avance
Pièces jointes
Dernière édition: