Discussion :

[Seneg33]

Bonjour,

j'ai une macro avec ce code-ci :

Code :

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

1
2
3
4
5
Sub Excel()
Rem Modifier le nom du graphique (CH01) 
SET objet=ActiveDocument.GetSheetObject("CH01")
objet.SendToExcel
End Sub

Ce code renvoie un tableau vers excel, et l'ouvre.
Mais je voudrais l'enregistré dans un excel sans l'ouvrir.

est ce que c'est possible ?

Cordialement

[FORMULARY]

Macro exemple trouvée dans l'API guide de Qlikview :

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
rem create new launch/export button 
set newbutton = ActiveDocument.ActiveSheet.CreateButton
set prop = newbutton.GetProperties
prop.Type = 0     
prop.Text.v = "Export"
prop.Application.v = "C:\Program Files\Microsoft Office\Office\EXCEL.EXE"
prop.FileName.v = "C:\test.csv"
prop.Separator = ","
prop.Labels = true
prop.FieldList.Add
prop.FieldList.Item(0).FieldDef.Name = "Class"
prop.FieldList.Item(0).FieldDef.Type = 1                 'field
prop.FieldList.Item(0).MultiSelection = true
prop.FieldList.Add
prop.FieldList.Item(1).FieldDef.Name = "ClassComment"
prop.FieldList.Item(1).FieldDef.Type = 1                 'field
prop.FieldList.Item(1).MultiSelection = true
newbutton.SetProperties prop

Cette macro crée un bouton d'export vers Excel.
Par contre, je ne sais pas quelle donnée ça exporte et c'est au format CSV.
Mais si ça peut aider ...

[Seneg33]

Bonjour,
merci pour ta réponse mais elle ne m'es pas de grande aide ...

En effet l'appli que je développe doit etre utilisable par plusieurs poste, et le chemin vers excel n'est jamais le même ...


Merci quand même

Cordialement

[PhunkyBob]

Voila un code simplifié de ce que j'utilise :

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
 
sub ExportExcel
	set XLApp = CreateObject("Excel.Application") 'on définie l'objet
	XLApp.Visible = True           'on veut que Excel soit visible
 
 
 
	set XLDoc = XLApp.Workbooks.Add 'on ajoute un element
	XLDoc.Worksheets(3).Delete 'on supprime les feuilles qui ne nous intéresse pas
	XLDoc.Worksheets(2).Delete 'celle-là aussi
 
 
	set table = ActiveDocument.GetSheetObject("TABLE_TEST") 'on recupère l'objet qui nous intéresse, ici celui avec l'identifiant "TABLE_TEST"
	table.CopyTableToClipboard true 'on copie dans le presse-papier
 
 
	set XLSheet = XLDoc.Worksheets("Feuil1") 'on se met sur la feuille qui nous intéresse
	XLSheet.Paste XLSheet.Range("A1") 'on colle le presse-papier à partir de la première cellule (A1)
	XLSheet.Name = "Chart 2" 'on renomme la feuille
 
 
	XLDoc.SaveAs "c:\test.xls" 'on enregistre dans un fichier
 
end sub

On peut imaginer paramétrer le fichier soit par une variable, soit par un nom dynamique, etc...

[Seneg33]

Merci PhunkyBob,

J'ai pas testé si ça marche (un peut débordé...) mais ça a l'aire de coller avec ce que je cherche !!

je le passe en Résolu dés que j'ai testé.


Cordialement