Récupérer le nom du repertoire courant

[pobrouwers]

Bonjour,
Je souhaiterais connaitre le répertoire courant dans lequel se trouve le fichier ouvert et mettre ce nom dans une variable pour l'utiliser par la suite ou le mettre dans une cellule.

merci

 

[GillesC]

Bonjour
=INFO('REPERTOIRE')

 

[pobrouwers]

Merci mais en vba... et seulement le nom du repertoire dans lequel se trouve le fichier pas le chemin complet

 

[Hervé]

Bonjour pobrouwers, gilles, le forum

Il doit y avoir mieux, mais personnellement j'utilise ceci :

Dim rep As Variant

rep = Split(ThisWorkbook.Path, '\\\\\\\\')
MsgBox rep(UBound(rep))

salut

Message édité par: hervé, à: 19/01/2006 10:04

 

[MichelXld]

bonjour PoBrouwers ,Gilles et mon ami Hervé

ci joint une autre possiblité

Dim Fso As Object, FileItem As Object

Set Fso = CreateObject('Scripting.FileSystemObject')
Set FileItem = _
Fso.GetFile('C:\\\\\\\\\\Documents and Settings\\\\\\\\michel\\\\\\\\\\tableau.xls')

MsgBox FileItem.ParentFolder.Name


bonne journée
MichelXld

 

[Hervé]

re , salut michel


une alternative à ma proposition pour xl97 :

Dim chemin As String
Dim place As Byte

chemin = ThisWorkbook.Path
place = Len(chemin) - InStr(1, StrReverse(chemin), '\\\\\\\\') + 2
MsgBox Mid(chemin, place)

je pense que tu devrais t'en sortir là

salut

Message édité par: hervé, à: 19/01/2006 10:05

 

[pobrouwers]

Merci à tous les 2... Ca marche nickel