[VBA] Récupérer un nom de dossier [Résolu/Fermé]

Signaler
Messages postés
29
Date d'inscription
lundi 15 avril 2002
Statut
Membre
Dernière intervention
18 septembre 2014
-
Messages postés
29
Date d'inscription
lundi 15 avril 2002
Statut
Membre
Dernière intervention
18 septembre 2014
-
Bonjour,

je souhaiterai avoir l'option qui permet de récupérer, dans une cellule Excel, un chemin sur le réseau ou ordinateur

Par exemple, je voudrais que dans la cellule A1, il me mette "C:\Mes documents\toto\répertoire 1"

Je sais que le code pour récupérer le nom d'un fichier est :

Dim sChemin As String ' Chemin du fichier

sChemin = Application.GetOpenFilename
Range("C2").Value = sChemin

Merci de votre collaboration.

1 réponse

Messages postés
375
Date d'inscription
mercredi 21 mai 2008
Statut
Membre
Dernière intervention
17 octobre 2008
118
Salut

Avec GetOpenFileName tu récupères le chemin du fichier, pour avoir le dossier, recherches la position du dernier antislashe avec InStrRev
4
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60511 internautes nous ont dit merci ce mois-ci

Messages postés
29
Date d'inscription
lundi 15 avril 2002
Statut
Membre
Dernière intervention
18 septembre 2014
7
super ça a marché !!

Voici le code

Sub Repertoire()

Dim sChemin As String ' Chemin du fichier

sChemin = Application.GetOpenFilename

répertoire = Mid(sChemin, 1, InStrRev(sChemin, "\") - 1)

Range("E11").Value = répertoire


End Sub