[VBA-E]Gestion d'erreur

Bonjour j'ai un problème pour gérer une éventuelle erreur de l'utilisateur dans mon programme

Voici mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

On Error GoTo Err2: Windows(Fichier_MAJ).Activate Workbooks(Fichier_MAJ).Sheets("Etude").Select Set Plage2 = Workbooks(Fichier_MAJ).Worksheets("Etude").Range("A4:A" & Range("A4").EntireColumn.SpecialCells(xlCellTypeConstants).Count)   Err2: Message = "Le fichier " & Dir(Fichier_MAJ) & " que vous venez de séléctionner ne semble pas être conforme ! " Style = vbExclamation Titre = "Ouverture fichier impossible..." Reponse = MsgBox(Message, Style, Titre) Exit Sub

---

Lorsque je rentre ce code, il m'affiche automatiquement la msgbox du message d'erreur.
Mais si je retire la gestion de l'erreur, mon code s'éxecute correctement....je ne vois pas
trop ce qui se passe! Si quelqu'un a une idée....

Merci

Citation:

---

il m'affiche automatiquement la msgbox du message d'erreur

---

Et... où lui dis-tu de ne pas passer par l'étiquette Err2 s'il n'y a pas d'erreur ?... vois pas !.... :lol:

Oui, il faut mettre un

Code:

---

Exit Sub

---

ou un

Code:

---

Exit Function

---

avant d'arriver à l'étiquette, sinon, le code se déroule naturellement et passe dans ce bout de code.

Non s'il n'y a pas d'erreur il ne doit pas passer par l'étiquette....enfin si c'est comme Access.... l'étiquette sert seulement s'il y a une erreur et le exit sub doit se trouver dans l'étiquette. Si je mets un exit sub après le on error goto err: , il sortira de la procédure à chaque fois

Tu persistes et... tu signes !
Dans ce cas ... continues donc à passer systématiquement par l'étiquette Err2, ma foi :cry: :roll:

:lol: ok mais si j'applique votre méthode, il m'est impossible de continuer la suite de ma procédure que ce soit dans le cas d'une erreur ou non :roll: vu que le exit sub lui va bien etre lu !

Allons : montre-nous donc où tu as placé ton exit sub exactement, ainsi que le reste (s'il y en a) de ta procédure :lol:
C'est juste une question de stratégie et de réflexion !
si tu as à exécuter du code dans ta procédure après, l'exit sub devra être remplacé par l'envoi vers une 2ème étiquette, par exemple !
Mais j'aimerais vraiment voir la totalité de la procédure (jusqu'au End Sub) car je suis à peu près certain de ce qu'en plus, on pourrait éviter ces vilains GoTo !

Citation:

---

Envoyé par Mut

Non s'il n'y a pas d'erreur il ne doit pas passer par l'étiquette....enfin si c'est comme Access.... l'étiquette sert seulement s'il y a une erreur

---

qu'est-ce qu'il est gentil, Access :roll:

Code:

---

1 2 3 4 5 6 7

Windows(Fichier_MAJ).Activate Workbooks(Fichier_MAJ).Sheets("Etude").Select Set Plage2 = Workbooks(Fichier_MAJ).Worksheets("Etude").Range("A4:A & Range("A4").EntireColumn.SpecialCells(xlCellTypeConstants).Count)   Windows(Fichier_Source).Activate Workbooks(Fichier_Source).Sheets("liste").Select Set Plage = Workbooks(Fichier_Source).Worksheets("liste").Range("C3:C" & Range("C3").EntireColumn.SpecialCells(xlCellTypeConstants).Count)

---

Voila....si le classeur contient bien la feuille "Etude" ça fonctionne mais sinon ça fait l'erreur. Je voudrais gérer cette erreur....

Ami mut,

Lorsque j'ai écrit :

Citation:

---

Mais j'aimerais vraiment voir la totalité de la procédure (jusqu'au End Sub)

---

,
ce qui figurait à propos de tout ce qu'il y a avant le End sub (ce qui est en gras ci-dessus) avait et a une énorme importance !
Le code que tu fournis là ne va pas jusqu'au End Sub et ne permet pas de savoir ce qui se passe après la gestion de l'erreur ! :cry:

Je retombe presque par hasard sur ce post.
Mut, pour utiliser le On Error, tu dois transformer la structure.
Tu as en général, sans le On Error:

Code:

---

1 2 3 4

Sub MaProc ( ) ...Tout ton code ... ...la fin de ton code . End Sub

---

Et bien tu dois avoir, avec un On Error...

Code:

---

1 2 3 4 5 6 7 8

Sub MaProc ( ) On Error Goto GestionErreur ...Tout ton code ... ...la fin de ton code . Exit Sub GestionErreur: Ce que tu veux faire en cas d'erreur... End Sub

---

Comme tu le vois, l'étiquette est COMPLETEMENT à la fin de la procédure, ce qui te permet d'exécuter TOUT ton code s'il n'y a pas d'erreur.

Maintenant, pour ton cas d'un onglet qui n'existe pas, une fonction a été posté 12654 fois, qui permet de vérifier l'existence, et de renvoyer un booléen:

Code:

---

1 2 3 4 5 6 7 8

Function LaFeuilleExiste(ByVal NomOnglet As String) As Boolean Dim i As Integer LaFeuilleExiste = False For i = 1 To ActiveWorkbook.Worksheets.Count If ActiveWorkbook.Worksheets(i).Name = NomOnglet Then _ LaFeuilleExiste = True Next i End Function

---

Citation:

---

Envoyé par Megaxel

Maintenant, pour ton cas d'un onglet qui n'existe pas, une fonction a été posté 12654 fois, qui permet de vérifier l'existence,...

---

non 12655 ... on la eu hier aussi :wink: :lol:

12656 avec cette fois-ci :wink: :lol:

Heyyy, les félins (Thierry, bbil...), on se calme... :D
Sinon, les volatiles (Ousk', moi...), qui se mettent rarement en colère, vont relancer la bonne vieille méthode du goudron et des plumes (on a en plein pour pas cher!!) pour punir les membres qui font répéter N fois les mêmes choses...
:D

Et dans la liste des volatiles, on peut mettre jmfmarques: il a des plumes aussi, maintenant... :D

ok le coup du exit sub après le bout de code je croyais que ça allait arrèter toute ma procédure vu que j'avais mis l'étiquette juste après et non à la fin ! désolé pour ne pas avoir compris avant !

Merci à tout le monde