Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Rechercher un fichier en connaissant son nom et son extension

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
R

richert90

XLDnaute Occasionnel
Bonjour à tous
Voila ma question:

Comment je peux faire pour qu'à partir du nom d'un fichier et son extension (exemple "test.xlsm") le rechercher sur l'ordinateur (dans tous les répertoires) pour pouvoir récupérer à la fin son chemin complet ? (ex je récupère dans une variable le chemin du répertoire où se situe le fichier cherché: "C:\Mes doc\moi\test.xlsm")

Merci d'avance
 
Trier par date Trier par votes
Re : Rechercher un fichier en connaissant son nom et son extension

Salut

J'avais fait /adapté une macro pour cela: regarde le code ci dessous, si ca peut t'aider

Code: 
Attribute VB_Name = "mChercheFichier"
Sub Recherche(RepertoireCible)
    
    With Application.FileSearch
    
'd'abord rÚinitialiser les critÞres (Attention : Le LookIn ne se rÚinitialise pas comme þa)
    .NewSearch

'Pour mettre Ó jour la liste des dossiers, au cas ou on viendrait de crÚer un nouveau dossier par VBA :
    .RefreshScopes

' Dossier(s) de recherche :
    .LookIn = RepertoireCible
    
' Fichiers Ó rechercher
    .Filename = "userContent.css"

'Le type de fichiers qu'on recherche. Ici, tous, et de toute faþon, on a dÚjÓ filtrÚ avec .FileName.
'Mais on peut par exemple indiquer msoFileTypeExcelWorkbooks qui va extraire tous les fichiers Excel
'(XLA, XLT, XLS, XLW)
    .FileType = msoFileTypeAllFiles

' On va rechercher dans les sous dossiers de RepertoireCible :
    .SearchSubFolders = True
    
' c'est parti :
    .Execute

' Une boucle traditionnelle pour parcourir les fichiers trouvÚs.
' FoundFiles(Ctr) n'a pas de propriÚtÚs.
' Par exemple, pas question d'avoir le nom du fichier sans le dossier, ou mÛme sa date de crÚation
' (en tout cas par la mÚthode FoundFiles)
If (.FoundFiles.Count <> 0) Then
    For Ctr = 1 To .FoundFiles.Count
      Cells(Ctr, 1) = .FoundFiles(Ctr)
    Next
Else: Cells(1, 1) = ""
End If

  
    End With
End Sub
 
Vote positif 0 Vote négatif
Re : Rechercher un fichier en connaissant son nom et son extension

Bonjour,

Merci de votre réponse.
J'ai adapté ce code et je l'ai tester sauf que j'ai une erreur d'exécution '445' pour la ligne:
Code: 
  With Application.FileSearch
'Cet objet ne gère pas cette action.
Comment résoudre ce problème?

Merci d'avance pour vos réponses.
 
Vote positif 0 Vote négatif
Re : Rechercher un fichier en connaissant son nom et son extension

Ah ouai ça m'arrange pas tout ça
Surtout que je dois donner le fichier à quelqu'un et donc ca sera à lui de faire tout ce chemin pour activer les FileSearch... ça craint du boudin

Il y aurait pas d'autres moyen pour parcourir les répertoires du coup? 😛
 
Vote positif 0 Vote négatif
Re : Rechercher un fichier en connaissant son nom et son extension

Cela peut etre ????? 😎




Public ListeDoss() As String

Sub ChercheDoss(Chemin1 As String)
Dim Ligne As Long, Nom As String
Ligne = Range("A65536").End(xlUp).Row + 1
On Error GoTo Err1
Nom = Dir(Chemin1 & "\*" & Range("Texte").Value & "*" & Range("Ext").Value)
If Nom <> "" Then
Cells(Ligne, 1).Value = Nom
ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Cells(Ligne, 2), Address:=Chemin1 & "\" & Nom, TextToDisplay:=Nom
Do
Ligne = Range("A65536").End(xlUp).Row + 1
Nom = Dir
If Nom <> "" Then
Cells(Ligne, 1).Value = Nom
ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Cells(Ligne, 2), Address:=Chemin1 & "\" & Nom, TextToDisplay:=Nom
End If
Loop Until Nom = ""
End If
Err1:

End Sub

Sub ChercheTout()
Dim Chemin As String, i As Long
Range("A7:C65536").Clear
Chemin = Range("Doss").Value
LanceListe Chemin
For i = 1 To UBound(ListeDoss)
ChercheDoss ListeDoss(i)
Next i
End Sub

Sub ListeArborescence(Dossier As String)
Dim fs, sousdoss
Set fs = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
For Each sousdoss In fs.getfolder(Dossier).subfolders
ReDim Preserve ListeDoss(1 To UBound(ListeDoss) + 1)
ListeDoss(UBound(ListeDoss)) = sousdoss.Path
ListeArborescence sousdoss.Path
Next sousdoss
On Error GoTo 0
Set fs = Nothing
End Sub

Sub LanceListe(Dossier As String)
ReDim ListeDoss(1 To 1)
ListeDoss(1) = Dossier
ListeArborescence Dossier
End Sub
 
Vote positif 0 Vote négatif
Re : Rechercher un fichier en connaissant son nom et son extension

Wouahou!

Merci pour la réponse. Juste comment on l'applique en fait ? 😱
On doit juste rentrer le nom du fichier comme paramètre ? Les 4 programmes sont utiles pour mon cas ?
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 faire une copie d'un fichier stocké dans un sous sous... sous répertoire
2
Réponses
20
Affichages
1 K
TooFatBoy
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
3 K
Dranreb
démarrer un fichier importer du web en toute securité
Réponses
7
Affichages
727
patricktoulon
  • Question Question
Microsoft 365 Conserver la valeur de ma variable pour l'utiliser dans un autre code
Réponses
3
Affichages
520
mapomme
Méthodes pour ouvrir et afficher un lien, un fichier, ou un dossier
Réponses
0
Affichages
792
Lu76Fer
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
641
JJ69
J
POWERQUERY :: Récupérer les attributs d'un fichier, Parcourir un dossier, Récupérer le contenu d'un fichier texte, Vérifier la présence d'un fichier
Réponses
0
Affichages
976
oguruma
XLS : Modèle pour ouvrir un classeur sur une nouvelle Session Excel
Réponses
0
Affichages
732
Lu76Fer
  • Résolu(e)
Microsoft 365 lister des fichiers
2
Réponses
19
Affichages
3 K
Usine à gaz
G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
19
Affichages
2 K
GClaire
G
L
  • Question Question
XL 2013 Liaisons Word / Excel : quelle solution retenir et comment la mettre en œuvre
2 3 4
Réponses
50
Affichages
6 K
LMOAL
L
M
  • Question Question
XL 2016 Erreur d'execution '52': Nom ou numéro de fichier incorrect
Réponses
4
Affichages
2 K
macseb
M
A
  • Question Question
XL 2019 Variable du bureau dans l'envoie par Outlook Filename:= et .Attachments.Add
Réponses
11
Affichages
941
fanch55
M
  • Question Question
Microsoft 365 [Saveas] dans un environnement Onedrive
Réponses
6
Affichages
2 K
Peshko59
P
  • Question Question
XL 2013 Application.GetOpenFilename et filtre sur nom fichier
Réponses
7
Affichages
3 K
Airone784
Créez votre propre moteur de recherche pour vos recettes de cuisine en HTML !
Réponses
1
Affichages
1 K
dysorthographie
  • Question Question
XL 2010 Rech fichier contenant la valeur d'une cellule d'un tableau excel et copier/coller/sup
Réponses
6
Affichages
981
jeanmi
S
  • Question Question
XL 2019 [VBA] cherche code VBA pour Import CSV dans même classeur avec tabulation ",
Réponses
1
Affichages
3 K
dysorthographie
POWERQUERY :: Combinaisons (Table.Combine) de dossiers contenant des fichiers .CSV ou des fichiers Excel - V2
Réponses
0
Affichages
966
oguruma
M
  • Question Question
Microsoft 365 Enregistrer un nom de fichier Excel à partir d'une cellule et pouvoir "Parcourir" pour l'enregistrement
Réponses
5
Affichages
2 K
maxime.dlv
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…