Bonjour à tous,

je suis débutant en vba et je souhaite exécuter la procédure suivante.
Ce if est en début de procédure, de sorte a vérifier que si je suis dans le fichier excel "classeur1", il affiche un message d'erreur (ce qu'il fait bien), se positionne sur le classeur de départ et arrete la procédure en cours. le exit sub ne fonctionne pas du tout et malgré l'affichage du message, la procédure continue, comme si de rien n'était

Merci de me donner un coup de main.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
feuille_active = ActiveSheet.Name
classeur_actif = ActiveWorkbook.Name
If classeur_actif = "Classeur1.xls" Then
    MsgBox "Cette commande ne fonctionne pas dans le fichier classeur1.Veuillez recommencer dans le dossier client.", vbExclamation, "Message erreur"
    Workbooks(classeur_actif).Worksheets(feuille_active).Activate
    Exit Sub
End If