Tester si un fichier existe en fonction de la valeur d'une cellule

Bonjour

Je souhaite faire une recherche dans un répertoire en fonction de la valeur d'une cellule, par exemple, si la valeur de la cellule C5 est présente dans le répertoire alors G5 = "OUI" sinon G5=""
Voila ce que j'ai fait, ça fonctionne pour une cellule en particulier mais je n'arrive pas à l’incrémenter pour toutes les cellules de la feuille:

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub AUDIT() Dim i As Integer For i = 1 To 20 If Dir("C:/Documents") = Cells(i, 2) Then Cells(i, 7) = "" Else Cells(i, 7) = "OUI" End If Next End Sub

---

Merci d'avance

Jérémy

Salut, avec qqch du genre :

Code:

---

1 2 3

Private Function ExistenceFichier(sFichier As String) As Boolean ExistenceFichier = Dir$(sFichier) <> "" End Function

---

Bonjour mrhelp, kiki29,

Qu'est-ce que j'ai à apprendre encore ! :aie:
Ca parait bête mais je suis impressionné de ton code kiki29 !

J'ai l'ai repris parce que j'y croyais pas à la base... :aie:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Option Explicit   Private Function ExistenceFichier(sFichier As String) As Boolean ExistenceFichier = Dir$(sFichier) <> "" End Function   Sub presence() Dim i As Integer Dim oRng As Range Dim oChem As String   oChem = "C:\Users\...\Desktop\test"   With Worksheets("Feuil1") Set oRng = .Range("C5") For i = 0 To .Cells(Rows.Count, oRng.Column).End(xlUp).Row - oRng.Row 'Si en G5 tu n'as pas les extensions (les ".xls") If ExistenceFichier(oChem & "\" & oRng.Offset(i, 0) & "*") Then 'If ExistenceFichier(oChem & "\" & oRng.Offset(i, 0)) Then oRng.Offset(i, 4) = "oui" Else oRng.Offset(i, 4) = "" End If Next i End With   End Sub

---

Ca aidera mrhelp ! :ccool:

Cordialement,
Kimy

Bonjour,

En partant de la proposition de kiki et si tu veux "OUI" dans la cellule, à mettre dans un module standard :

Code:

---

1 2 3 4 5 6 7 8

Function AUDIT(Dossier As String, Cel As Range) As String   Application.Volatile   If Dir(Dossier & Cel.Value) <> "" Then AUDIT = "OUI"   End Function

---

et dans les cellules de ta feuille tu appelles la fonction de cette façon (fonction à tirer vers le bas) :

Code:

---

1 2	=AUDIT("C:\Documents\";B2)

---

Hervé.