[Résolu][Base] Récupérer le chemin relatif du fichier

Discussions et questions sur tout ce qui concerne la programmation tous langages et tous modules confondus.

Modérateur: Vilains modOOs

Règles du forum
:alerte: Balisage obligatoire dans cette section !
Aidez-nous à vous aider au mieux en balisant correctement votre question : reportez-vous sur les règles de cette section avant de poster !

[Résolu][Base] Récupérer le chemin relatif du fichier

Messagepar camil » 27 Juin 2019 10:03

Suite à https://forum.openoffice.org/fr/forum/viewtopic.php?f=8&t=60686 (vérrouillé) sur lequel j'ai trouvé la (une) solution à mon problème.
Je comprends ce verrouillage mais je viens y donner suite pour ceux qui, comme moi, débutent et nagent en plein océan...
J'étais parti sur https://help.libreoffice.org/Basic/FreeFile_Function_Runtime/fr et je butais sur le chemin absolu donné dans cet exemple. Impossible de remplacer le ...aFile = "c:\data.txt"... par un chemin relatif (au fichier où se déroule la macro) sans provoquer une "Erreur d'E/S de périphérique"
En fait j'ai dû travailler la chaîne de caractère et ça donne :
Code : Tout sélectionner   AgrandirRéduire
Sub ExampleWorkWithAFile
   Dim iNumber As Integer
   Dim sChemin, sFichier, sFile as string
   
   sChemin = ThisComponent.getURL()
   sFichier = ThisComponent.title()
   sFile = Replace(sChemin,sFichier,"SAUV/test.csv")
   
   iNumber = Freefile
   Open sFile For Output As #iNumber
   Print #iNumber, "ligne 1"
   Close #iNumber
End Sub
Ca me convient mais si il y a une notation plus élégante, plus courte, à insérer dans le code je suis bien sûr à l'écoute...
LibreOffice 6.1.6.3 X64 - Windows 10
camil
Membre lOOyal
Membre lOOyal
 
Message(s) : 33
Inscrit le : 28 Mai 2019 09:53

Retour vers Macros et API

Qui est en ligne ?

Utilisateur(s) parcourant ce forum : Xtof68 et 8 invité(s)