Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Gestion de cancel dans boîte de dialogue

Gestion de cancel dans boîte de dialogue

4 réponses
Avatar
René Delcourt
Bonjour à tous,

Pour choisir un fichier, j'utilise cette commande
Application.Dialogs(xlDialogOpen).Show Repert
Cela tourne bien.
Cependant, si je clique sur annuler dans la boîte de dialogue, ma macro
continue à tourner, ce qui est gênant.
Une petite ligne (ou plusieurs) de code me permettrait de prendre des
vacances serein.
Merci à tous
--
René Delcourt
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonjour.
Var = Application.Dialogs(xlDialogOpen).Show
If Var = False Then MsgBox "l'utilisateur a appuyé sur annuler"
Bonnes vacances
Daniel
"René Delcourt" a écrit dans le message de news:

Bonjour à tous,

Pour choisir un fichier, j'utilise cette commande
Application.Dialogs(xlDialogOpen).Show Repert
Cela tourne bien.
Cependant, si je clique sur annuler dans la boîte de dialogue, ma macro
continue à tourner, ce qui est gênant.
Une petite ligne (ou plusieurs) de code me permettrait de prendre des
vacances serein.
Merci à tous
--
René Delcourt


Avatar
papou
Bonjour
Sinon si tu ne veux pas de message, en une seule ligne tu fais le test :
If Application.Dialogs(xlDialogOpen).Show = False Then Exit Sub
Cordialement
Pascal

"Daniel" a écrit dans le message de
news:
Bonjour.
Var = Application.Dialogs(xlDialogOpen).Show
If Var = False Then MsgBox "l'utilisateur a appuyé sur annuler"
Bonnes vacances
Daniel
"René Delcourt" a écrit dans le message de news:

Bonjour à tous,

Pour choisir un fichier, j'utilise cette commande
Application.Dialogs(xlDialogOpen).Show Repert
Cela tourne bien.
Cependant, si je clique sur annuler dans la boîte de dialogue, ma macro
continue à tourner, ce qui est gênant.
Une petite ligne (ou plusieurs) de code me permettrait de prendre des
vacances serein.
Merci à tous
--
René Delcourt






Avatar
Ange Ounis
Et pour conserver ta demande d'afficher un répertoire particulier :

Sub essai()
Dim res As Boolean
res = Application.Dialogs(xlDialogOpen).Show(Repert)
If Not res Then
Exit Sub
Else
'ton traitement
End If
End Sub

C'était mon message à deux balles du jour :)

----------
Ange Ounis
----------

Bonjour à tous,

Pour choisir un fichier, j'utilise cette commande
Application.Dialogs(xlDialogOpen).Show Repert
Cela tourne bien.
Cependant, si je clique sur annuler dans la boîte de dialogue, ma macro
continue à tourner, ce qui est gênant.
Une petite ligne (ou plusieurs) de code me permettrait de prendre des
vacances serein.
Merci à tous


Avatar
René Delcourt
Merci Daniel et Papou pour ce coup de pouce.
--
René Delcourt



Bonjour
Sinon si tu ne veux pas de message, en une seule ligne tu fais le test :
If Application.Dialogs(xlDialogOpen).Show = False Then Exit Sub
Cordialement
Pascal

"Daniel" a écrit dans le message de
news:
Bonjour.
Var = Application.Dialogs(xlDialogOpen).Show
If Var = False Then MsgBox "l'utilisateur a appuyé sur annuler"
Bonnes vacances
Daniel
"René Delcourt" a écrit dans le message de news:

Bonjour à tous,

Pour choisir un fichier, j'utilise cette commande
Application.Dialogs(xlDialogOpen).Show Repert
Cela tourne bien.
Cependant, si je clique sur annuler dans la boîte de dialogue, ma macro
continue à tourner, ce qui est gênant.
Une petite ligne (ou plusieurs) de code me permettrait de prendre des
vacances serein.
Merci à tous
--
René Delcourt