Eviter bug macro si fichier introuvable

Dim Cell As Range
      For Each Cell In Range("D7:D12")
       On Error Resume Next
          Workbooks.Open "LIEN" & Cell.Value & ".xlsx"       
      Next Cell

Dim Cell As Range
On Error Resume Next

      For Each Cell In Range("D7:D12")
          Workbooks.Open "LIEN" & Cell.Value & ".xlsx"
      Next Cell

Dim Cell As Range
On Error Resume Next

      Application.DisplayAlerts = False
      For Each Cell In Range("D7:D12")
          Workbooks.Open "LIEN" & Cell.Value & ".xlsx"
      Next Cell
      Application.DisplayAlerts = True

Sub Essai()
Dim Cell As Range
For Each Cell In Range("D7:D12")
    F$ = "LIEN" & Cell.Value & ".xlsx": If Dir(F$) > "" Then Workbooks.Open F$
Next Cell
End Sub

Sub Test()

With Sheets("Travail")

   Dim Cell As Range
   On Error Resume Next
   Application.DisplayAlerts = False

    For Each Cell In Range("D7:D13")
    Lien" & Cell.Value & ".xlsx"
    F$ = "Lien" & Cell.Value & ".xlsx": If Dir(F$) > "" Then Workbooks.Open F$

    Next Cell
      
End With
      
End Sub

For Each Cell In Range("D7:D13")
      F$ = "Lien" & Cell.Value & ".xlsx": If Dir(F$) > "" Then Workbooks.Open F$
 Next Cell

Vous pouvez spécifier l’une des valeurs suivantes dans le paramètre UpDateLinks pour déterminer si les références externes (liens) sont mises à jour à l’ouverture du classeur :

Valeur Signification 
0 Les références externes (liens) ne sont pas mises à jour à l’ouverture du classeur. 
3 Les références externes (liens) sont mises à jour à l’ouverture du classeur.

Sub Macro3()

With Sheets("Travail")

   Dim Cell As Range
   On Error Resume Next
   Application.DisplayAlerts = False

For Each Cell In Range("D7:D13")
'Workbooks.Open "LIEN" & Cell.Value & ".xlsx"
F$ = "LIEN" & Cell.Value & ".xlsx": If Dir(F$) > "" Then Workbooks.Open F$
Workbooks.Open F$, 0

Next Cell
      
End With
        
End Sub

Sub Macro3()
With Sheets("Travail")

   Dim Cell As Range
   Dim F$ As String
   On Error Resume Next
   Application.DisplayAlerts = False

   For Each Cell In Range("D7:D13")
      F$ = "LIEN" & Cell.Value & ".xlsx": If Dir(F$) > "" Then Workbooks.Open F$, 0
   Next Cell
   Application.DisplayAlerts = True  
End With
       
End Sub

Sub TEST()
Dim Cell As Range

On Error GoTo Fin
With Sheets("Travail")
For Each Cell In Range("D7:D13")
'Workbooks.Open "LIEN" & Cell.Value & ".xlsx"
F$ = "LIEN" & Cell.Value & ".xlsx": If Dir(F$) > "" Then Workbooks.Open F$
Workbooks.Open F$, 0
Next Cell   
End With
Fin:
Exit sub
End Sub