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

Localiser un fichier

spitfire378

XLDnaute Occasionnel
Bonjour a tous, je voulais vous demander si il était possible en vba de permettre a un utilisateur via une fenetre de navigation de localiser un fichier dans son ordinateur puis de récupérer le chemin de ce même fichier.

Parcequ'en faite j'ai une macro qui utilise comme source un fichier excel a un certain endroit mais je voudrais si jamais ce fichier était déplacer que l'utilisateur puisse relocaliser le fichier.

Merci
 
Dernière édition:

Bernard_XLD

XLDnaute Barbatruc
Membre du Staff
Re : Localiser un fichier

Bonjour spitfire378

voici un code qui recherche tous les fichiers portant le nom etat.xls sur le disque c et qui les inscrit sur la feuille active

A+
Code:
Sub Cherche_Fichier()
Dim LstFile As Long
With Application.FileSearch
.NewSearch
.RefreshScopes
.Filename = "etat.xls"
.LookIn = "c:"
.SearchSubFolders = True
For LstFile = 1 To .Execute(msoSortByFileName)
ActiveSheet.Cells(LstFile, 1).Value = .FoundFiles(LstFile)
Next LstFile
End With
End Sub
 

kjin

XLDnaute Barbatruc
Re : Localiser un fichier

Bonjour,

A+
kjin
 

Blunet

XLDnaute Occasionnel
Re : Localiser un fichier

Salut à tous ma modeste contribution

S'il s'agit de garder simplement le chemin du fichier
Sub LocaliseFichier()
Dim Chemin As String
MsgBox "Ce fichier se trouve à cet emplacement : " & _
ActiveWorkbook.Path

'Ou alors
Chemin = ThisWorkbook.Path
MsgBox "Le chemin est " & Chemin
End Sub

S'il s'agit de localiser le fichier, le code des prédécesseurs est approprié

Ciao
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…