Sujet Précédent Sujet Suivant

[VBA Excel] Cancel sur boite de dialogue

Résolu
annyong Messages postés 38 Date d'inscription lundi 23 avril 2007 Statut Membre Dernière intervention 25 février 2015 - 22 mai 2007 à 16:42
annyong Messages postés 38 Date d'inscription lundi 23 avril 2007 Statut Membre Dernière intervention 25 février 2015 - 23 mai 2007 à 10:41
Bonjour,

J'ai un problème qui peut être basique pour certains experts en VBA, mais dont je ne trouve pas de solution.

j'ouvre une boite de dialogues :
application.dialogs(xldialogopen).show

et je voudrais pouvoir traiter le cas ou l'utilisateur saisit Cancel; du genre : "if cancel = true then blablabla...."

Comment on traite le cas ou l'utilisateur saisit Cancel ??

Merci !

3 réponses

Réponse 1 / 3
jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
22 mai 2007 à 16:57
Salut,
Est ce que ceci pourrait etre suffisant?
If Application.Dialogs(xlDialogOpen).Show = False Then

@+: Ju£i?n
Pensez: Réponse acceptée
3
Réponse 2 / 3
Molenn Messages postés 797 Date d'inscription mardi 7 juin 2005 Statut Membre Dernière intervention 23 février 2011 7
22 mai 2007 à 17:23
Il y a de fortes chances que ça le soit, puisque si l'on fait :

FichierAOuvrir = Application.Dialogs(xlDialogOpen).Show
MsgBox FichierAOuvrir

On se rend compte que ça retourne Vrai si un fichier a été ouvert et Faux si on a appuyé sur Annuler.

Molenn
0
Réponse 3 / 3
annyong Messages postés 38 Date d'inscription lundi 23 avril 2007 Statut Membre Dernière intervention 25 février 2015
23 mai 2007 à 10:41
parfait !

merci jrivet !! c'est tout à fait ça. c'était pas compliqué en fait lol
0

Discussions similaires

Comment fonctionne la fonction FormulaR1C1
cs_razmokets -
wape -

2 réponses
fonction modulo en VBA
krisprolss -
Benouille -

2 réponses
Dernière cellule non vide d'une colonne
cs_falafala -
Luigi13013 -

5 réponses
A quoi sert la fonction Set ?
ICIoBRa -
ICIoBRa -

3 réponses
Modulo pour chiffres à virgule
cs_ebro -
Gally -

8 réponses
Rejoignez-nous