Lorsque l'on travaille avec des fichiers, le chemin d'accès doit être en absolu.
L'instruction "Workbooks.Open Filename:=Classeur_Source" déclenchera une erreur si le fichier est absent. Il suffit de tester l'erreur, d'afficher un message et sortir de la procédure.
Exemple
If Classeur_Source = "" Then Exit For ' Fin si cellule vide
On Error Resume Next
Workbooks.Open Filename:=Classeur_Source ' err si absent
i0 = Err.Number
On Error GoTo 0
If i0<> 0 Then
' erreur :
If i0 = 1004 Then
MsgBox "Le classeur [" & Classeur_Source & "] n'existe pas ! ", vbCritical, "Anomalie"
i0 = -1 ' Pointeur pour test en sortie de la boucle for/next
Exit for
Else
Err.Raise i0 ' autre erreur envoie un message système et fin
End
End If
End If
....
next i
if i0=-1 then
MsgBox "Opération abandonnée", vbCritical, "Anomalie"
exit sub
end if
... Suite si tout est ok