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

Résolu

mario90 -

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.

Configuration: Windows 2000
Internet Explorer 6.0

Afficher la suite

1 réponse

Réponse 1 / 1 - Meilleure réponse
La meilleure réponse est la réponse qui a été validée par nos équipes.
onesdf
Salut

Avec GetOpenFileName tu récupères le chemin du fichier, pour avoir le dossier, recherches la position du dernier antislashe avec InStrRev
4
1. mario90 Auteur
  
  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

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

1 réponse

Discussions similaires

Newsletters