[VBA] Question simple sur les MsgBox

Bonjour à tous,

je commence une petite macro, mais j'ai déjà un problème avec les MsgBox

j'ai 2 "On Error GoTo" dans mon sub

• On Error Go To Classeur_non_ouvert
• On Error Go To Code_CAO

et j'ai réalisé mes 2 MsgBox à la suite après un exit sub pour pas qu'elle soit lu dans la procédure.

Problème, si la première erreur se déclare les 2 MsgBox s'affichent à la suite, au lieu d'afficher seulement la première.

Sub import()

On Error GoTo Classeur_non_ouvert
Workbooks("export").Activate

'Définir colonne ou se trouve CODE CAO
On Error GoTo Code_CAO
j = Sheets(1).Rows(1).Find(What:="CODE CAO", LookIn:=xlValues).Column

Exit Sub

Classeur_non_ouvert: MsgBox "Assurez vous que le fichier 'EXPORT' est bien ouvert et que le nom du fichier n'est pas éronné"
Code_CAO: MsgBox "la colonne 'CODE CAO' est introuvable dans le fichier export"

End Sub

Merci d'avance pour vos réponses.

Bonjour

Mettez EXIT SUB à la fin de la ligne. Comme ceci :

Classeur_non_ouvert: MsgBox "Assurez vous que le fichier 'EXPORT' est bien ouvert et que le nom du fichier n'est pas éronné": Exit Sub

Cordialement

ha oui ça fonctionne.

Merci beaucoup.