FileDialog(msoFileDialogSaveAs) - Utilisation

[LaurentG]

Bonjour,

J'aimerai utiliser la boite de dialogue SaveAs pour la sauvegarde de documents.
J'arrive à l'activer :
Application.FileDialog(msoFileDialogSaveAs).Show

Mais comment faire pour que lorsque l'on clique sur Enregistrer, il enregistre bien le fichier? (Là si je clique sur enregistrer il ne se passe rien).

Merci
Laurent

 

[ERIC S]

Re : FileDialog(msoFileDialogSaveAs) - Utilisation

Bonjour

cette syntaxe fonctionne

Dim enregistrersous As Dialog
Set enregistrersous = Application.Dialogs(xlDialogSaveAs)
enregistrersous.Show

 

[LaurentG]

Re : FileDialog(msoFileDialogSaveAs) - Utilisation

Parfait, Merci beaucoup

Laurent