XL 2016 Bug avec le bouton annuler

scoubidou35

XLDnaute Occasionnel
Bonjour à tous,

J'ai un problème avec le code de mon fichier quand je clique sur le bouton "Récupération des noms de fichier" cela m'ouvre une fenêtre "Parcourir".
Si je sélectionne le dossier et appuie sur OK tout va bien. Mais si sur cette même fenêtre, je souhaite annuler l'opération en cliquant sur annuler cela bug malgré la ligne
" On Error Resume Next "

Merci d'avance
 

Pièces jointes

  • Récupérateur fichier.xlsm
    193.5 KB · Affichages: 5
Solution
Bonjour,

Votre fonction Dossier qui fonctionnera sans On Error Resume Next.
Si vous cliquez sur 'Annuler' la fonction retournera une chaine vide : ""
VB:
Function Dossier() As String
    With Application.FileDialog(4)
        If .Show() Then Dossier = .SelectedItems(1)
    End With
End Function
Dans votre sub appelante, il vous faut tester si Chemin est vide.
Code:
Chemin = Dossier()
If Chemin = "" Then Exit sub

N'utilisez On Error Resume Next qu'en dernier recours, lorsque vous êtes certains que tout marche.
Vous apprendrez plus facilement de vos erreurs, que si elles sont masquées.

cordialement

Hasco

XLDnaute Barbatruc
Repose en paix
Bonjour,

Votre fonction Dossier qui fonctionnera sans On Error Resume Next.
Si vous cliquez sur 'Annuler' la fonction retournera une chaine vide : ""
VB:
Function Dossier() As String
    With Application.FileDialog(4)
        If .Show() Then Dossier = .SelectedItems(1)
    End With
End Function
Dans votre sub appelante, il vous faut tester si Chemin est vide.
Code:
Chemin = Dossier()
If Chemin = "" Then Exit sub

N'utilisez On Error Resume Next qu'en dernier recours, lorsque vous êtes certains que tout marche.
Vous apprendrez plus facilement de vos erreurs, que si elles sont masquées.

cordialement
 

scoubidou35

XLDnaute Occasionnel
Bonjour Hasco,
Merci, pour les explications cela fonctionne comme je le souhaite. En fait, pour moi la commande "On Error Resume Next" voulais dire que je ne clique pas sur OK cela crée une sorte d'erreur et que donc dans ce cas là, il faut retourner au début du code.
Merci encore et bonne journée
Cordialement
 

Discussions similaires

Réponses
8
Affichages
299
  • Question
Microsoft 365 Boutons
Réponses
28
Affichages
435