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.