beatrice2fr
XLDnaute Nouveau
bonjour
Tout d'abord, j'espere etre au bon forum pour les vba.
Etant debutante dans ce domaine, je m'adresse a vous pour m'aider a resoudre mon probleme.
je voudrai par macro rechercher dans un repertoire ( Mes documents) ainsi que dans les dossiers qui y sont stockés, tous les xls d'un meme auteur (toto). J'ai recupéré le code ci apres, mais je n'arrive pas a l'adapter a mes besoin, car il ne cherche pas dans les sous dossiers et au lieu de m'afficher le nom de tous les auteurs, il faudrai qu'il lance la macro1, pour seulement les xls de "toto".
j' espere etre suffisement precise, en vous remerciant d'avance pour vos suggestions
Tout d'abord, j'espere etre au bon forum pour les vba.
Etant debutante dans ce domaine, je m'adresse a vous pour m'aider a resoudre mon probleme.
je voudrai par macro rechercher dans un repertoire ( Mes documents) ainsi que dans les dossiers qui y sont stockés, tous les xls d'un meme auteur (toto). J'ai recupéré le code ci apres, mais je n'arrive pas a l'adapter a mes besoin, car il ne cherche pas dans les sous dossiers et au lieu de m'afficher le nom de tous les auteurs, il faudrai qu'il lance la macro1, pour seulement les xls de "toto".
j' espere etre suffisement precise, en vous remerciant d'avance pour vos suggestions
Code:
Sub proprietesFichiers()
'
'Necessite d'activer la reference Microsoft Shell Controls and Automation
'
Dim objShell As Object, strFileName As Object
Dim objFolder As Folder
Dim Resultat As String
Dim i As Byte
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("C:\Documents and Settings\Mes documents")
For Each strFileName In objFolder.Items
If strFileName.isFolder = False Then
Resultat = ""
For i = 9 To 9
Resultat = Resultat & objFolder.getDetailsOf(strFileName, i) & vbLf
Next
MsgBox Resultat
End If
Next
End Sub