Boucle/Gestion Erreur

Bonjour

Je réalise une macro afin de pouvoir chercher dans un dossier les classeurs cherché les ouvrir et exécuter une opération.

Cependant dans le cas ou le classeur cherché n'existe pas j'aimerai que ma boucle continue. Aujourd’hui avec la macro ci dessous ma gestion erreur "On error go to Sortie" s'arrete apres une erreur détecté. (elle reconnait la première erreur=> un classeur manque, mais la deuxième foi que le classeur manque elle la reconnait pas et arrete la macro).

Pouvez vous s'il vous plait m'indiquer se qu'il manque afin de pouvoir finir ma boucle sans avoir de mxgbox m'indiquant une erreur?

Je vous remercie par avance

Arthur

Sub deded()

Dim chm1 As String

Dim Arthur$

Dim n As Integer

Dim Format As String

Dim Company As String

For n = 89 To 127

Sheets("Param").Select

Company = Cells(n, 8)

Format = P8

chm1 = Range("G24")

Arthur = chm1 & Company & ".xlsm"

On Error GoTo Sortie

Workbooks.Open (Arthur)

Sheets("Stock Champagne").Select

Columns("A:R").Select

ActiveWindow.SmallScroll Down:=-24

Selection.Copy

ActiveWindow.ActivateNext

Sheets(Company).Select

Range("A1").Select

Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _

, SkipBlanks:=False, Transpose:=False

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Sheets(Company).Select

With ActiveWorkbook.Sheets("C_MHI").Tab

.ThemeColor = xlThemeColorAccent3

.TintAndShade = 0

End With

ActiveWindow.ActivateNext

Application.DisplayAlerts = False

ActiveWindow.Close savechanges:=False

Sheets("Param").Select

Sortie:

Next n

End Sub

Bonjour MOULY

Lorsque tu utilise

On Error Goto "etiquette"

Il faut associer

On Error Goto 0

Pour interrompre la gestion des errreurs...

en l'occurrence, dans ton code, il faut l'intégrer entre l'etiquette "Sortie:" et le "Next"

Sortie:
On Error Goto 0
Next