Thisworbook.name sans ".xls"

[copayo]

Bonjour,

je cherche à récupérer le nom de mon fichier mais sans l'extension '.xls'

Auriez vous une solution ?

merci bcp par avance

 

[Jam]

Re:Thisworbook.name sans \".xls\"

Salut copayo,

With ThisWorkbook
myName$=left$(.name,len(.name)-4)
End With

Bon courage

Message édité par: jam, à: 23/01/2006 14:38

 

[copayo]

Merci,

j'avais entre temps fait

Replace(ActiveWorkbook.Name, '.xls', '')

Ca me fait un code de plus en tete.

merci