3 messages in org.openoffice.fr.prog[prog] Convertion URL
FromSent OnAttachments
JovialJun 22, 2004 9:24 am 
Philippe SIBRAJun 22, 2004 11:36 am 
BobJun 22, 2004 3:49 pm 
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:[prog] Convertion URLActions...
From:Jovial (luck@free.fr)
Date:Jun 22, 2004 9:24:21 am
List:org.openoffice.fr.prog

Je me suis fait macro pour accéder au différent chemin et nom de fichier relatif à un document. Sous win cela fonctionne bien par contre je sais pas sous Linux ou mac ... Je vous fait passer laz chose

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