Bouton parcourirRésolu

Question

Bonjour mes amis programmeurs,


Je viens vers vous car j'ai besoin de créer un bouton "parcourir" pour valider un chemin de destination .

Pour être plus explicite :

Je dois recherche un fichier source du genre C:\robots\

une fois ce fichier source trouvé grâce au bouton parcourir j'aimerai le "sélectionner"  pour ensuite l'utiliser pour envoyer des fichier .XlS dedans.

La partie qui m&#8217;intéresse le plus est celle du bouton parcourir avec sélection du fichier. 


j'ai trouvé ça mais cela ne marche pas

Application.DefaultFilePath = "F:\Maintenance project"
Pa = Application.GetOpenFilename("Excel Files(*.xls),*.xls,All Files (*.*),*.*")


merci a vous..

lolokun · Accepted Answer

Ce code répond-il à tes attentes :

Dim rp As FileDialog
Set rp = Application.FileDialog(msoFileDialogFolderPicker)
With rp
.AllowMultiSelect = True
.InitialView = msoFileDialogViewDetails
.InitialFileName = "C:\Robots"
.Show
End With

L'expérience, c'est une connerie par jour, mais jamais la même..

lolokun · Answer

Bonjour,

Utilises application.filedialog


L'expérience, c'est une connerie par jour, mais jamais la même..

cs_reynald38 · Answer

Oui cela marche mais je suis obligé de sélectionner un .txt ou.xls.. ou autre mais je n'arrive pas à juste selectionner et valider mon DOSSIER


C:\Robots\

juste ça en fait

cs_reynald38 · Answer

J'ai trouvé ^^

Dim objShell As Object, objFolder As Object, oFolderItem As Object
     Dim Chemin As String
     Set objShell = CreateObject("Shell.Application")
     Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)
     On Error Resume Next
     Set oFolderItem = objFolder.Items.Item
     Chemin = oFolderItem.path

UserForm.TextBox3.Text = Chemin

voilou !

cs_reynald38 · Answer

Merci à vous <3

Bouton parcourir

5 réponses

Votre réponse