c c a écrit :
Bonjour,
La variable ThisComponent.location contient le chemin et le nom du fichier
ouvert.
En existe-t-il une qui ne contienne que le chemin ?
Pour ma part j'utilise cette fonction pour avoir le chemin :
Function RepertFich(StrFich As String) As String
Dim PosSlash As Integer
PosSlash = Len(StrFich) - 1
While Mid(StrFich,PosSlash,1) <> "/" And PosSlash >= 1
PosSlash = PosSlash - 1
Wend
If PosSlash = 0 Then
RepertFich() = ""
Else
RepertFich() = Left(StrFich, PosSlash - 1)
End If
End Function
Merci
Claude
_________________________________________________________________
Discutez en direct avec vos amis sur Messenger !
http://www.windowslive.fr/messenger
---------------------------------------------------------------------
To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org
For additional commands, e-mail: prog-h...@fr.openoffice.org