Localiser un fichier

[spitfire378]

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

 

[Bernard_XLD]

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+

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]

Re : Localiser un fichier

Bonjour,

Sub ChercheFich()
Dim i As Integer
With Application.FileSearch
.NewSearch
.FileType = msoFileTypeExcelWorkbooks
.Filename = "Le Fichier à trouver.xls"
.LookIn = "C:\Documents and Settings\Le Répertoire de départ\"
.SearchSubFolders = True
.Execute
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
'Sheets(1).Range("A" & i) = .FoundFiles(i) 'éventuellement pour renvoyer les fichiers trouvés sur la feuille1
Next i
End With
End Sub

A+
kjin

 

[Blunet]

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