Récupérer le nom du repertoire courant

G

GillesC

XLDnaute Occasionnel

• 19 Janvier 2006

• #2

Bonjour
=INFO('REPERTOIRE')

 

Vote positif 0 Vote négatif

P

pobrouwers

XLDnaute Occasionnel

• 19 Janvier 2006

• #3

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

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 19 Janvier 2006

• #4

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))

Cliquez pour agrandir...

salut

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

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 19 Janvier 2006

• #5

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

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 19 Janvier 2006

• #6

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)

Cliquez pour agrandir...

je pense que tu devrais t'en sortir là

salut

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

 

Vote positif 0 Vote négatif

P

pobrouwers

XLDnaute Occasionnel

• 19 Janvier 2006

• #7

Merci à tous les 2... Ca marche nickel

 

Vote positif 0 Vote négatif