Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Question sur les boites de dialogue intégrées

  • Initiateur de la discussion Initiateur de la discussion tango
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

tango

XLDnaute Nouveau
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" ?
 
Re : Question sur les boites de dialogue intégrées

Bonjour Tango

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

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

bon après midi
@+
 
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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…