XL 2013 Trouver le chemin d'un fichier dans mon PC

[chaelie2015]

Bonsoir FORUM
Comment puis-je faire du code VBA pour trouver le chemin d’un fichier Excel spécifique dans mon PC?
Merci

 

[kiki29]

Salut, voir par ici entre autres.

 

[chaelie2015]

Salut, voir par ici entre autres.

Bonsoir kiki29
voici le code que j'ai trouvé

Sub Explorer(p_strFichier As String, p_strCheminDepart As String, Optional p_oFld As Scripting.Folder)
'Déclaration de la procédure
'p_strFichier : nom du fichier à rechercher
'p_strCheminDepart : chemin de départ de la recherche
'p_oFld : répertoire dans lequel la recherche est effectuée, optionnel

On Error GoTo err
    'Gestion des erreurs avec une étiquette err
    
    Dim oFSO As Scripting.FileSystemObject
    Dim oFld As Scripting.Folder
    Dim oFl As File
    
    'Déclaration de variables pour le système de fichiers (FSO), le dossier et le fichier
    
    If p_oFld Is Nothing Then
        'Si p_oFld n'est pas spécifié, instanciation du FSO
        Set oFSO = New Scripting.FileSystemObject
        'Accède au répertoire de départ de la recherche
        Set p_oFld = oFSO.GetFolder(p_strCheminDepart)
    End If
    
    'Recherche du fichier "CRT 2022 V2.xlsm" dans le répertoire p_oFld
    Set oFl = p_oFld.Files("CRT 2022 V2.xlsm")
    'Affiche le chemin du fichier dans une boîte de message
    MsgBox oFl.Path
    
SubDir:
    'Explore les sous-dossiers
    For Each oFld In p_oFld.SubFolders
        'Pour chaque sous-dossier, lance la procédure Explorer
        Explorer p_strFichier, p_strCheminDepart, oFld
        'Permet de mettre à jour les événements
        DoEvents
    Next oFld
    
fin:
    'Sortie de la procédure
    Exit Sub
    
err:
    'Traitement des erreurs
    Select Case err.Number
        Case 53: 'Erreur 53 : fichier non trouvé
            Resume SubDir
        Case Else:
            'Erreur inconnue
            MsgBox "Erreur inconnue"
            Resume fin
    End Select

End Sub

Mais je n'arrive pas a l'executé ????
Merci

 

[patricktoulon]

bonjour
je te donne des indices
FSO , rapide , jumping , récursive ,@Dudu2 , @patricktoulon
si avec ça tu trouve pas une de nos fonction a dudu2 et moi alors .............

Exceldownloads a un moteur de recherche sert toi en 😉

pour info je viens de testé avec un fichier portant le nom que tu cherche
je l'ai créé au par avant bien sur perdu dans des sous dossiers de mon dir dur archive vba

étonnant cette rapidité avec FSO non? ça donne envie hein
et on démarre a la racine du disque dur en plus 😉

maintenant tu sais ce qu'il te reste à faire

 

[kiki29]

Re, tu peux également voir Liste_Fichiers ?