Discussion :

[Siefch1]

Bonjour,

j'ai l'intention de créer un bouton Qlikview afin d'exporter plusieurs objets vers excel. Je commence par un essai ... qui ne fonctionne pas. L'éditeur ne m'affiche pas d'erreur mais quand je clique sur le bouton, il ne se passe rien. Je ne vois pas de fichier sur mon D:\

Voici la macro que j'ai codé :

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
 
sub Export_xls
 
set tmpExcel = CreateObject("EXCEL.APPLICATION")
set tmpWorkBook = tmpExcel.Workbooks.Add
tmpExcel.Visible = True
 
SET XLApp = CreateObject("Excel.Application") 
XLApp.Visible = True
SET XLDoc = tmpExcel.Workbooks.Open("D:\test_export.xls")
 
SET TABLE = ActiveDocument.GetSheetObject("CH01")
set XLSheet = XLDoc.Worksheets(1) 
TABLE.CopyTableToClipboard true 
XLSheet.Range("A1").Select 
XLSheet.PasteSpecial 
XLDoc.Save
 
tmpWorkBook.Close True
end sub

Merci pour votre aide ...

[FORMULARY]

Je n'ai pas contrôlé en détail, mais en ligne 10, tu essaie d'ouvrir un fichier excel qui n'existe pas.
Ton XLDOC ne pointe donc pas vers un fichier excel. Il ne peut être sauvegardé.

Supprime ta ligne 10 (ton fichier est en fait instancié en ligne 5)
Remplace ta ligne 17 par un XLDOC.Saveas "D:\test_export.xls"

[Siefch1]

Merci pour ta réponse FORMULARY,

j'ai rectifié comme tu l'as préconisé (enfin je pense) mais ça ne fait toujours rien.

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
 
sub Export_xls
 
set tmpExcel = CreateObject("EXCEL.APPLICATION")
set tmpWorkBook = tmpExcel.Workbooks.Add
tmpExcel.Visible = True
SET XLApp = CreateObject("Excel.Application")
XLApp.Visible = True 
 
SET TABLE = ActiveDocument.GetSheetObject("CH01")
set XLSheet = XLDoc.Worksheets(1) 
TABLE.CopyTableToClipboard true 
XLSheet.Range("A1").Select 
XLSheet.PasteSpecial 
XLDoc.Saveas "D:\test_export.xls" 
 
end sub

[FORMULARY]

Effectivement, lorsque je lance ta macro, j'ai un message

Un composant ActiveX ne peut pas créer un objet: 'EXCEL.APPLICATION'

Si j'ai le temps, je regarde de plus près

[FORMULARY]

J'avais simplement oublié d'augmenter le niveau de sécurité pour qu'il puisse exécuter des commandes systèmes.

Voici mon script, où j'ai ajouté aussi le cas où le fichier existe déjà.
Mon script supprime alors le fichier pour le remplacer ...

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
Sub Exporter
 
NomFichier = "C:\Temp\test_export.xls"
 
Set fso = CreateObject("Scripting.FileSystemObject")
on error resume next
fso.DeleteFile(NomFichier)
on error goto 0
 
SET tmpExcel = CreateObject("Excel.Application")
SET tmpWorkBook = tmpExcel.Workbooks.ADD
tmpExcel.Visible = True
 
SET TABLE = ActiveDocument.GetSheetObject("CH01")
SET XLSheet = TmpExcel.Worksheets(1) 
TABLE.CopyTableToClipboard true 
XLSheet.Range("A1").SELECT 
XLSheet.PasteSpecial 
TmpWorkBook.SaveAs NomFichier
TmpExcel.Quit
end sub