TCD en VBA

Question

Bonjour

pourriez vous m'aider? je veut créer une macro qui génére un tableau croisé dynamique à partir d'une plage de donnée qui peut être variable (mais elle est toujours dans la même feuille) ; c'est pourquoi au lieu de ce code : 

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"feuil1!R1C1:R21C2" TableDestination:= _
 "'[Cdes engagées .xls]Détail'!R4C1", TableName:= _
  "Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion10

je met ca :

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
  "sheets("feuil1").range("A1").currentregion"TableDestination:= _
        "'[Cdes engagées CRM_MM_YYYY.xls]Détail'!R4C1", TableName:= _
        "Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion10

voilà le code contient une erreur je sais plus comment procéder , merci bcp pour votre aide

jrivet · Answer

Salut,
Je dirais qu'il n'y a pas besoin des guillemets pour "sheets("feuil1").range("A1").currentregion"

Donc essaies

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
  sheets("feuil1").range("A1").currentregion, TableDestination:= _
        "'[Cdes engagées CRM_MM_YYYY.xls]Détail'!R4C1", TableName:= _
        "Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion10
@+: Ju£i?n
Pensez: Réponse acceptée

cs_encgt · Answer

salut
merci pour ta réponse , mais ca marche pas même en enlevant les guillemets comme tu m'as dit !!!!????

jrivet · Answer

Salut,
Alors essaie en remplacant la même chose par selection.

@+: Ju£i?n
Pensez: Réponse acceptée

cs_encgt · Answer

salut
j'ai pas compris!
qu'est ce que tu veut que je remplace par selection? Merci de m'éclaircir ça sur mon exemple

cs_MPi · Answer

Ce que JRivet veut dire, je pense c'est
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
 Selection, TableDestination:= _
        "'[Cdes engagées CRM_MM_YYYY.xls]Détail'!R4C1", TableName:= _
        "Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion10

Et n'oublie pas les virgules pour séparer les paramètres. Avant TableDestination, il n'y a pas de virgule dans tes 2 exemples...(?)

MPi

cs_encgt · Answer

Merci à vous 
j'ai réussi à le faire avec le code suivant : 
lignefin = Cells(1, 1).CurrentRegion.Rows.Count
colfin = Cells(1, 1).CurrentRegion.Columns.Count
lignedep = 1
coldep = 1
Sheets("nomfeuille").Select
Range("C1").Activate
Selection.Delete Shift:=xlToLeft
Range("A4").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'feuilledest'!R" & lignedep & "C" & coldep & ":R" & lignefin & "C" & colfin).CreatePivotTable TableDestination:=Range("A4") _
, TableName:="Tableau croisé dynamique7"

Encore une fois merci et à la prochaine

TCD en VBA

6 réponses

Votre réponse

Discussions similaires