Bouton parcourir [Résolu]

Signaler
Messages postés
26
Date d'inscription
mercredi 25 avril 2012
Statut
Membre
Dernière intervention
14 juin 2012
-
Messages postés
26
Date d'inscription
mercredi 25 avril 2012
Statut
Membre
Dernière intervention
14 juin 2012
-
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’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..

5 réponses

Messages postés
1241
Date d'inscription
mardi 10 octobre 2006
Statut
Membre
Dernière intervention
27 août 2013
4
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..
Messages postés
1241
Date d'inscription
mardi 10 octobre 2006
Statut
Membre
Dernière intervention
27 août 2013
4
Bonjour,

Utilises application.filedialog


L'expérience, c'est une connerie par jour, mais jamais la même..
Messages postés
26
Date d'inscription
mercredi 25 avril 2012
Statut
Membre
Dernière intervention
14 juin 2012

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
Messages postés
26
Date d'inscription
mercredi 25 avril 2012
Statut
Membre
Dernière intervention
14 juin 2012

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 !
Messages postés
26
Date d'inscription
mercredi 25 avril 2012
Statut
Membre
Dernière intervention
14 juin 2012

Merci à vous <3