Retourner le nom d'un sous-répertoire

Marsh Posté le 16-10-2005 à 11:39:49

Bonjour,

En Excel VBA, je voudrais retourner le nom du répertoire
que j'aurai sélectionné dans une boîte de dialogue.

J'essaie avec Dialogs(xlDialogOpen) mais cette boîte
oblige la sélection d'un fichier pour s'exécuter, ce que je ne veux pas.

Existe-t-il une boîte (ou faut-il la créer) pour retourner
un nom de sous-répertoire à partir d'une navigation ?

Merci d'avance d'un tuyau et bon dimanche

jr10

Marsh Posté le 16-10-2005 à 11:39:49

Marsh Posté le 16-10-2005 à 21:00:11

Est-ce que quelqu'un à une idée ?

tout ce que je trouve passe obligatoirement par la sélection d'un fichier,
ce que je ne veux pas.

Cordialement

Marsh Posté le 17-10-2005 à 09:28:21

bonjour jr10,
tu n'as effectivement pas besoin de passer par un fichier pour la selection d'un répertoire.
voilà une petite fonction qui va t'aider:

Code :

Public Chemin
Function ChoixDossier()
Dim Dossier As FileDialog
Set Dossier = Application.FileDialog(msoFileDialogFolderPicker)
With Dossier
'Pour ne permettre la sélection que d'un dossier
.AllowMultiSelect = False
'Pour définir l'emplacement de départ dans la boîte de dialogue
.InitialFileName = "C:\"
.Title = "Choix d'un dossier"
'Pour faire apparaitre la boîte de dialogue renvoi chemin =0 si l'utilisateur annule
If .Show = -1 Then Chemin = .SelectedItems(1) & "\" Else Chemin = 0
End With
End Function

bon courage à toi

---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)

Marsh Posté le 15-04-2006 à 08:53:46

C'est sûr que c'est un peu tard
mais merci de ta réponse.

Je vais essayer de "bidouille" et j'espère que cela marchera

JR10

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *