Forum OpenOffice LibreOffice NeoOffice

Suite à https://forum.openoffice.org/fr/forum/v ... =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/Free ... 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

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

Forum OpenOffice LibreOffice NeoOffice

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

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