[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 -
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.
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
- Comment ouvrir un fichier epub ? - Guide
- Fichier bin - Guide
- Comment réduire la taille d'un fichier - Guide
- Dossier appdata - Guide
- Fichier rar - 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