OVH Cloud OVH Cloud

Gérer une erreur

2 réponses
Avatar
Ricou
Bonjour,
j'ai créé une macro avec userform qui demande à l'utilisateur d'entrer le
nom du fichier à ouvrir. Si l'utilisateur se trompe dans le nom, j'ai une
proposition de débogage à Workbooks.Open.
Est-il possible de remplacer cette proposition par un msgbox et exit sub?

Merci d'avance

2 réponses

Avatar
Youky
on gère l'erreur.
On error Resume Next
'workbook.Open...........
If err<>0 then
msgbox"non trouvé"
exit sub
end if
Youky
"Ricou" a écrit dans le message de news:

Bonjour,
j'ai créé une macro avec userform qui demande à l'utilisateur d'entrer le
nom du fichier à ouvrir. Si l'utilisateur se trompe dans le nom, j'ai une
proposition de débogage à Workbooks.Open.
Est-il possible de remplacer cette proposition par un msgbox et exit sub?

Merci d'avance


Avatar
Ricou
OK, merci Youki d'avoir été aussi rapide. En fait, je me rends compte qu'il
me manquait la condition if...


on gère l'erreur.
On error Resume Next
'workbook.Open...........
If err<>0 then
msgbox"non trouvé"
exit sub
end if
Youky
"Ricou" a écrit dans le message de news:

Bonjour,
j'ai créé une macro avec userform qui demande à l'utilisateur d'entrer le
nom du fichier à ouvrir. Si l'utilisateur se trompe dans le nom, j'ai une
proposition de débogage à Workbooks.Open.
Est-il possible de remplacer cette proposition par un msgbox et exit sub?

Merci d'avance