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 ..
Merci d’avance
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é nexiste pas.") End Sub
Partager