VBA : tableau croisé dynamique
nounaa78
Messages postés
2
Statut
Membre
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Etant toute toute toute débutante en VBA, je m'adresse à vous car je suis confrontée un problème que je ne parviens pas à résoudre.
J'ai une macro qui me donne un tableau croisé dynamique à partir de données recueillies sur une autre feuille Excel du même fichier.
Lorsque je lance la macro, j'obtiens un message d'erreur : "erreur de compilation : erreur de syntaxe".
Je vous copie les lignes du programmes concernées :
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
Je suis complètement larguée.
Merci de votre aide
Etant toute toute toute débutante en VBA, je m'adresse à vous car je suis confrontée un problème que je ne parviens pas à résoudre.
J'ai une macro qui me donne un tableau croisé dynamique à partir de données recueillies sur une autre feuille Excel du même fichier.
Lorsque je lance la macro, j'obtiens un message d'erreur : "erreur de compilation : erreur de syntaxe".
Je vous copie les lignes du programmes concernées :
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
Je suis complètement larguée.
Merci de votre aide
3 réponses
-
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 -
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? -
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
