XL 2016 Bug avec le bouton annuler

[scoubidou35]

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

 

[Hasco]

Bonjour,

Votre fonction Dossier qui fonctionnera sans On Error Resume Next.
Si vous cliquez sur 'Annuler' la fonction retournera une chaine vide : ""

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.

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]

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

 

[Hasco]

pour moi la commande "On Error Resume Next" ....

Oui, ça peut être utile, lorsqu'on est certain, qu'un seul type d' erreur peut-être levé par une instruction.
L'important étant que ça ne masque pas d'autres erreurs qu'on attendait pas.

Cordialement