Discussion :

[helenafr]

Bonjour!
Je voudrais créer un tableau croisé dynamique par Access VBA, pour une feuille Excel.
Mais je souhaite nommer la tableau croisé dynamique "MonNom", au lieu d’un nom créé aléatoirement par Excel. Toutes Les 2 façons ne marchent pas , je suis un peu perdue…
Merci bp par avance de votre aide !

1. Crée une feuille "Monnom" comme la destination du tableau croisé dynamique

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
Dim XLApp As Object
  Set XLApp = GetObject(, "Excel.Application")
  Dim xlWorkBook As Workbook
  Set xlWorkBook = Workbooks.Open("D:\Marketing Attack Plan\Tests\MRD test.xls")
  xlWorkBook.Application.Visible = True
 
   Dim xlSheet As Excel.Worksheet
   Set xlSheet = ActiveWorkbook.Worksheets.Add
   xlSheet.Name = "MonNom"
 
    Sheets("Feuil1").Select
    Columns("B:D").Select
 
   ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
   "Feuil1!B1:D698").CreatePivotTable TableDestination:="MonNom", TableName:= "Tableau croisé dynamique1"...

Erreur: Argument ou appel de procédure incorrect

2.nommer le tableau croisé dynamique directement

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
  Dim XLApp As Object
  Set XLApp = GetObject(, "Excel.Application")
  Dim xlWorkBook As Workbook
  Set xlWorkBook = Workbooks.Open("D:\Marketing Attack Plan\Tests\MRD test.xls")
  xlWorkBook.Application.Visible = True
 
   Dim xlCache As Excel.PivotCache
   Set xlCache =ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Feuil1!B1:D698").CreatePivotTable TableDestination:="", TableName:= "Tableau croisé dynamique1"
   xlCache.Name = "MonNom"

Erreur de compilation

[helenafr]

vous avez des idées, SVP?