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 ?