Je développe un module en VBA Excel et j'ai besoin de rechercher la présence
d'un fichier dans une arborescence.
Exemple rechercher "toto.dll" dans l'arborescence de "c:\Windows". Il peut
être dans c:\windows\system ou autre.
Lorsque je l'ai trouvé, je dois enregistrer le chemin de ce fichiers dans
une vatiable pour l'utiliser un peu plus loin.
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
DJ
Jacques wrote:
Bonjour,
Je développe un module en VBA Excel et j'ai besoin de rechercher la présence d'un fichier dans une arborescence. Exemple rechercher "toto.dll" dans l'arborescence de "c:Windows". Il peut être dans c:windowssystem ou autre.
Lorsque je l'ai trouvé, je dois enregistrer le chemin de ce fichiers dans une vatiable pour l'utiliser un peu plus loin.
Pouvez-vous m'aider ?
Merci d'avance.
Jacques
bonjour, voila une petite fonction sque j'avais bricolé y a quelques temps paramtres: 1- chemin de depart de la recherche "c:" par exemple 2-fichier à rechercher "toto.dll" 3- juste ta variable dans laquelle tu veux le resutat DJ
sub cherche1Fic(ByVal Dossier, ByVal NomFic, ByRef PathRes) Dim MyFSO, Fold, FoldCol, F, FC
Set MyFSO = CreateObject("Scripting.FileSystemObject")
On Error Resume Next Set Fold = MyFSO.getfolder(Dossier) For Each F In Fold.Files
If F.Name = NomFic Then PathRes = F.Path End If Next Set FoldCol = Fold.subfolders For Each Fold In FoldCol Rep = Cherche1Fic(Fold.Path, NomFic, PathRes) Next
End sub
Jacques wrote:
Bonjour,
Je développe un module en VBA Excel et j'ai besoin de rechercher la
présence d'un fichier dans une arborescence.
Exemple rechercher "toto.dll" dans l'arborescence de "c:Windows". Il
peut être dans c:windowssystem ou autre.
Lorsque je l'ai trouvé, je dois enregistrer le chemin de ce fichiers
dans une vatiable pour l'utiliser un peu plus loin.
Pouvez-vous m'aider ?
Merci d'avance.
Jacques
bonjour,
voila une petite fonction sque j'avais bricolé y a quelques temps
paramtres:
1- chemin de depart de la recherche "c:" par exemple
2-fichier à rechercher "toto.dll"
3- juste ta variable dans laquelle tu veux le resutat
DJ
sub cherche1Fic(ByVal Dossier, ByVal NomFic, ByRef PathRes)
Dim MyFSO, Fold, FoldCol, F, FC
Set MyFSO = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set Fold = MyFSO.getfolder(Dossier)
For Each F In Fold.Files
If F.Name = NomFic Then
PathRes = F.Path
End If
Next
Set FoldCol = Fold.subfolders
For Each Fold In FoldCol
Rep = Cherche1Fic(Fold.Path, NomFic, PathRes)
Next
Je développe un module en VBA Excel et j'ai besoin de rechercher la présence d'un fichier dans une arborescence. Exemple rechercher "toto.dll" dans l'arborescence de "c:Windows". Il peut être dans c:windowssystem ou autre.
Lorsque je l'ai trouvé, je dois enregistrer le chemin de ce fichiers dans une vatiable pour l'utiliser un peu plus loin.
Pouvez-vous m'aider ?
Merci d'avance.
Jacques
bonjour, voila une petite fonction sque j'avais bricolé y a quelques temps paramtres: 1- chemin de depart de la recherche "c:" par exemple 2-fichier à rechercher "toto.dll" 3- juste ta variable dans laquelle tu veux le resutat DJ
sub cherche1Fic(ByVal Dossier, ByVal NomFic, ByRef PathRes) Dim MyFSO, Fold, FoldCol, F, FC
Set MyFSO = CreateObject("Scripting.FileSystemObject")
On Error Resume Next Set Fold = MyFSO.getfolder(Dossier) For Each F In Fold.Files
If F.Name = NomFic Then PathRes = F.Path End If Next Set FoldCol = Fold.subfolders For Each Fold In FoldCol Rep = Cherche1Fic(Fold.Path, NomFic, PathRes) Next