Discussion :

[leto2109]

Bonjour,

Je voudrais crée un TCD dans un classeur Excel ayant comme source un fichier CSV

Le code suivant fonctionne mais je voudrais éviter d'indiquer la plage (SourceData) pour automatiser la macro

Code :

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

1
2
3
4
5
    Workbooks("toto.xls").PivotCaches.Create(SourceType:=xlDatabase, _
        SourceData:="[" & myNomFichier & "]" & myNomTable & "!R1C1:R14C22", Version:= _
        xlPivotTableVersion10).CreatePivotTable TableDestination:= _
        myNomOnglet & "!R1C1", TableName:="Tableau croisé dynamique5", _
        DefaultVersion:=xlPivotTableVersion10

J'ai essayer de mettre

Code :

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

1
2
3
4
5
6
7
Set smrWB = Workbooks.Open(myRepertoire & myNomFichier, local:=True)
...
    Workbooks("toto.xls").PivotCaches.Create(SourceType:=xlDatabase, _
        SourceData:=smrWB.Worksheets(myNomTable).Range("A1").CurrentRegion.Address(, , xlR1C1, True), Version:= _
        xlPivotTableVersion10).CreatePivotTable TableDestination:= _
        myNomOnglet & "!R1C1", TableName:="Tableau croisé dynamique5", _
        DefaultVersion:=xlPivotTableVersion10

Mais ça ne marche pas

Est ce que quelqu'un aurait une idée ?

Merci

[Invité]

bonjour,
regarde ce lien: http://www.developpez.net/forums/d14...e/#post7916923

[leto2109]

J'ai pas mal regardé les différents post mais je n'ai pas trouvé de solution à mon problème.

La grosse difficulté vient du fait que j'utilise d'autres fichiers CSV et des variables. Si ma source de données était dans le même classeur je n'aurai pas de problème.