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