Userform On error Goto erreur

[bloomby]

Bonjour à tous,

j'utilise le code suivant avec mes modules

On Error GoTo erreur
Exit Sub
erreur:
UserForm2.Show

Par contre je me demande quel code écrire pour le userform
étant donnée que lorsqu'il y a une erreur je ne veux pas que le userform ce ferme mais plutot que le userform2 s'ouvre

avec un msg Erreur et idéalement ce userform devrais me demander si je veux envoyer le fichier complet sur mon email ( un rapport d'erreur)

merci

 

[jp14]

Re : Userform On error Goto erreur

Bonjour

Une autre piste
Utiliser un msgbox comme ceci

Select Case MsgBox("Erreur" _
                   & vbCrLf & "Le code erreur est : " & Err.Number _
                   & vbCrLf & "Description " & Err.Description _
                   & vbCrLf & "Voulez vous envoyer un message " _
                   , vbYesNo Or vbCritical Or vbDefaultButton1, Application.Name)

    Case vbYes

    Case vbNo
                 exit sub
End Select

JP

 

[bloomby]

Re : Userform On error Goto erreur

Bonjour le forum, JP14

Merci de ton aide