Discussion :

[mrhelp]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[kiki29]

Salut, avec qqch du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Kimy_Ire]

Bonjour mrhelp, kiki29,

Qu'est-ce que j'ai à apprendre encore !
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...

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
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 !

Cordialement,
Kimy

[Theze]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Hervé.