bonjour

je vooudrai pouvoir appeler des variables dans une procedure, qui feraient références a des zones du style : sheets("Donnees").range("TCD1")

J'ai fait plusieurs essais et a chaque fois j'ai des "" au debut et à la fin de la variable ce qui me donne une erreur d'execution (ce qui est normal)

Auriez vous une solution svp

une partie du code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Donnee = "sheets(""DONNEES"").Range(""TCD1"")"
Dest = "sheets(""Graphes"").Range(""B3"")"
var1 = "PotHA"
 
 
' **********************************************************************************************
'   Creation d'un tableau croisé dynamique  CAPdm
' **********************************************************************************************
 
Set CacheTCD = ActiveWorkbook.PivotCaches.Add _
    (SourceType:=xlDatabase, SourceData:=Donnee)
'
'   Creation d'un TCD à partir du cache
'
For Each feuille In Worksheets
    If feuille.Name = "Graphes" Then
        feuille.Activate
        Set TCD = CacheTCD.CreatePivotTable _
            (tabledestination:=Dest, tablename:="TCDCaPdm")
    End If
Next feuille
merci d'avance pour votre aide