VBA : tableau croisé dynamique
Fermé
nounaa78
Messages postés
2
Date d'inscription
jeudi 2 mai 2013
Statut
Membre
Dernière intervention
3 mai 2013
-
2 mai 2013 à 14:27
f894009 Messages postés 17200 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 11 septembre 2024 - 3 mai 2013 à 10:15
f894009 Messages postés 17200 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 11 septembre 2024 - 3 mai 2013 à 10:15
A voir également:
- Activeworkbook.pivotcaches.create
- Vba range avec variable ✓ - Forum VB / VBA
- Mkdir vba ✓ - Forum VB / VBA
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
- Excel compter cellule couleur sans vba - Guide
- Vba dernière colonne non vide ✓ - Forum VB / VBA
3 réponses
f894009
Messages postés
17200
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 septembre 2024
1 709
2 mai 2013 à 16:15
2 mai 2013 à 16:15
Bonjour,
ligne en erreur de syntaxe:
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Import!R7C1:R2000C15 ", Version:=xlPivotTableVersion12).CreatePivotTable ""
TableDestination:="Synthèse_national!R3C1", TableName:=_"Tableau croisé dynamique4",
DefaultVersion:=xlPivotTableVersion12
ceci devrait aller:
Sheets("Import").Select
Range("A8:N5000").Select
Sheets.Add.Move After:=Sheets(Sheets.Count) 'creation de la feuille
Sheets(Sheets.Count).Name = "Synthèse_national"
'
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Import!R7C1:R2000C15 ", Version:=xlPivotTableVersion12).CreatePivotTable , _
TableDestination:="Synthèse_national!R3C1", TableName:="Tableau croisé dynamique4", _
DefaultVersion:=xlPivotTableVersion12
Bonne suite
ligne en erreur de syntaxe:
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Import!R7C1:R2000C15 ", Version:=xlPivotTableVersion12).CreatePivotTable ""
TableDestination:="Synthèse_national!R3C1", TableName:=_"Tableau croisé dynamique4",
DefaultVersion:=xlPivotTableVersion12
ceci devrait aller:
Sheets("Import").Select
Range("A8:N5000").Select
Sheets.Add.Move After:=Sheets(Sheets.Count) 'creation de la feuille
Sheets(Sheets.Count).Name = "Synthèse_national"
'
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Import!R7C1:R2000C15 ", Version:=xlPivotTableVersion12).CreatePivotTable , _
TableDestination:="Synthèse_national!R3C1", TableName:="Tableau croisé dynamique4", _
DefaultVersion:=xlPivotTableVersion12
Bonne suite
nounaa78
Messages postés
2
Date d'inscription
jeudi 2 mai 2013
Statut
Membre
Dernière intervention
3 mai 2013
3 mai 2013 à 10:10
3 mai 2013 à 10:10
Je te remercie de ta réponse mais lorsque j'ai modifié les lignes j'ai eu une fenêtre d'erreur indiquant "erreur de compilation : erreur syntaxe" en me surlignant les lignes suivantes :
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Import!R7C1:R2000C15 ", Version:=xlPivotTableVersion12).CreatePivotTable , _
Lorsque je l'ai modifié, le débogueur m'a même signalé une erreur sur les caractère "_" et également sur le ":=" après TableDestination
Une solution?
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Import!R7C1:R2000C15 ", Version:=xlPivotTableVersion12).CreatePivotTable , _
Lorsque je l'ai modifié, le débogueur m'a même signalé une erreur sur les caractère "_" et également sur le ":=" après TableDestination
Une solution?
f894009
Messages postés
17200
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 septembre 2024
1 709
Modifié par f894009 le 3/05/2013 à 10:19
Modifié par f894009 le 3/05/2013 à 10:19
Bonjour,
mais lorsque j'ai modifié les lignes vous avez fait un copier/coller de ce que je vous ai ecrit ou vous avez modifie vos lignes???
ligne sans les _:
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="Import!R7C1:R2000C15 ", Version:=xlPivotTableVersion12).CreatePivotTable , TableDestination:="Synthèse_national!R3C1", TableName:="Tableau croisé dynamique4", DefaultVersion:=xlPivotTableVersion12
copier/coller l'ensemble
mais lorsque j'ai modifié les lignes vous avez fait un copier/coller de ce que je vous ai ecrit ou vous avez modifie vos lignes???
ligne sans les _:
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="Import!R7C1:R2000C15 ", Version:=xlPivotTableVersion12).CreatePivotTable , TableDestination:="Synthèse_national!R3C1", TableName:="Tableau croisé dynamique4", DefaultVersion:=xlPivotTableVersion12
copier/coller l'ensemble