enregistrer sous

[jean michel]

bonsoir

J'affiche la boîte de dialogue standard " Enregistrer sous " par le code ci dessous trouvé dans l'aide tout se passe bien sauf que le fichier n'est jamais enregistrer ,je ne vois pas ce qu'il manque

merci de votre aide
bonne soiree à tous

Sub Macro22()
fileSaveName = Application.GetSaveAsFilename( _
fileFilter:="Text Files (*.xls), *.xls")
If fileSaveName <> False Then
MsgBox "Votre fichier a été enregistrer sous" & fileSaveName
End If

End Sub

 

[Lord Nelson]

Salut Jean-Michel,

La procédure GetSaveAsFilename ne fait qu'afficher la boite de dialogue, elle n'enregistre pas.
Tu devras donc la faire suivre d'une instruction "SaveAS", par exemple comme ceci :

fileSaveName = Application.GetSaveAsFilename(fileFilter:="Excel Files (*.xls), *.xls")
If fileSaveName <> False Then
ActiveWorkbook.SaveAs Filename:=fileSaveName, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
MsgBox "Votre fichier a été enregistré sous" & fileSaveName
End If

A+
Horatio

 

[jean michel]

merci pour la réponse ,c'est impeccable
bon weekend