Ouverture boite dialogue Excel

[gg13]

Bonjour le forum.
Encore un petit problème de syntaxe.
Pour ouvrir la boite de dialogue ouverture d'Excel j'ai utilisé

File = Application.GetOpenFilename
Workbooks.Open File
ceci marche trés bien

Mais pour ouvrir la boite d'enregistrement j'ai utilisé

File = Application.GetSaveAsFilename
Workbook.SaveAs Filename

et plusieurs autres syntaxes mais rien ne fonctionne.
Quelqu'un connait-il la syntaxe excate.
Merci de vos conseils.
gg13

 

[tototiti2008]

Re : Ouverture boite dialogue Excel

Bonjour gg13,

à tester

File = Application.GetSaveAsFilename(Filefilter:="Fichier Excel (*.xls), *.xls")
ActiveWorkbook.SaveAs File

Edit : Bonjour job 😉

un bout de temps qu'on ne s'est vu 🙂

Oui, un petit coup de mou en ce moment... en espérant que ça passe 🙂

 

[job75]

Re : Ouverture boite dialogue Excel

Bonjour gg13,

On peut utiliser cette instruction :

x = Application.Dialogs(xlDialogSaveAs).Show

Si on clique sur Enregistrer => x = True

Si on clique sur Annuler => x = False

Edit : salut tototiti, un bout de temps qu'on ne s'est vu 🙂

A+

 

[gg13]

Re : Ouverture boite dialogue Excel

Bonjour,
Merci à vous deux job75 et tototiti.
C'est super.
Bonne journée à tous.
gg13