Help!! Macro de recherche d'1 string avec parcours de fichiers TXT
4 réponses
Chouka
Bonjour,
Je cherche au travers d'un programme vba Excel, =E0=20
effectuer la recherche d'une valeur (string) dans un=20
ensemble de fichiers texte contenus dans un r=E9pertoire=20
unique, puis =E0 r=E9cup=E9rer dans excel le nom du fichier=20
contenant cette valeur.
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Chouka" a écrit dans le message de news:0b5101c39eee$f8094cf0$ Bonjour,
Je cherche au travers d'un programme vba Excel, à effectuer la recherche d'une valeur (string) dans un ensemble de fichiers texte contenus dans un répertoire unique, puis à récupérer dans excel le nom du fichier contenant cette valeur.
Merci pour votre aide
Bonjour,
Il y a beaucoup de choses, sur les fichiers notamment, qui pourraient t'intéresser à cette adresse :
http://perso.wanadoo.fr/frederic.sigonneau/
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Chouka" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:0b5101c39eee$f8094cf0$a301280a@phx.gbl...
Bonjour,
Je cherche au travers d'un programme vba Excel, à
effectuer la recherche d'une valeur (string) dans un
ensemble de fichiers texte contenus dans un répertoire
unique, puis à récupérer dans excel le nom du fichier
contenant cette valeur.
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Chouka" a écrit dans le message de news:0b5101c39eee$f8094cf0$ Bonjour,
Je cherche au travers d'un programme vba Excel, à effectuer la recherche d'une valeur (string) dans un ensemble de fichiers texte contenus dans un répertoire unique, puis à récupérer dans excel le nom du fichier contenant cette valeur.
Merci pour votre aide
j
ben pourquoi tu le renvoie sur un magasin de lingerie et de strings ?
"Philippe.R" a écrit dans le message de news:
Bonjour, Il y a beaucoup de choses, sur les fichiers notamment, qui pourraient t'intéresser à cette adresse :
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Chouka" a écrit dans le message de news:0b5101c39eee$f8094cf0$ Bonjour,
Je cherche au travers d'un programme vba Excel, à effectuer la recherche d'une valeur (string) dans un ensemble de fichiers texte contenus dans un répertoire unique, puis à récupérer dans excel le nom du fichier contenant cette valeur.
Merci pour votre aide
ben pourquoi tu le renvoie sur un magasin de lingerie et de strings ?
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de news:
uTwonH3nDHA.2304@TK2MSFTNGP11.phx.gbl...
Bonjour,
Il y a beaucoup de choses, sur les fichiers notamment, qui pourraient
t'intéresser à cette adresse :
http://perso.wanadoo.fr/frederic.sigonneau/
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Chouka" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:0b5101c39eee$f8094cf0$a301280a@phx.gbl...
Bonjour,
Je cherche au travers d'un programme vba Excel, à
effectuer la recherche d'une valeur (string) dans un
ensemble de fichiers texte contenus dans un répertoire
unique, puis à récupérer dans excel le nom du fichier
contenant cette valeur.
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Chouka" a écrit dans le message de news:0b5101c39eee$f8094cf0$ Bonjour,
Je cherche au travers d'un programme vba Excel, à effectuer la recherche d'une valeur (string) dans un ensemble de fichiers texte contenus dans un répertoire unique, puis à récupérer dans excel le nom du fichier contenant cette valeur.
Merci pour votre aide
Philippe.R
J'avais cru comprendre que c'était le type de produit recherché ; me trompé-je ? -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002
"" a écrit dans le message de news:
ben pourquoi tu le renvoie sur un magasin de lingerie et de strings ?
"Philippe.R" a écrit dans le message de news:
Bonjour, Il y a beaucoup de choses, sur les fichiers notamment, qui pourraient t'intéresser à cette adresse :
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Chouka" a écrit dans le message de news:0b5101c39eee$f8094cf0$ Bonjour,
Je cherche au travers d'un programme vba Excel, à effectuer la recherche d'une valeur (string) dans un ensemble de fichiers texte contenus dans un répertoire unique, puis à récupérer dans excel le nom du fichier contenant cette valeur.
Merci pour votre aide
J'avais cru comprendre que c'était le type de produit recherché ; me trompé-je ?
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
"j@c" <jacques.chaussard@noos.fr> a écrit dans le message de
news:OYx9eV3nDHA.1284@TK2MSFTNGP09.phx.gbl...
ben pourquoi tu le renvoie sur un magasin de lingerie et de strings ?
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de news:
uTwonH3nDHA.2304@TK2MSFTNGP11.phx.gbl...
Bonjour,
Il y a beaucoup de choses, sur les fichiers notamment, qui pourraient
t'intéresser à cette adresse :
http://perso.wanadoo.fr/frederic.sigonneau/
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Chouka" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:0b5101c39eee$f8094cf0$a301280a@phx.gbl...
Bonjour,
Je cherche au travers d'un programme vba Excel, à
effectuer la recherche d'une valeur (string) dans un
ensemble de fichiers texte contenus dans un répertoire
unique, puis à récupérer dans excel le nom du fichier
contenant cette valeur.
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Chouka" a écrit dans le message de news:0b5101c39eee$f8094cf0$ Bonjour,
Je cherche au travers d'un programme vba Excel, à effectuer la recherche d'une valeur (string) dans un ensemble de fichiers texte contenus dans un répertoire unique, puis à récupérer dans excel le nom du fichier contenant cette valeur.
Merci pour votre aide
Frédéric Sigonneau
Bonjour,
Une solution qui n'est pas en magasin, mais qui pourrait peut-être te servir, au moins de point de départ :
'======================= Sub test() ChercheMotsDansFichiers "d:fsdatas 6OfficeVBA 4Modules", "Recherche fichiers" End Sub
Sub ChercheMotsDansFichiers(Dossier, MotCle) Dim Sht As Worksheet
With Application.FileSearch .NewSearch .LookIn = Dossier .SearchSubFolders = True .FileType = msoFileTypeAllFiles .TextOrProperty = MotCle If .Execute() > 0 Then Workbooks.Add Set Sht = ActiveWorkbook.Worksheets(1) For i = 1 To .FoundFiles.Count Sht.Range("A" & i).Value = .FoundFiles(i) Sht.Hyperlinks.Add Anchor:=Sht.Range("A" & i), Address:=.FoundFiles(i) Next i Sht.Columns(1).AutoFit Sht.Range("A1").Select Sht.Range("B1").Value = " " & _ .FoundFiles.Count _ & " fichier(s) trouvé(s) avec le(s) mot(s) clé(s) """ _ & MotCle & """" Else MsgBox "Aucun fichier avec '" & MotCle & "'." End If End With
End Sub '======================= Ici les résultats sont renvoyés dans un nouveau classeur, avec un lien hypertexte pour pouvoir ouvrir les fichiers trouvés. S'il n'y a qu'une solution possible (un seul fichier contenant la chaîne cherchée) cette présentation est inutile et la procédure peut être simplifiée d'autant.
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
Je cherche au travers d'un programme vba Excel, à effectuer la recherche d'une valeur (string) dans un ensemble de fichiers texte contenus dans un répertoire unique, puis à récupérer dans excel le nom du fichier contenant cette valeur.
Merci pour votre aide
Bonjour,
Une solution qui n'est pas en magasin, mais qui pourrait peut-être te servir, au
moins de point de départ :
'======================= Sub test()
ChercheMotsDansFichiers "d:fsdatas 6OfficeVBA 4Modules", "Recherche
fichiers"
End Sub
Sub ChercheMotsDansFichiers(Dossier, MotCle)
Dim Sht As Worksheet
With Application.FileSearch
.NewSearch
.LookIn = Dossier
.SearchSubFolders = True
.FileType = msoFileTypeAllFiles
.TextOrProperty = MotCle
If .Execute() > 0 Then
Workbooks.Add
Set Sht = ActiveWorkbook.Worksheets(1)
For i = 1 To .FoundFiles.Count
Sht.Range("A" & i).Value = .FoundFiles(i)
Sht.Hyperlinks.Add Anchor:=Sht.Range("A" & i), Address:=.FoundFiles(i)
Next i
Sht.Columns(1).AutoFit
Sht.Range("A1").Select
Sht.Range("B1").Value = " " & _
.FoundFiles.Count _
& " fichier(s) trouvé(s) avec le(s) mot(s) clé(s) """ _
& MotCle & """"
Else
MsgBox "Aucun fichier avec '" & MotCle & "'."
End If
End With
End Sub
'=======================
Ici les résultats sont renvoyés dans un nouveau classeur, avec un lien
hypertexte pour pouvoir ouvrir les fichiers trouvés. S'il n'y a qu'une solution
possible (un seul fichier contenant la chaîne cherchée) cette présentation est
inutile et la procédure peut être simplifiée d'autant.
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
Je cherche au travers d'un programme vba Excel, à
effectuer la recherche d'une valeur (string) dans un
ensemble de fichiers texte contenus dans un répertoire
unique, puis à récupérer dans excel le nom du fichier
contenant cette valeur.
Une solution qui n'est pas en magasin, mais qui pourrait peut-être te servir, au moins de point de départ :
'======================= Sub test() ChercheMotsDansFichiers "d:fsdatas 6OfficeVBA 4Modules", "Recherche fichiers" End Sub
Sub ChercheMotsDansFichiers(Dossier, MotCle) Dim Sht As Worksheet
With Application.FileSearch .NewSearch .LookIn = Dossier .SearchSubFolders = True .FileType = msoFileTypeAllFiles .TextOrProperty = MotCle If .Execute() > 0 Then Workbooks.Add Set Sht = ActiveWorkbook.Worksheets(1) For i = 1 To .FoundFiles.Count Sht.Range("A" & i).Value = .FoundFiles(i) Sht.Hyperlinks.Add Anchor:=Sht.Range("A" & i), Address:=.FoundFiles(i) Next i Sht.Columns(1).AutoFit Sht.Range("A1").Select Sht.Range("B1").Value = " " & _ .FoundFiles.Count _ & " fichier(s) trouvé(s) avec le(s) mot(s) clé(s) """ _ & MotCle & """" Else MsgBox "Aucun fichier avec '" & MotCle & "'." End If End With
End Sub '======================= Ici les résultats sont renvoyés dans un nouveau classeur, avec un lien hypertexte pour pouvoir ouvrir les fichiers trouvés. S'il n'y a qu'une solution possible (un seul fichier contenant la chaîne cherchée) cette présentation est inutile et la procédure peut être simplifiée d'autant.
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
Je cherche au travers d'un programme vba Excel, à effectuer la recherche d'une valeur (string) dans un ensemble de fichiers texte contenus dans un répertoire unique, puis à récupérer dans excel le nom du fichier contenant cette valeur.