Je développe un module en VBA Excel et j'ai besoin de rechercher la présnce
d'un fichier dans une arborescence.
Exemple rechercher "toto.dll" dans l'arborescence de "c:\Windows".
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
anonymousA
bonjour,
dans ce qui suit , ce qui est important par rappport à ta demande c'est SearchSubFolders
Set fs = Application.FileSearch With fs .LookIn = "C:WIndows" .SearchSubFolders = True .FileName = "toto.dll" If .Execute() > 0 Then MsgBox "Il y a " & .FoundFiles.Count & _ " fichiers trouvés." For i = 1 To .FoundFiles.Count MsgBox .FoundFiles(i) Next i Else MsgBox "Il n'existe pas de fichiers à ce nom dans ce répertoire ni dans les répertoires fils." End If End With
Ensuite déduire le chemin est un jeu d'enfant.
A+
Bonjour,
Je développe un module en VBA Excel et j'ai besoin de rechercher la présnce d'un fichier dans une arborescence. Exemple rechercher "toto.dll" dans l'arborescence de "c:Windows". 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,
dans ce qui suit , ce qui est important par rappport à ta demande c'est
SearchSubFolders
Set fs = Application.FileSearch
With fs
.LookIn = "C:WIndows"
.SearchSubFolders = True
.FileName = "toto.dll"
If .Execute() > 0 Then
MsgBox "Il y a " & .FoundFiles.Count & _
" fichiers trouvés."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "Il n'existe pas de fichiers à ce nom dans ce répertoire ni
dans les répertoires fils."
End If
End With
Ensuite déduire le chemin est un jeu d'enfant.
A+
Bonjour,
Je développe un module en VBA Excel et j'ai besoin de rechercher la présnce
d'un fichier dans une arborescence.
Exemple rechercher "toto.dll" dans l'arborescence de "c:Windows".
Lorsque je l'ai trouvé, je dois enregistrer le chemin de ce fichiers dans
une vatiable pour l'utiliser un peu plus loin.
dans ce qui suit , ce qui est important par rappport à ta demande c'est SearchSubFolders
Set fs = Application.FileSearch With fs .LookIn = "C:WIndows" .SearchSubFolders = True .FileName = "toto.dll" If .Execute() > 0 Then MsgBox "Il y a " & .FoundFiles.Count & _ " fichiers trouvés." For i = 1 To .FoundFiles.Count MsgBox .FoundFiles(i) Next i Else MsgBox "Il n'existe pas de fichiers à ce nom dans ce répertoire ni dans les répertoires fils." End If End With
Ensuite déduire le chemin est un jeu d'enfant.
A+
Bonjour,
Je développe un module en VBA Excel et j'ai besoin de rechercher la présnce d'un fichier dans une arborescence. Exemple rechercher "toto.dll" dans l'arborescence de "c:Windows". 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
Philippe
Si je puis me permettre : ne pas oublier de cocher la reference à File scipting Object de Outilreferences
Philippe.
bonjour,
dans ce qui suit , ce qui est important par rappport à ta demande c'est SearchSubFolders
Set fs = Application.FileSearch With fs .LookIn = "C:WIndows" .SearchSubFolders = True .FileName = "toto.dll" If .Execute() > 0 Then MsgBox "Il y a " & .FoundFiles.Count & _ " fichiers trouvés." For i = 1 To .FoundFiles.Count MsgBox .FoundFiles(i) Next i Else MsgBox "Il n'existe pas de fichiers à ce nom dans ce répertoire ni dans les répertoires fils." End If End With
Ensuite déduire le chemin est un jeu d'enfant.
A+
Bonjour,
Je développe un module en VBA Excel et j'ai besoin de rechercher la présnce d'un fichier dans une arborescence. Exemple rechercher "toto.dll" dans l'arborescence de "c:Windows". 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
Si je puis me permettre : ne pas oublier de cocher la reference à File
scipting Object de Outilreferences
Philippe.
bonjour,
dans ce qui suit , ce qui est important par rappport à ta demande c'est
SearchSubFolders
Set fs = Application.FileSearch
With fs
.LookIn = "C:WIndows"
.SearchSubFolders = True
.FileName = "toto.dll"
If .Execute() > 0 Then
MsgBox "Il y a " & .FoundFiles.Count & _
" fichiers trouvés."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "Il n'existe pas de fichiers à ce nom dans ce répertoire ni
dans les répertoires fils."
End If
End With
Ensuite déduire le chemin est un jeu d'enfant.
A+
Bonjour,
Je développe un module en VBA Excel et j'ai besoin de rechercher la présnce
d'un fichier dans une arborescence.
Exemple rechercher "toto.dll" dans l'arborescence de "c:Windows".
Lorsque je l'ai trouvé, je dois enregistrer le chemin de ce fichiers dans
une vatiable pour l'utiliser un peu plus loin.
Si je puis me permettre : ne pas oublier de cocher la reference à File scipting Object de Outilreferences
Philippe.
bonjour,
dans ce qui suit , ce qui est important par rappport à ta demande c'est SearchSubFolders
Set fs = Application.FileSearch With fs .LookIn = "C:WIndows" .SearchSubFolders = True .FileName = "toto.dll" If .Execute() > 0 Then MsgBox "Il y a " & .FoundFiles.Count & _ " fichiers trouvés." For i = 1 To .FoundFiles.Count MsgBox .FoundFiles(i) Next i Else MsgBox "Il n'existe pas de fichiers à ce nom dans ce répertoire ni dans les répertoires fils." End If End With
Ensuite déduire le chemin est un jeu d'enfant.
A+
Bonjour,
Je développe un module en VBA Excel et j'ai besoin de rechercher la présnce d'un fichier dans une arborescence. Exemple rechercher "toto.dll" dans l'arborescence de "c:Windows". 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
anonymousA
bonjour,
ce n'est pas à priori nécessaire, étenat entendu queFilesearch est une propréité memebre de la classe Excel.Aplpication
A+
Si je puis me permettre : ne pas oublier de cocher la reference à File scipting Object de Outilreferences
Philippe.
bonjour,
dans ce qui suit , ce qui est important par rappport à ta demande c'est SearchSubFolders
Set fs = Application.FileSearch With fs .LookIn = "C:WIndows" .SearchSubFolders = True .FileName = "toto.dll" If .Execute() > 0 Then MsgBox "Il y a " & .FoundFiles.Count & _ " fichiers trouvés." For i = 1 To .FoundFiles.Count MsgBox .FoundFiles(i) Next i Else MsgBox "Il n'existe pas de fichiers à ce nom dans ce répertoire ni dans les répertoires fils." End If End With
Ensuite déduire le chemin est un jeu d'enfant.
A+
Bonjour,
Je développe un module en VBA Excel et j'ai besoin de rechercher la présnce d'un fichier dans une arborescence. Exemple rechercher "toto.dll" dans l'arborescence de "c:Windows". 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,
ce n'est pas à priori nécessaire, étenat entendu queFilesearch est une
propréité memebre de la classe Excel.Aplpication
A+
Si je puis me permettre : ne pas oublier de cocher la reference à File
scipting Object de Outilreferences
Philippe.
bonjour,
dans ce qui suit , ce qui est important par rappport à ta demande c'est
SearchSubFolders
Set fs = Application.FileSearch
With fs
.LookIn = "C:WIndows"
.SearchSubFolders = True
.FileName = "toto.dll"
If .Execute() > 0 Then
MsgBox "Il y a " & .FoundFiles.Count & _
" fichiers trouvés."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "Il n'existe pas de fichiers à ce nom dans ce répertoire ni
dans les répertoires fils."
End If
End With
Ensuite déduire le chemin est un jeu d'enfant.
A+
Bonjour,
Je développe un module en VBA Excel et j'ai besoin de rechercher la présnce
d'un fichier dans une arborescence.
Exemple rechercher "toto.dll" dans l'arborescence de "c:Windows".
Lorsque je l'ai trouvé, je dois enregistrer le chemin de ce fichiers dans
une vatiable pour l'utiliser un peu plus loin.
ce n'est pas à priori nécessaire, étenat entendu queFilesearch est une propréité memebre de la classe Excel.Aplpication
A+
Si je puis me permettre : ne pas oublier de cocher la reference à File scipting Object de Outilreferences
Philippe.
bonjour,
dans ce qui suit , ce qui est important par rappport à ta demande c'est SearchSubFolders
Set fs = Application.FileSearch With fs .LookIn = "C:WIndows" .SearchSubFolders = True .FileName = "toto.dll" If .Execute() > 0 Then MsgBox "Il y a " & .FoundFiles.Count & _ " fichiers trouvés." For i = 1 To .FoundFiles.Count MsgBox .FoundFiles(i) Next i Else MsgBox "Il n'existe pas de fichiers à ce nom dans ce répertoire ni dans les répertoires fils." End If End With
Ensuite déduire le chemin est un jeu d'enfant.
A+
Bonjour,
Je développe un module en VBA Excel et j'ai besoin de rechercher la présnce d'un fichier dans une arborescence. Exemple rechercher "toto.dll" dans l'arborescence de "c:Windows". Lorsque je l'ai trouvé, je dois enregistrer le chemin de ce fichiers dans une vatiable pour l'utiliser un peu plus loin.
