[VBA] Récupérer un nom de dossier
Résolu/Fermé
mario90
Messages postés
29
Date d'inscription
lundi 15 avril 2002
Statut
Membre
Dernière intervention
18 septembre 2014
-
19 juin 2008 à 16:52
mario90 Messages postés 29 Date d'inscription lundi 15 avril 2002 Statut Membre Dernière intervention 18 septembre 2014 - 19 juin 2008 à 17:19
mario90 Messages postés 29 Date d'inscription lundi 15 avril 2002 Statut Membre Dernière intervention 18 septembre 2014 - 19 juin 2008 à 17:19
A voir également:
- Vba récupérer nom fichier
- Fichier rar - Guide
- Recuperer message whatsapp supprimé - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Recuperer video youtube - Guide
1 réponse
onesdf
Messages postés
375
Date d'inscription
mercredi 21 mai 2008
Statut
Membre
Dernière intervention
17 octobre 2008
120
19 juin 2008 à 17:01
19 juin 2008 à 17:01
Salut
Avec GetOpenFileName tu récupères le chemin du fichier, pour avoir le dossier, recherches la position du dernier antislashe avec InStrRev
Avec GetOpenFileName tu récupères le chemin du fichier, pour avoir le dossier, recherches la position du dernier antislashe avec InStrRev
19 juin 2008 à 17:19
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