la destination de tableau croisé dynamique
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…:roll:
Merci bp par avance de votre aide ! :)
1. Crée une feuille "Monnom" comme la destination du tableau croisé dynamique
Code:
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:
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
