Discussion :

[nana85]

salut le forum,

Bonjour et merci d'avance à tous les membres qui voudront bien m'aider à trouver une solution à mon souci.
mon prob c'est que je veux faire un TCD avec les donnees sources dans un autres fichier excel.

merci bcp

[ouskel'n'or]

Bonjour nana, bienvenue sur le forum.
Tu peux tester ça, je n'ai jamais testé sur un autre classeur. J'ai juste changé Workbooks("Classeur2") à la place de Thisworkbook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub test()
Dim Ligne As Long, col As Integer, adres As String
    Worksheets("feuil1").Select
    ligne = Range(Split(Range("A1").CurrentRegion.Address, ":")(1)).Row
    col = Range(Split(Range("A1").CurrentRegion.Address, ":")(1)).Column
    adres = ActiveSheet.Name & "!R" & 7 & "C1:R" & ligne & "C" & col
    Workbooks("Classeur2").PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        adres).CreatePivotTable Tabledestination:="", TableName:= _
        "TCD1", DefaultVersion:=xlPivotTableVersion10
End sub

A ce stade tu vas encore devoir désigner les champs que tu utilises et organiser tes données dans le TCD. Mais je pense que tu le sais...
Bonne journée.

[nana85]

merci beaucoup ouskel'n'or,

en fait j'ai trouve la solution manuellemnt
je pense plus simple

Sur le fichier vide, j'ai fais DONNEES RAPPORT DE TCD

==> "suivant"

Dans "où se trouve les données" j'ai clique sur la flèche rouge (à gauche de parcourir)

dans "Fenêtre" j'ai ouvert le fichier "source"

j'ai Sélectionne avec la souris la plage de données. j'ai Ferme


et en fin la construction du TCD

merci une autre fois