Discussion :

[Mut]

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

Voici mon code:

Code :

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

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

[jmfmarques]

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 !....

[Megaxel]

Oui, il faut mettre un

Code :

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

Exit Sub

ou un

Code :

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

Exit Function

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

[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 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

[jmfmarques]

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

[Mut]

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 vu que le exit sub lui va bien etre lu !

[jmfmarques]

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
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 !

[ThierryAIM]

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

[Mut]

Code :

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

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....

[jmfmarques]

Ami mut,

Lorsque j'ai écrit :

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 !

[Megaxel]

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 :

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

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 :

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

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 :

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

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

[SfJ5Rpw8]

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

[ThierryAIM]

12656 avec cette fois-ci

[Megaxel]

Heyyy, les félins (Thierry, bbil...), on se calme...
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...


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

[Mut]

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