Bonjour,

J'ai un tableau croisé dynamique déjà défini.

Mon problème se porte sur la manière d'envoyer la plage de données du TCD vers un objet Range.

Sachant que le format de SourceData est Feuil1!L1C1:L13C5 j'ai écrit
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Test()
    Dim strSource As String
    Dim strFeuille As String
    Dim strPlage As String
    Dim sh As Worksheet
    Dim rng As Range
 
    strSource = ActiveSheet.PivotTables("TCD").SourceData
    strFeuille = Left(strSource, InStr(strSource, "!") - 1)
    strPlage = Right(strSource, Len(strSource) - InStr(strSource, "!"))
    Set sh = ActiveWorkbook.Worksheets(strFeuille)
    Set rng = sh.Range(strPlage)
...
End Sub
Bien entendu l'objet Range n'accepte pas la référence.
J'ai essayé avec Evaluate mais le pb est le même...

Comment peut-on transformer la référence L1C1:L13C5 en A1:E13 ?

Par avance merci de l'aide que vous m'apporterez
Seb