message erreur vba

[David59]

Bonsoir le forum

Voilà je me sert d'une clé USB pour mettre à jour des données dans un dossier Excel pour ça pas de problème

Mais si je n'ai pas mis la clé USB un message erreur s'affiche et vba s’ouvre etc....
Existe t'il une formule qui ouvre si la clé USB est présente ou bien met un message pour dire qu'il manque la clé USB

Cela est il possible merci d'avance

David @+

 

[jp14]

Re : message erreur vba

Bonjour

Une solution simple : piéger l'erreur
Avant l'ouverture du fichier sur la clef mettre "on error goto erreur"
et écrire

erreur:
Select Case MsgBox("Veuillez introduire la clef", vbOKCancel Or vbCritical Or vbDefaultButton1, Application.Name)

Case vbOK
resume next
Case vbCancel
exit sub
End Select
end sub

A tester

JP

 

[skoobi]

Re : message erreur vba

Bonjour,

peut-être que oui, peut-être que non, sans plus d'infos..........(fichier zippé < 48.8 ko avec explication précise par exemple).

 

[skoobi]

Re : message erreur vba

Bonjour jp14,

Bonjour

Une solution simple : piéger l'erreur
Avant l'ouverture du fichier sur la clef mettre "on error goto erreur"
et écrire

erreur:
Select Case MsgBox("Veuillez introduire la clef", vbOKCancel Or vbCritical Or vbDefaultButton1, Application.Name)

Case vbOK
resume next
Case vbCancel
exit sub
End Select
end sub

A tester

JP

Il faut également penser à écrire "Exit Sub" avant l'étiquette erreur:

........
...........
Exit Sub

erreur:
.........
............
............
End Sub

car même si la clef est présente, le message et ce qui suis sera executer