3 messages in org.openoffice.fr.progRe: [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:Re: [prog] Convertion URLActions...
From:Philippe SIBRA (phil@ac-grenoble.fr)
Date:Jun 22, 2004 11:36:45 am
List:org.openoffice.fr.prog

Le Tue, 22 Jun 2004 18:24:43 +0200, Jovial <luck@free.fr> a écrit: Bonjour,

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 la 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

Cette macro fonctionne parfaitement sous windows.

Merci pour le service. Phil