VBA : tableau croisé dynamique

nounaa78 Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention - 3 mai 2013 à 10:15

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

Afficher la suite

A voir également:

Activeworkbook.pivotcaches.create
Excel compter cellule couleur sans vba - Guide
Incompatibilité de type vba ✓ - Forum VB / VBA
Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
Mkdir vba ✓ - Forum VB / VBA
Dépassement de capacité vba ✓ - Forum Excel

3 réponses

Réponse 1 / 3

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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

Réponse 2 / 3

nounaa78 Messages postés 2 Date d'inscription Statut Membre Dernière intervention

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?

Réponse 3 / 3

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

appliquer une pause dans une macro vba excel

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

Votre réponse

Discussions similaires