Recherche de fichiers contenant valeur d'une celulle

Le 17/08/2009 à 10:19

Bonjour à tous !

je n'ai pas trouvé solution à mon probleme dans le forum

Je cherche à automatiser une recherche.

J'ai une liste dans excel, ( ex : Colonne A),

je souhaite pour cette liste lancer une recherche dans un dossier du ou des fichiers contenant la valeur en A1, A2, A3 etc...

et dans la mesure du possible avoir en B1 le lien vers le fichier ou se trouve la valeur A1.

ce qui meviterai de chercher via windows et de repeter la manipulation environ 7000 fois. (7000 etant le nombre de lignes de ma liste.)

Quite à laisser tourner la macro sur un pc en temps masqué....

Je pense que ca doit pas etre compliqué... mais vu mes connaissances...

Ci dessous un lien vers un fichier exemple....

https://www.excel-pratique.com/~files/doc2/lNbjKlien_recherche_fichier.xls

D'avance merci à tous

Le 17/08/2009 à 20:38

Bonjour à tous,

Voir fichier adapté avec un code de Boisgontier : https://www.excel-pratique.com/~files/doc2/MLAQclNbjKlien_recherche_fichier_v1.xls

Je te conseille d'aller visiter le site du grand excelliste Boisgontier dans la rubrique "Fichiers & répertoires(vba)" : http://boisgontierjacques.free.fr/

Le 18/08/2009 à 09:15

WAAAAAA ! ! ! !

La grande classe !

Bonjour à tous !

Par contre est ce faisable de changer le "chemin" en c:.... et specifier un emplacement ?

Le 18/08/2009 à 10:09

vba-new a écrit :
Bonjour à tous,
Voir fichier adapté avec un code de Boisgontier : https://www.excel-pratique.com/~files/doc2/MLAQclNbjKlien_recherche_fichier_v1.xls
Je te conseille d'aller visiter le site du grand excelliste Boisgontier dans la rubrique "Fichiers & répertoires(vba)" : http://boisgontierjacques.free.fr/

reBonjour...

ma question etait pas pertinante...

oublions.

j'ai fait des essais.

Le code va bien chercher dans les sous repertoires.

par contre sur 4 valeurs que je lui demande d'aller chercher il ne m'en trouve qu'une seule .

serai ce dù à la tempo ?

a t'elle un lien?

d'autant que je sais que les informations que je cherche existent...

quand je lance la recherche via windows c'est tres long.

et en passant pas VBA c'est tres court meme si il ne trouve rien

Le 18/08/2009 à 21:49

bomaletoi a écrit :
vba-new a écrit :
par contre sur 4 valeurs que je lui demande d'aller chercher il ne m'en trouve qu'une seule .
serai ce dù à la tempo ?

Qu'est-ce que la tempo??!

Et s'il y a plusieurs fichiers, où voudrais-tu que les liens se mettent?

Le 19/08/2009 à 09:21

Bonjour,

la tempo me sert à rien juste l'indication du temps que le code a mi a trouver...

sans interet.

je suis interressé par le lien du fichier trouvé en colonne B.

si il yen a plusieurs et que c'est faisable... les aligner en Colonne C mais bon deja si j'ai un seul resultat et que le code s'arrete comme une rechercheV au premier resultat deja c'est pas mal...

Le 19/08/2009 à 20:29

Bonjour à tous,

revoici ton fichier mis à jour, quand ya plusieurs fichiers pour un même mot clé, les liens se mettent à la suite en ligne.

Je te laisse tester : https://www.excel-pratique.com/~files/doc2/lNbjKlien_recherche_fichier_v2.xls

Le 20/08/2009 à 09:21

Bonjour à tous !

Je te remercie pour ton coup de patte.

PAr contre le code va toujours chercher dans le nom de fichier...

et j'ai besoin qu'il aille chercher dans le fichier c'est la difficulté apparement.

j'ai le code que tu m'as envoyé qui semble le faire mais je sais pas l'adapter...

Sub essai2()
   contenu = InputBox("contenu cherché?")
   masque = InputBox("Masque *.xls")
   If masque = "" Then masque = "*.*"
   repertoire = InputBox("Répertoire?")
   If repertoire = "" Then repertoire = "c:\"
   If contenu <> "" Then
     RechercheContenu repertoire, contenu, masque
   End If
End Sub

Sub RechercheContenu(chemin, contenu, masque)
    Dim FS, I As Integer
    Set FS = Application.FileSearch
    FS.NewSearch
    FS.LookIn = chemin
    FS.SearchSubFolders = True
    FS.TextOrProperty = contenu
    FS.Filename = masque
    FS.MatchTextExactly = False
    If FS.Execute > 0 Then
      For I = 1 To FS.FoundFiles.Count
        MsgBox Application.FileSearch.FoundFiles(I)
      Next I
    End If
End Sub

Recherche un répertoire (FileSystemObject

PAr contre ce code ouvre une boite de dialogue et ne permets pas de chercher une liste....

Le 20/08/2009 à 12:01

Bonjour,

Euh... te trompes-tu de forum?

Je ne reconnais pas du tout le code que tu as posté!

Mis à part ça, chercher un mot dans un fichier avec excel je sais pas faire

Le 20/08/2009 à 12:57

C'est le lien vers Boisgontier que tu m'as envoyé lundi soir...

have look.

j'ai l'impression que pas grand monde ne sait le faire....

c'est moche !

héhéhé