[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

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:

Vba récupérer nom fichier
Nom de l'adresse ✓ - Forum Réseaux sociaux
Fichier rar - Guide
Recuperer video youtube - Guide
Recuperer message whatsapp supprimé - Guide
Fichier host - Guide

1 réponse

Réponse 1 / 1

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

Salut

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

mario90 Messages postés 29 Date d'inscription lundi 15 avril 2002 Statut Membre Dernière intervention 18 septembre 2014 7
19 juin 2008 à 17:19

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

Discussions similaires

"Chemin d'accès trop long"...

Extraire les noms de fichier vers Excel?

Extraire le contenu de plusieurs fichiers

pbleme affichage nom de fichiers et dossiers

Chemin d'accès trop long...

Nom de fichier trop long