Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2022 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Retourner le nom d'un sous-répertoire

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Retourner le nom d'un sous-répertoire

n°1223924
jr10
Pourvu qu'on y arrive ...
Posté le 16-10-2005 à 11:39:49  profilanswer
 


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

mood
Publicité
Posté le 16-10-2005 à 11:39:49  profilanswer
 

n°1224115
jr10
Pourvu qu'on y arrive ...
Posté le 16-10-2005 à 21:00:11  profilanswer
 

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

n°1224250
watashi
La démotivation : JAMAIS !
Posté le 17-10-2005 à 09:28:21  profilanswer
 

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 :
  1. Public Chemin
  2. Function ChoixDossier()
  3.      Dim Dossier As FileDialog
  4.      Set Dossier = Application.FileDialog(msoFileDialogFolderPicker)
  5.      With Dossier
  6.           'Pour ne permettre la sélection que d'un dossier
  7.           .AllowMultiSelect = False
  8.           'Pour définir l'emplacement de départ dans la boîte de dialogue
  9.           .InitialFileName = "C:\"
  10.           .Title = "Choix d'un dossier"
  11.           'Pour faire apparaitre la boîte de dialogue renvoi chemin =0 si l'utilisateur annule
  12.           If .Show = -1 Then Chemin = .SelectedItems(1) & "\" Else Chemin = 0
  13.      End With
  14. End Function


bon courage à toi
 


---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)
n°1347367
jr10
Pourvu qu'on y arrive ...
Posté le 15-04-2006 à 08:53:46  profilanswer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Retourner le nom d'un sous-répertoire

 

Sujets relatifs
Garder les droits d'accès sur un répertoirerécupérer le chemin d'un répertoire chercher
accèder à un répertoire partagéVB Excel - Renommer fichier en fonction du répertoire
remonter de 2 repertoire dans une arborescenceurl rewrite + navigation par répertoire
Galerie de Photos : ouvrir un repertoire de photos.. et liens dynamiq.lister les fichiers d'un répertoire
recupere le chemin complet du repertoire courant[PHP-XML-Flash] listage repertoire [resolu]
Plus de sujets relatifs à : Retourner le nom d'un sous-répertoire


Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)