G
gabriel
Guest
Bonsoir à tout le Forum,
N'étant pas encore féru de VBA, je rencontre un problème avec 'FileSearch'.
Je désire trouver tous les fichiers .doc d'un répertoire contenant un certain mot et j'obtiens une fenêtre fort désagréable me disant que ce programme à effectué une opération non conforme etc...
Le détail est que Excel a causé une défaillance dans le module kernel32 etc..
Voici le code utilisé:
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub ChercheFichiersXl()
Dim FS As Office.FileSearch
Dim strChemin As String
Dim varNomFichier As Variant
Dim strMessage As String
Dim Compteur As Long
Set FS = Application.FileSearch
strChemin = 'D:\\Mes Documents Ma BOITE\\Factures\\factures 2005'
With FS
.NewSearch
.LookIn = strChemin
.SearchSubFolders = True
.FileType = msoFileTypeWordDocuments
.TextOrProperty = 'Récupération'
.MatchTextExactly = True
.LastModified = msoLastModifiedAnyTime
Compteur = .Execute
strMessage = Format(iCompteur, '0 ''Fichier(s) trouvé(s)''')
For Each varNomFichier In .FoundFiles
strMessage = strMessage & vbCr & varNomFichier
Next varNomFichier
MsgBox strMessage
End With
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Si je commente les lignes '.TextOrProperty = 'Récupération' et '.MatchTextExactly = True alors cela fonctionne mais ça me renvoie évidemment tous les fichiers!
Est ce que je m'y prend mal?
Si vous pouviez m'éclairer ce serait épatant!
En vous remerciant par avance.
Gabriel
N'étant pas encore féru de VBA, je rencontre un problème avec 'FileSearch'.
Je désire trouver tous les fichiers .doc d'un répertoire contenant un certain mot et j'obtiens une fenêtre fort désagréable me disant que ce programme à effectué une opération non conforme etc...
Le détail est que Excel a causé une défaillance dans le module kernel32 etc..
Voici le code utilisé:
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub ChercheFichiersXl()
Dim FS As Office.FileSearch
Dim strChemin As String
Dim varNomFichier As Variant
Dim strMessage As String
Dim Compteur As Long
Set FS = Application.FileSearch
strChemin = 'D:\\Mes Documents Ma BOITE\\Factures\\factures 2005'
With FS
.NewSearch
.LookIn = strChemin
.SearchSubFolders = True
.FileType = msoFileTypeWordDocuments
.TextOrProperty = 'Récupération'
.MatchTextExactly = True
.LastModified = msoLastModifiedAnyTime
Compteur = .Execute
strMessage = Format(iCompteur, '0 ''Fichier(s) trouvé(s)''')
For Each varNomFichier In .FoundFiles
strMessage = strMessage & vbCr & varNomFichier
Next varNomFichier
MsgBox strMessage
End With
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Si je commente les lignes '.TextOrProperty = 'Récupération' et '.MatchTextExactly = True alors cela fonctionne mais ça me renvoie évidemment tous les fichiers!
Est ce que je m'y prend mal?
Si vous pouviez m'éclairer ce serait épatant!
En vous remerciant par avance.
Gabriel