Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel TCD avec variable

TCD avec variable

2 réponses
Avatar
steph05
Bonjour,

J'ai un fichier =E0 partir duquel je voudrais faire plusieurs TCD.
Dans mon tableau initial, j'ai une colonne A qui contient des noms de
banques.
J'ai d=E9coup=E9 ce tableau en autant d'onglets qu'il y a de banques.
Pour chaque onglet (donc chaque banque), je voudrais faire un TCD.
J'ai nomm=E9 les onglets par le nom de la banque.

ActiveSheet.Name =3D nom

Jusque l=E0, =E7a va.
Mais ensuite, j'ai fait une boucle bas=E9e sur cette variable "nom" mais
=E7a ne marche pas. O=F9 est mon erreur?


Columns("A:E").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=3DxlDatabase, SourceData:=3D _
"nom!A1:E36000").CreatePivotTable TableDestination:=3D"",
TableName:=3D"PivotTable2" _
, DefaultVersion:=3DxlPivotTableVersion10

Sachant que si je code le nom de la banque en dur, =E7a marche:
Columns("A:E").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=3DxlDatabase, SourceData:=3D _
"Natixis!A1:E36000").CreatePivotTable TableDestination:=3D"",
TableName:=3D"PivotTable2" _
, DefaultVersion:=3DxlPivotTableVersion10

Merci beaucoup d'avance
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
steph05
Super, ça marche avec la variable.
Merci beaucoup
Avatar
Jac
... et si tu enlevais les "" autour de "nom!A1:E36000" ?

Si non, tu introduis une variable :

LA_CIBLE = nom & "!A1:E36000"

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
LA_CIBLE).CreatePivotTable...

Jac

Bonjour,

J'ai un fichier à partir duquel je voudrais faire plusieurs TCD.
Dans mon tableau initial, j'ai une colonne A qui contient des noms de
banques.
J'ai découpé ce tableau en autant d'onglets qu'il y a de banques.
Pour chaque onglet (donc chaque banque), je voudrais faire un TCD.
J'ai nommé les onglets par le nom de la banque.

ActiveSheet.Name = nom

Jusque là, ça va.
Mais ensuite, j'ai fait une boucle basée sur cette variable "nom" mais
ça ne marche pas. Où est mon erreur?


Columns("A:E").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"nom!A1:E36000").CreatePivotTable TableDestination:="",
TableName:="PivotTable2" _
, DefaultVersion:=xlPivotTableVersion10

Sachant que si je code le nom de la banque en dur, ça marche:
Columns("A:E").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Natixis!A1:E36000").CreatePivotTable TableDestination:="",
TableName:="PivotTable2" _
, DefaultVersion:=xlPivotTableVersion10

Merci beaucoup d'avance