[VBA] Récupérer un nom de dossier

Résolu
mario90 Messages postés 29 Date d'inscription   Statut Membre Dernière intervention   -  
mario90 Messages postés 29 Date d'inscription   Statut Membre Dernière intervention   -
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.
A voir également:

1 réponse

Réponse 1 / 1
onesdf Messages postés 375 Date d'inscription   Statut Membre Dernière intervention   120
 
Salut

Avec GetOpenFileName tu récupères le chemin du fichier, pour avoir le dossier, recherches la position du dernier antislashe avec InStrRev
4
mario90 Messages postés 29 Date d'inscription   Statut Membre Dernière intervention   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
0

Discussions similaires

Colis shein terminal fret
Lele -
bazfile -

1 réponse
Extraire le contenu de plusieurs fichiers
politicus -
Syl_tls1 -

11 réponses