Bonjour,
Je travaille avec un fichier .xltm et je souhaite créer une macro permettant d'ouvrir la boîte de dialogue d'enregistrement Excel, y proposer le nom du fichier (=nomfichier) à enregistrer et le format (.xlsm) du genre :
ActiveWorkbook.SaveAs FileFormat:=xlOpenXMLWorkbookMacroEnabled
soit en format .xlsm
et
Dim Reponse As String
Dim nomfichier As String
nomfichier = Worksheets("Feuil3").Cells(1, 2).Value & " " & Worksheets("Feuil3").Cells(2, 3) & ".xlsm"
SendKeys (nomfichier) '
Reponse = Application.Dialogs(xlDialogSaveAs).Show
Mais l'incorporation de toutes ces lignes ne fonctionne pas...
Qui peut m'aider SVP
Merci
Je travaille avec un fichier .xltm et je souhaite créer une macro permettant d'ouvrir la boîte de dialogue d'enregistrement Excel, y proposer le nom du fichier (=nomfichier) à enregistrer et le format (.xlsm) du genre :
ActiveWorkbook.SaveAs FileFormat:=xlOpenXMLWorkbookMacroEnabled
soit en format .xlsm
et
Dim Reponse As String
Dim nomfichier As String
nomfichier = Worksheets("Feuil3").Cells(1, 2).Value & " " & Worksheets("Feuil3").Cells(2, 3) & ".xlsm"
SendKeys (nomfichier) '
Reponse = Application.Dialogs(xlDialogSaveAs).Show
Mais l'incorporation de toutes ces lignes ne fonctionne pas...
Qui peut m'aider SVP
Merci