[VBA] Récupérer un nom de dossier
Résolu
mario90
Messages postés
31
Statut
Membre
-
mario90 Messages postés 31 Statut Membre -
mario90 Messages postés 31 Statut Membre -
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.
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:
- Récupérer nom fichier dans un dossier
- Fichier bin - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Fichier rar - Guide
- Dossier appdata - Guide
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