VBA liste de fichiers

Re bonjour,

Que de demandes aujourd'hui...

J'ai un autre souci: je voudrais bien m'assurer de l'existence de certains fichiers sur mon ordinateur. je sais chercher un nom de fichier:voici mon bout de macro:

Private Sub recherche_Click()
With Application.FileSearch
.LookIn = "mon répertoire"
.Filename = "*.pdf" '
.SearchSubFolders = True
.Execute
MsgBox ("" & .FoundFiles.Count & _
" confirmations signées ont été trouvées")
For i = 1 To .FoundFiles.Count
Cells(i + 2, 1) = .FoundFiles(i)
Next
End With
End Sub

Mais là, ma requête est différente:

Dans ma colonne G, ma liste de fichiers fait 5 000 lignes. Comment dire à l'ordinateur: tu recherches G1 et tu mets son adresse réseau en H1 et ensuite tu passes à G2... jusqu'à ce qu'il n'y ai plus rien à vérifier. Je ne m'y connais pas assez en VBA pour faire cela...

D'avance merci pour vos réponses,

Souri84

Bonsoir,

Dans ta colonne G, ce sont des noms de fichiers avec un lien ou non ?

A te lire

Dan

Bonjour souri84, Nad-Dan, et vous tous membres et visiteurs des mordus d'Excel

J’avais un petit truc

Pioché je ne sais où sur le net et aménagé a ma sauce

https://www.excel-pratique.com/~files/doc/Liste_des_fichiers_sur_.xls

Si cela peut aider

Cordialement

Alain

Salut le forum

Si c'est pour créer un lien hypertexte un début de solution

Sub recherche_Click()
With Application.FileSearch
.LookIn = "C:\"
.Filename = ActiveCell & ".pdf"
.SearchSubFolders = True
.Execute
For i = 1 To .FoundFiles.Count
ActiveCell.Offset(0, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=.FoundFiles(i), TextToDisplay:=.FoundFiles(i)
Next
End With
End Sub

A te relire

Mytå

Bonsoir Mytå,

Là, c’est une bonne idée complémentaire !

Je garde sous le coude gauche !

Et ce match de hockey ! Gagné ?

Dans tous les cas c’est oui ! La participation c’est bien le principal

Cordialement

Alain

désolé de répondre tardivement, dans ma colonneG, les noms sont sans liens...

Sinon merci également à Myta puisque ce bout de code va me servir pour plus tard...

Salut le forum

Souri84 cette macro devrait faire le travail demandé (Ne fonctionne pas sous Excel2007)

Sub recherche_Click()
Dim Cellule As Range
Dim I As Byte

For Each Cellule In Range("G1:G" & Range("G65536").End(3).Row)
  With Application.FileSearch
    .LookIn = "C:\" 'Mettre la lettre du lecteur réseau
    .Filename = Cellule & ".pdf"
    .SearchSubFolders = True
    .Execute

      For I = 1 To .FoundFiles.Count
        Cellule.Offset(0, 1) = .FoundFiles(I)
      Next I

  End With

Next Cellule
End Sub

A te relire

Mytå

je m'en vais du boulot là,

je testerai cela demain matin car là je suis un peu naze... et je vais maintenant me taper les grèves de métro... le charme parisien ^^

Une personne du service informatique à traiter la question ce matin (en moins de 30 minutes chrono, il a fait une macro du tonnerre...)

j'essaierai de mettre le code sur le forum (elle est vraiment bien et jamais je n'aurais su faire cela...)

Merci à Myta et tous les autres de s'être attarder sur mon problème,

Bonne soirée,

Souri84