Discussion :

[Cygnus]

Bonjour,
j'ai recupéré un fichier avec une macro censée exporter en csv certaines valeurs du tableur seulement des que j'essaie d'executer la macro j'ai le message d'erreur BASIC runtime error. Object variable not set.

Ci dessous le code. Pourriez vous m'aider ? Merci d'avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
'/*===================================================================================================
'/* Save
'/*===================================================================================================
Sub Save
	Dim oScript as object
	Dim LibOClasseur as Object
	Dim LibOFeuillePDAA, LibOForm, LibOCmdCheck, LibOCmdSave as Object
 
	'----------------------------------------------------------------------------------------
	' Prepare controls
	'----------------------------------------------------------------------------------------
 
	LibOFeuillePDAA = thiscomponent.Sheets("PDAA")
	LibOForm = LibOFeuillePDAA.DrawPage.Forms.getByIndex(0)
 
	' desactive les boutons save
	LibOCmdSave = LibOForm.getByName("cmdSave")
	LibOCmdSave.enabled = False
 
	'----------------------------------------------------------------------------------------
	' Save
	'----------------------------------------------------------------------------------------
 
	LibOClasseur = thiscomponent
 
	oScript = oSP.getScript( "vnd.sun.star.script:Standard.Module.Save?language=Basic&location=document")  
	oScript.invoke(Array(LibOClasseur),Array(),Array())	
End Sub

[Bidouille]

Qu'est ce que oSP ?
L'objet n'est défini nulle part, d'où le message d'erreur.

D'ailleurs, je ne vois pas comment ce script pourrait exporter en CSV quoi que ce soit.