7 messages in org.openoffice.fr.progRe: [prog] Répertoire courant avec le...
FromSent OnAttachments
Philippe SIBRAJun 21, 2004 10:31 pm 
Bernard MarcellyJun 22, 2004 2:51 am 
JovialJun 22, 2004 3:22 am 
JovialJun 22, 2004 4:48 am 
JovialJun 22, 2004 9:11 am 
Tony GALMICHEJun 22, 2004 10:24 am 
JovialJun 22, 2004 11:32 am 
Actions with this message:
Paste this link in email or IM:
Paste this link in email or IM:
Atom feed for this thread
Paste this URL into your reader:
Subject:Re: [prog] Répertoire courant avec le démarrage rapideActions...
From:Jovial (luck@free.fr)
Date:Jun 22, 2004 9:11:32 am
List:org.openoffice.fr.prog

Voila ce que j'ai pu faire au final Sub ConvertionURL

Dim MonDocument As Object MonDocument = ThisComponent ' Sélectionne le document activé DocURL = MonDocument.Location ' Adresse URL DocAdresse = ConvertFromURL(DocURL) ' Adresse convertie au format système NomFichierDoc = dir(DocAdresse) ' Nom du fichier NomDoc = left(NomFichierDoc,Len(NomFichierDoc)- 4) ' Nom sans l'extention RepertoireDoc = Left(DocAdresse,Len(DocAdresse)- Len(NomFichierDoc)) ' Emplacement ou répertoire où se trouve le document 'Affichage boîte de dialogue Msgbox DocURL + Chr$(13)+ DocAdresse + Chr$(13) + RepertoireDoc + Chr$(13) + NomFichierDoc + Chr$(13) + NomDoc

End Sub

Question: est que fonctionne t'elle sous Linux ou Mac ?

--------------------------------------------------------------------- To unsubscribe, e-mail: prog@fr.openoffice.org For additional commands, e-mail: prog@fr.openoffice.org