Existe-t-il un moyen (logiciel ou autre) pour trouver un fichier dans un
répertoire en indiquant une expression contenue dans ledit fichier?
J'ai déjà vu ce mode de recherche avec un logiciel fonctionnant sur EPOC
(Psion S5)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour DanGaut,
voie à Démarrer, Recherche, inscrire l'expression dans la case "Contenant le texte" choisir le répertoire "Rechercher dans:"
isabelle
Bonjour,
Existe-t-il un moyen (logiciel ou autre) pour trouver un fichier dans un répertoire en indiquant une expression contenue dans ledit fichier? J'ai déjà vu ce mode de recherche avec un logiciel fonctionnant sur EPOC (Psion S5)
Merci pour vos réponses.
bonjour DanGaut,
voie à Démarrer, Recherche,
inscrire l'expression dans la case "Contenant le texte"
choisir le répertoire "Rechercher dans:"
isabelle
Bonjour,
Existe-t-il un moyen (logiciel ou autre) pour trouver un fichier dans un
répertoire en indiquant une expression contenue dans ledit fichier?
J'ai déjà vu ce mode de recherche avec un logiciel fonctionnant sur EPOC
(Psion S5)
voie à Démarrer, Recherche, inscrire l'expression dans la case "Contenant le texte" choisir le répertoire "Rechercher dans:"
isabelle
Bonjour,
Existe-t-il un moyen (logiciel ou autre) pour trouver un fichier dans un répertoire en indiquant une expression contenue dans ledit fichier? J'ai déjà vu ce mode de recherche avec un logiciel fonctionnant sur EPOC (Psion S5)
Merci pour vos réponses.
michdenis
Bonjour DanGaut,
'------------------------- Sub TrouverUneExpression()
With Application.FileSearch .NewSearch 'Chemin du Répertoire de recherche .LookIn = "c:excel" 'Recherche dans les sous-répertoires .SearchSubFolders = False 'Seulement dans les Fichiers .xls .Filename = "*.xls" 'Expression Rechercher .TextOrProperty = "Toto" 'Recherche expression exacte ... .MatchTextExactly = True If .Execute(msoSortByFileName) > 0 Then a = a + 1 Range("A" & a) = .FoundFiles(a) Else MsgBox "Aucune correspondance trouvée !" End If End With
End Sub '----------------------
Salutations!
"DanGaut" a écrit dans le message de news:zzIvc.49484$ Bonjour,
Existe-t-il un moyen (logiciel ou autre) pour trouver un fichier dans un répertoire en indiquant une expression contenue dans ledit fichier? J'ai déjà vu ce mode de recherche avec un logiciel fonctionnant sur EPOC (Psion S5)
Merci pour vos réponses.
Bonjour DanGaut,
'-------------------------
Sub TrouverUneExpression()
With Application.FileSearch
.NewSearch
'Chemin du Répertoire de recherche
.LookIn = "c:excel"
'Recherche dans les sous-répertoires
.SearchSubFolders = False
'Seulement dans les Fichiers .xls
.Filename = "*.xls"
'Expression Rechercher
.TextOrProperty = "Toto"
'Recherche expression exacte ...
.MatchTextExactly = True
If .Execute(msoSortByFileName) > 0 Then
a = a + 1
Range("A" & a) = .FoundFiles(a)
Else
MsgBox "Aucune correspondance trouvée !"
End If
End With
End Sub
'----------------------
Salutations!
"DanGaut" <dangaut@tele2.fr> a écrit dans le message de news:zzIvc.49484$zm5.25103@nntpserver.swip.net...
Bonjour,
Existe-t-il un moyen (logiciel ou autre) pour trouver un fichier dans un
répertoire en indiquant une expression contenue dans ledit fichier?
J'ai déjà vu ce mode de recherche avec un logiciel fonctionnant sur EPOC
(Psion S5)
'------------------------- Sub TrouverUneExpression()
With Application.FileSearch .NewSearch 'Chemin du Répertoire de recherche .LookIn = "c:excel" 'Recherche dans les sous-répertoires .SearchSubFolders = False 'Seulement dans les Fichiers .xls .Filename = "*.xls" 'Expression Rechercher .TextOrProperty = "Toto" 'Recherche expression exacte ... .MatchTextExactly = True If .Execute(msoSortByFileName) > 0 Then a = a + 1 Range("A" & a) = .FoundFiles(a) Else MsgBox "Aucune correspondance trouvée !" End If End With
End Sub '----------------------
Salutations!
"DanGaut" a écrit dans le message de news:zzIvc.49484$ Bonjour,
Existe-t-il un moyen (logiciel ou autre) pour trouver un fichier dans un répertoire en indiquant une expression contenue dans ledit fichier? J'ai déjà vu ce mode de recherche avec un logiciel fonctionnant sur EPOC (Psion S5)
Merci pour vos réponses.
michdenis
Ok , j'ai oublié la boucle dans le cas où plusieurs fichiers correspondent à la demande !
Sub TrouverUneExpression()
Dim A As Integer, B As Integer With Application.FileSearch .NewSearch 'Chemin du Répertoire de recherche .LookIn = "c:excel" 'Recherche dans les sous-répertoires .SearchSubFolders = False 'Seulement dans les Fichiers .xls .Filename = "*.xls" 'Expression Rechercher .TextOrProperty = "Toto" 'Recherche expression exacte ... .MatchTextExactly = True If .Execute(msoSortByFileName) > 0 Then B = .FoundFiles.Count For A = 1 To B Range("A" & A) = .FoundFiles(A) A = A + 1 Next Else MsgBox "Aucune correspondance trouvée !" End If End With
End Sub
Salutations!
"michdenis" a écrit dans le message de news: Bonjour DanGaut,
'------------------------- Sub TrouverUneExpression()
With Application.FileSearch .NewSearch 'Chemin du Répertoire de recherche .LookIn = "c:excel" 'Recherche dans les sous-répertoires .SearchSubFolders = False 'Seulement dans les Fichiers .xls .Filename = "*.xls" 'Expression Rechercher .TextOrProperty = "Toto" 'Recherche expression exacte ... .MatchTextExactly = True If .Execute(msoSortByFileName) > 0 Then a = a + 1 Range("A" & a) = .FoundFiles(a) Else MsgBox "Aucune correspondance trouvée !" End If End With
End Sub '----------------------
Salutations!
"DanGaut" a écrit dans le message de news:zzIvc.49484$ Bonjour,
Existe-t-il un moyen (logiciel ou autre) pour trouver un fichier dans un répertoire en indiquant une expression contenue dans ledit fichier? J'ai déjà vu ce mode de recherche avec un logiciel fonctionnant sur EPOC (Psion S5)
Merci pour vos réponses.
Ok , j'ai oublié la boucle dans le cas où plusieurs fichiers correspondent à la demande !
Sub TrouverUneExpression()
Dim A As Integer, B As Integer
With Application.FileSearch
.NewSearch
'Chemin du Répertoire de recherche
.LookIn = "c:excel"
'Recherche dans les sous-répertoires
.SearchSubFolders = False
'Seulement dans les Fichiers .xls
.Filename = "*.xls"
'Expression Rechercher
.TextOrProperty = "Toto"
'Recherche expression exacte ...
.MatchTextExactly = True
If .Execute(msoSortByFileName) > 0 Then
B = .FoundFiles.Count
For A = 1 To B
Range("A" & A) = .FoundFiles(A)
A = A + 1
Next
Else
MsgBox "Aucune correspondance trouvée !"
End If
End With
End Sub
Salutations!
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:eTG8FMZSEHA.808@tk2msftngp13.phx.gbl...
Bonjour DanGaut,
'-------------------------
Sub TrouverUneExpression()
With Application.FileSearch
.NewSearch
'Chemin du Répertoire de recherche
.LookIn = "c:excel"
'Recherche dans les sous-répertoires
.SearchSubFolders = False
'Seulement dans les Fichiers .xls
.Filename = "*.xls"
'Expression Rechercher
.TextOrProperty = "Toto"
'Recherche expression exacte ...
.MatchTextExactly = True
If .Execute(msoSortByFileName) > 0 Then
a = a + 1
Range("A" & a) = .FoundFiles(a)
Else
MsgBox "Aucune correspondance trouvée !"
End If
End With
End Sub
'----------------------
Salutations!
"DanGaut" <dangaut@tele2.fr> a écrit dans le message de news:zzIvc.49484$zm5.25103@nntpserver.swip.net...
Bonjour,
Existe-t-il un moyen (logiciel ou autre) pour trouver un fichier dans un
répertoire en indiquant une expression contenue dans ledit fichier?
J'ai déjà vu ce mode de recherche avec un logiciel fonctionnant sur EPOC
(Psion S5)
Ok , j'ai oublié la boucle dans le cas où plusieurs fichiers correspondent à la demande !
Sub TrouverUneExpression()
Dim A As Integer, B As Integer With Application.FileSearch .NewSearch 'Chemin du Répertoire de recherche .LookIn = "c:excel" 'Recherche dans les sous-répertoires .SearchSubFolders = False 'Seulement dans les Fichiers .xls .Filename = "*.xls" 'Expression Rechercher .TextOrProperty = "Toto" 'Recherche expression exacte ... .MatchTextExactly = True If .Execute(msoSortByFileName) > 0 Then B = .FoundFiles.Count For A = 1 To B Range("A" & A) = .FoundFiles(A) A = A + 1 Next Else MsgBox "Aucune correspondance trouvée !" End If End With
End Sub
Salutations!
"michdenis" a écrit dans le message de news: Bonjour DanGaut,
'------------------------- Sub TrouverUneExpression()
With Application.FileSearch .NewSearch 'Chemin du Répertoire de recherche .LookIn = "c:excel" 'Recherche dans les sous-répertoires .SearchSubFolders = False 'Seulement dans les Fichiers .xls .Filename = "*.xls" 'Expression Rechercher .TextOrProperty = "Toto" 'Recherche expression exacte ... .MatchTextExactly = True If .Execute(msoSortByFileName) > 0 Then a = a + 1 Range("A" & a) = .FoundFiles(a) Else MsgBox "Aucune correspondance trouvée !" End If End With
End Sub '----------------------
Salutations!
"DanGaut" a écrit dans le message de news:zzIvc.49484$ Bonjour,
Existe-t-il un moyen (logiciel ou autre) pour trouver un fichier dans un répertoire en indiquant une expression contenue dans ledit fichier? J'ai déjà vu ce mode de recherche avec un logiciel fonctionnant sur EPOC (Psion S5)
