Discussion :

[crapule1205]

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

[rjamin]

Bonjour,

Et en mettant Exit Sub directement après MsgBox?

[crapule1205]

pourquoi pas, bien que je ne sache pas comment faire, mais je voudrais revenir sur la feuille de départ et donc mettre le exit sub bien à part.

[Philippe Tulliez]

Bonjour,
Ton classeur actif n'étant pas encore sauvé, ActiveWorkbook.Name renvoie le nom du classeur sans le préfixe donc ta syntaxe peut-être ceci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If classeur_actif = "Classeur1" Then

[crapule1205]

cette solution ne fonctionne pas.
le classeur actif est bien classeur1.xls car il m'affiche bien le msgbox mais il "saute" l'instruction exit sub

merci d'avance de vos idées.

cordialement

Crapule

[Philippe Tulliez]

Bonjour,
C'est curieux car ta syntaxe est bonne.
Le problème ne peut provenir que dans le fait que classeur_actif n'est pas égal à "classeur1"
Je teste toujours le code avant de donner une réponse.
As-tu utilisé le débogage ?
J'ai l'impression que tu as plus d'un classeur ouvert et sans doute ton classeur actif n'est pas le bon.