Problème avec On Error GOTO

Hello,

J'ai un soucis d’exécution sur ma macro

Elle me permet d'ouvrir et lire plusieurs fichiers via une boucle for.

Seulement parfois, des fichiers sont corrompus et je ne peux donc pas les ouvrir.

J'ai essayé de faire un on error goto toto.

A la premiere erreur ca marche, a la suite ca rebug et ca veut pas retourner dans mon goto...

Quelqu'un pourrait m'aider à régler ce probleme svp ? :)

Mojito.

bonjour,

très sommaire ce que tu nous donnes comme infos dans ta demande d'aide !

donc réponse courte : utilise resume dans ta routine de traitement d'erreur.

Bonjour, salut h2so4 !

Je rejoins h2so4, tu n'apportes pas suffisamment des précisions pour que l'on puisse apporter une aide pertinente. GoTo Toto peut fonctionner, tout dépend où est placé Toto dans le code, et ce qui suit cette ligne.

En gros ma macro permet d'ouvrir le fichier et de faire ensuite plein de récupération de données.

Je veux pouvoir sauter toute la partie du code qui execute la récupération de données. Resume me permet pas de faire ça.

 for x = 2 to Nb_Lignes

if  repertoire = "Dossier" then

blablablala

ElseIf repertoire = "Files on server" Then
        PathFile = Workbooks(BDD).Sheets(DATA).Cells(x, 11)
        NameFile = Workbooks(BDD).Sheets(DATA).Cells(x, 10)

        On Error GoTo Test1

Workbooks.Open Filename:=PathFile & NameFile, notify:=False 'Ouverture de chaque fichier 

'Je veux sauter toute cette partie
        File = ActiveWorkbook.Name

        ' Compte le nb de lignes pour insérer les données sur la dernière ligne
        Nb_Lignes_Database = Workbooks(BDD).Sheets("Database").Columns(1).Find("", LookIn:=xlFormulas, lookat:=xlWhole).Row

        Next i

        b = b + 1
        Workbooks(File).Close
 ' fin du saut de partie
Test1:
        toto = tata

    End If

Next x
    '-----------------------------

re-bonjour,

à tester

    For x = 2 To Nb_Lignes

        If repertoire = "Dossier" Then

            blablablala

        ElseIf repertoire = "Files on server" Then
            PathFile = Workbooks(BDD).Sheets(Data).Cells(x, 11)
            NameFile = Workbooks(BDD).Sheets(Data).Cells(x, 10)

            On Error GoTo traitement_erreur

            Workbooks.Open Filename:=PathFile & NameFile, notify:=False 'Ouverture de chaque fichier

            'Je veux sauter toute cette partie
            File = ActiveWorkbook.Name

            ' Compte le nb de lignes pour insérer les données sur la dernière ligne
            Nb_Lignes_Database = Workbooks(BDD).Sheets("Database").Columns(1).Find("", LookIn:=xlFormulas, lookat:=xlWhole).Row

        Next i

        b = b + 1
        Workbooks(File).Close
        ' fin du saut de partie

test1:
        toto = tata

    End If

Next x
'-----------------------------
Exit Sub
traitement_erreur:
        Resume test1
End Sub