DominoArea.org [Archive]

Bonjour,

Est-il possible de créé un tableau croisé dynamique dans excel via du LS.

Pour explication :
J'ai un scripte qui créer un doc excel avec des infos exportées de lotus.
l'étape suivant c'est de créé un tableau croisé dynamique avec ces données.

Merci d'avance

salut

si c'est faisable en VBA sous excel c'est faisable en LS

Salut,

Est-ce que tu peux créer ton tableau croisé dynamique en macro VBA dans Excel ??
si oui il te suffit de récupérer le code et de le mettre dans ton code ls (bien sûr en l'adaptant en peu le principe est là)

t'as été plus rapide que moi Michael

Regardes la méthode vba "CreatePivotTable"

Si tu connais un peu les macros Excel.
Tu enregistres une macro et tu crées ton tableau croisé dynamique.
Ensuite tu arrêtes l'enregistrement de la macro et tu récupères le code VBA généré.

j'ai du faire une erreur dans mon "copier coller" de VBA alors.

voici mon code LS:
Je n'ai déclaré que docexcel :

[syntax="LotusScript"]docexcel.WorkSheets("Lotus").Columns("A:C").Select
docexcel.ActiveWorkBook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="Lotus!C1:C3").CreatePivotTable TableDestination:="", TableName:="Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion10
docexcel.ActiveWorkBook.ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
docexcel.ActiveWorkBook.ActiveSheet.Cells(3, 1).Select
docexcel.ActiveWorkBook.ActiveSheet.PivotTables("Tableau croisé dynamique1").AddFields RowFields:="Action", ColumnFields:="Animateur"'
With docexcel.ActiveWorkBook.ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Nom apporteur")
.Orientation = xlDataField
.NumberFormat = "0"
End With[/syntax]

les ligne 2 3 et 5ème ligne sont en rouge dans mon designer...

je crois que l'affectation ":=" c'est de la formule....

Oui c'est le passage de tes paramètres qui posent problème.
Regarde ce tip que Stéphane a écrit

http://forum.dominoarea.org/la-gestion-des-fichiers-excel-en-lotusscript-t13000.html#55218

vu que l'astuce de l'enregistrement de la macro est récurrent, j'en ai fait un tip => http://forum.dominoarea.org/viewtopic,p ... tml#112663

bonne idée Michaël car des personnes ne connaissent pas cette option d'Excel et c'est vraiment très pratique

Moi ça m'a plus d'une fois permis de me sortir d'affaire sans trop galérer

merci pour les liens,

Mais même après avoir changer les affectation par '=' les noms des constantes par leurs valeurs

j'obtiens toujours un pb a l'enregistrement :

(avec le code c'est mieux )

[syntax="LotusScript"]docexcel.WorkSheets("Lotus").Columns("A:C").Select
docexcel.ActiveWorkBook.PivotCaches.Add(1, "Lotus!C1:C3").CreatePivotTable TableDestination="", TableName="Tableau croisé dynamique1", DefaultVersion=xlPivotTableVersion10
docexcel.ActiveWorkBook.ActiveSheet.PivotTableWizard TableDestination=ActiveSheet.Cells(3, 1)
docexcel.ActiveWorkBook.ActiveSheet.Cells(3, 1).Select
docexcel.ActiveWorkBook.ActiveSheet.PivotTables("Tableau croisé dynamique1").AddFields RowFields="Action", ColumnFields="Animateur"'
With docexcel.ActiveWorkBook.ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Nom apporteur")
.Orientation = 4
.NumberFormat = "0"
End With[/syntax]

je doit avoir mal retranscrit les paramétre de type : TableDestination="" pour la ligne 2 par exemple.

aussi le doc de stéphane est devant moi mais je ne trouve pas de références pour retranscrire correctement les instructions de type : docexcel.ActiveWorkBook.ActiveSheet.PivotTables("Tableau croisé dynamique1").AddFields RowFields="Action", ColumnFields="Animateur"'

Gillou13 a écrit:[syntax="LotusScript"]
docexcel.ActiveWorkBook.PivotCaches.Add(1, "Lotus!C1:C3").CreatePivotTable TableDestination="", TableName="Tableau croisé dynamique1", DefaultVersion=xlPivotTableVersion10
[/syntax]

j'écrirais plutôt comme ça:
[syntax="LotusScript"]call docexcel.ActiveWorkBook.PivotCaches.Add(1, "Lotus!C1:C3").CreatePivotTable("", "Tableau croisé dynamique1", xlPivotTableVersion10)
[/syntax]
Sans oublier de faire une constante pour "xlPivotTableVersion10".

je vais tester ça.