Salut,
Un petit problème pour faire un enregistrement automatique de fichier au format "xlsm"
J'ai un fichier source qui est par exemple - lulu.xlmt
A la fin de l'exécution d'une macro je voudrais pouvoir enregistrer le fichier avec un nouveau nom au format "xlsm"
Voici l'un des codes que j'ai essayer, mais le résultat n'est pas satisfaisant
Sub Enregistrement()
'On demande l'enregistrement du fichier
Dim BoiteEnregistrerSous As Dialog
Set BoiteEnregisterSous = Application.Dialogs(xlDialogSaveAs)
BoiteEnregisterSous.Show
' Nom = InputBox("Donner le nom de votre fichier")
ActiveWorkbook.SaveAs Filename:= _
"Nom.xlsm ", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
'Filefilter:="Classeur Excel(*.xlsm),*.xlsm")
'ActiveWorkbook.SaveAs FileFormat:="xlsm"
'FileFormat :=xlOpenXMLWorkbookMacroEnabled,".xlsm"
End Sub
Si quelqu'un peut me donner un coup de main
Un petit problème pour faire un enregistrement automatique de fichier au format "xlsm"
J'ai un fichier source qui est par exemple - lulu.xlmt
A la fin de l'exécution d'une macro je voudrais pouvoir enregistrer le fichier avec un nouveau nom au format "xlsm"
Voici l'un des codes que j'ai essayer, mais le résultat n'est pas satisfaisant
Sub Enregistrement()
'On demande l'enregistrement du fichier
Dim BoiteEnregistrerSous As Dialog
Set BoiteEnregisterSous = Application.Dialogs(xlDialogSaveAs)
BoiteEnregisterSous.Show
' Nom = InputBox("Donner le nom de votre fichier")
ActiveWorkbook.SaveAs Filename:= _
"Nom.xlsm ", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
'Filefilter:="Classeur Excel(*.xlsm),*.xlsm")
'ActiveWorkbook.SaveAs FileFormat:="xlsm"
'FileFormat :=xlOpenXMLWorkbookMacroEnabled,".xlsm"
End Sub
Si quelqu'un peut me donner un coup de main