Lettre du repertoire du fichier ouvert

Robert

XLDnaute Barbatruc

Repose en paix

• 6 Septembre 2005

• #2

Bonjour Carlos, bonjour le forum,

Cette macro devrait convenir :

Sub Macro1()
Dim ML As String
ML = Left(ThisWorkbook.Path, 1)
MsgBox ML
End Sub

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 6 Septembre 2005

• #3

Bonjour Robert

Pour moi c'est deja une tres belle journée qui commence

Une fois de plus j'avance grace à toi

MERCI

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 6 Septembre 2005

• #4

Bonjour Robert

Pour moi c'est deja une tres belle journée qui commence

Une fois de plus j'avance grace à toi

MERCI

 

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 6 Septembre 2005

• #5

Bonjour tout le monde

Pour tous ceux qui recherche la même chose mais sur une feuille de calcul, il y a cette formule
=GAUCHE(CELLULE('filename');CHERCHE(':';CELLULE('filename'))-1)

Encore une petite chose, c'est compatible PC/MAC.

@+Jean-Marie

 

Vote positif 0 Vote négatif