[VBA-Arcview] Explorateur de disque en VBA [Résolu]

[sscouby]

Bonjour,
je souhaiterai dans une userform permettre à l'utilisateur de parcourir le disque afin de sélectionner un répertoire.
Je précise que je n'ai QUE VBA donc les composants dir drive et file ne sont pas disponibles.
Comment faire ?

PS : je travaille sous un logiciel où on peut programmer en VBA à savoir Arcview mais je pense pas que beaucoup de monde le connaisse...

Merci pour vos réponses

[cwain]

Bonjour,

Tu ajoutes un commandbutton dans ta userform qui exécute le code suivant (par exemple). Ici je récupère le nom et l'adresse du fichier dans un label, et j'ouvre ensuite le fichier, mais tu peux le faire en passant par une variable string

Code :

1
2
3
4
5
6
'Ouverture d'une fenêtre pour parcourir les disques et choisir le fichier
'le chemin du fichier est récupéré et affiché dans le label2
Affaire.Label2.Caption = Application.GetOpenFilename()
 
'ouverture de ce fichier
Workbooks.Open Affaire.Label2.Caption

PS : Affaire est le nom de ma userform

Cwain

[cwain]

sinon, si tu veux juste le nom du dossier contenant le fichier, tu peux travailler sur le string récupéré, de la manière suivante :

Code :

1
2
3
4
5
6
Private Sub CommandButton1_Click()
CheminNom = Application.GetOpenFilename
Cells(1, 1).Value = CheminNom
JusteLeChemin = Left(CheminNom, InStrRev(CheminNom, "\"))
Cells(2, 1).Value = JusteLeChemin
End Sub

Bon, si tu n'as pas de fichier dans ton dossier, je sais pas trop

[sscouby]

J'ai une erreur car Application.GetOpenFilename n'est pas reconnu
"Propriété ou méthode non géré par cet objet"
Je travaille pas sous excel c'est peut être pour ça, je vais chercher dans les méthodes que me propose application
on verra bien

[bbil]

voir :


Comment ouvrir une fenêtre de sélection de répertoire ?


si tu n'as pas accés au handle ( hwnd..) dans ton applicatif VBA... mais 0 pour le paramétre Handle lors de l'appel de la fonction selectFoldre

[sscouby]

Impeccable ça marche parfaitement. Merci