Excel VBA TCD source

PC74cook32 Messages postés 336 Date d'inscription   Statut Membre Dernière intervention   -  
PC74cook32 Messages postés 336 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

je suis en train de programmer une macro qui crée un TCD/GCD.

J'ai donc enregistré la macro avec l'enregistreur. Mais j'ai un soucis : 
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "23.04.2019 01.45!R1C1:R100C7", Version:=xlPivotTableVersion15). _
        CreatePivotTable TableDestination:="Feuil1!R1C1", TableName:= _
        "Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion15


Dans cette partie, Excel prend en compte le fait que la page source des données s'appelle 23.04.2019 01.45

Or, lors de l'enregistrement elle s'appelait ainsi, mais plus maintenant.
J'aimerais donc que la source des données soit, soit l'active sheet; soit la feuille dont le nom est inclus dans la variable que j'ai nommé DDJok

J'ai tenté la méthode proposée ici https://forums.commentcamarche.net/forum/affich-23027919-excel-vba-tcd-sur-feuille-variable#answers mais je tombe sur une erreur.

Merci d'avance
A voir également:

1 réponse

Réponse 1 / 1
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Vous avez fait aussi ceci, en adaptant avec votre variable et plage?? 
Sel = Worksheets(NomOp).Range("A1:N" & lasti).Address(True, True, xlR1C1, True)
0
PC74cook32 Messages postés 336 Date d'inscription   Statut Membre Dernière intervention   35
 
Bonjour,

En adaptant les plages, j'obtiens, soit "l'indice n'appartient pas à la sélection" (erreur d'exécution 9), soit "incompatibilité de type" (erreur d'exécution 13)
0