Question sur les boites de dialogue intégrées

[tango]

Bonjour au forum.

J'ai découvert sur le forum les boites de dialogue intégrées d'Excel telles que :
Application.Dialogs(xlDialogOpen).Show
Application.Dialogs(xlDialogSaveAs).Show "essai.xls"

C'est très pratique pour ouvrir ou enregistrer un fichier, vu que l'action est réalisée par Excel au travers des fenêtres que l'utilisateur a l'habitude de voir.
Et plus besoin de vérifier que le fichier à enregistrer n'existe pas déjà, Excel pose la question habituelle "fichier existe, voulez vous l'écraser".

Ceci étant, comment peut-on tester que l'utilisateur a choisi la touche "Annuler" au lieu de "Ouvrir" ou "Enregistrer" ?

 

[Pierrot93]

Re : Question sur les boites de dialogue intégrées

Bonjour Tango

si annuler, renvoie "False", regarde le code ci dessous :

Dim x
x = Application.Dialogs(xlDialogOpen).Show
If x = False Then MsgBox "Action annulée"

bon après midi
@+

 

[tango]

Re : Question sur les boites de dialogue intégrées

Bonjour, Pierrot93 et merci de ta réponse.

Wouaw! Je n'y avais pas pensé. Ca marche super.

Mais j'ai une question supplémentaire. Sauf erreur de manip de ma part, on ne peut pas coder ainsi si la boite de dialogue a un paramètre tel qu'un nom de fichier par défaut :

Dim x
x = Application.Dialogs(xlDialogOpen).Show "essai.xls"

est rejeté à la saisie.
Y aurait-il une autre astuce ?

Bonne après midi en tout cas.

 

[Pierrot93]

Re : Question sur les boites de dialogue intégrées

Re

avec parenthèses :

Dim x
x = Application.Dialogs(xlDialogOpen).Show("essai.xls")
If x = False Then MsgBox "bouton annuler"

@+

 

[tango]

Re : Question sur les boites de dialogue intégrées

Bravo et merci.

J'ai vraiment des progrès à faire en VB...

Bonne fin de journée.