Bonjour,

Malgré que le fichier soit inexistant, excel lance l’explorateur pour que je cherche manuellement le fichier.
(Et il me le demande 150 fois car je suis dans une boucle )

J’ai testé avec la fonction erreur mais ca ne fonctionne pas ..

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim Chemin As Variant
 
On Error GoTo erreur
    Worksheets("Etat").Select
    Chemin = "='\\chemin\[AP "
        For I = 2 To 153
        Range("D" & I).FormulaR1C1 = Chemin & Range("E1") & ".xlsx]Procédures_envoyées'!R" & I & "C5"
        Next I
    Worksheets("Accueil").Select
    Exit Sub
 
'mini-programme erreur :
erreur:
MsgBox ("Le fichier avec le nom indiqué n’existe pas.")
 
End Sub
Merci d’avance