[XL-2010] TCD avec SourceData variable depuis un autre fichier

TCD avec SourceData variable depuis un autre fichier

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:

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:

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

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

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.