Pb avec la feuille du TCD créé via vba

[cookies]

Bonjour le forum,

Après quelques essaies, j'ai du mal à créer mon TCD via vba. L'erreur se situe au niveau de la feuille qu'il crée. Voici le code (j'ai enlevé la suite de la construction du TCD)

Sub Macro1()

    Range("A18").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Sheets.Add
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Ordonnancement!R18C1:R1048576C32", Version:=xlPivotTableVersion12). _
        CreatePivotTable TableDestination:="Feuil2!R3C1", TableName:= _
        "Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion12
    Sheets("Feuil2").Select
    Cells(3, 1).Select
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Magasin" _
        )
        .Orientation = xlPageField
        .Position = 1
    End With

Donc ça marche la première fois car il crée bien la feuil2. Mais ensuite si je refait le TCD il crée donc une feuil3 et ça ne marche plus.
J'ai essayer :
à la place de Sheets("Feuil2").Select
j'ai tenté
Sheets(Shhets.Count).Activiate
ou Sheets(1).Activiate

mais rien.
Merci d'avance
Cookies

 

[Pierrot93]

Re : Pb avec la feuille du TCD créé via vba

Bonjour,

bah... si "feuil2" est la feuille crée, inutile de la selectionner, la feuille active sera toujours lanouvelle feuuille tu dois pouvoir supprimer "Sheets("Feuil2").Select"

bon après midi
@+

 

[cookies]

Re : Pb avec la feuille du TCD créé via vba

J'ai tenté mais non.
Car en fait une fois mes analyses faite, je supprime cette feuille de TCD de mon classeur.
Lorsque je relance la macro il génère une feuille nommée Feuil3, et pour tant j'ai suppr la feuil2

 

[Pierrot93]

Re : Pb avec la feuille du TCD créé via vba

Re,

oui mais si tu supprimes l'instruction de selection plus de souci, l'exécution se fera sur la feuille active, donc la feuille nouvellement crée... ou alors quelque chose doit m'échapper...

 

[cookies]

Re : Pb avec la feuille du TCD créé via vba

Salut,
non je pense que c'est moi qui loupe un truc. Ta réponse fait sens... mais tjrs pas... 😉
Il bug sur la création du TCD.
Le code ne marche que une seule fois en fait.
J'ai tenté ça (comme tu m'as dit)

Sub Macro1()

    Range("A18").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Sheets.Add
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Ordonnancement!R18C1:R1048576C32", Version:=xlPivotTableVersion12). _
        CreatePivotTable TableDestination:="Feuil2!R3C1", TableName:= _
        "Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion12

    Cells(3, 1).Select
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Magasin" _
        )
        .Orientation = xlPageField
        .Position = 1
    End With

humhum...

 

[Pierrot93]

Re : Pb avec la feuille du TCD créé via vba

Re,

quelle ligne en jaune lors du débogage ?

 

[cookies]

Re : Pb avec la feuille du TCD créé via vba

Salut,

C'est tout le paragraphe de la création du TCD

 ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Ordonnancement!R18C1:R1048576C32", Version:=xlPivotTableVersion12). _
        CreatePivotTable TableDestination:="Feuil2!R3C1", TableName:= _
        "Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion12

et la fleche sur la dernière ligne eet il met "erreur définie par l'application ou par l'objet" erreur '1004'

Merci.
Cookies

 

[JCGL]

Re : Pb avec la feuille du TCD créé via vba

Bonjour à tous,

Nomme ta feuille ajoutée "TCD"
En début de code supprime la et renomme la "TCD"

Fais appel à cette feuille pour la construction du TCD

Range("A18").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.DisplayAlerts = 0
    Sheets("TCD").Delete
    Application.DisplayAlerts = 1
    Sheets.Add
    Sheets.Name = "TCD"
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Ordonnancement!R18C1:R1048576C32", Version:=xlPivotTableVersion12). _
        CreatePivotTable TableDestination:="TCD!R3C1", TableName:= _
        "TCD1", DefaultVersion:=xlPivotTableVersion12


    Cells(3, 1).Select
    With ActiveSheet.PivotTables("TCD1").PivotFields("Magasin")
        .Orientation = xlPageField
        .Position = 1
    End With

A+ à tous

 

[cookies]

Re : Pb avec la feuille du TCD créé via vba

Bonjour,

merci pour la réponse.
J'ai tenté mais il plante sur le Sheets.Name =

Merci
Cookies

 

[JCGL]

Re : Pb avec la feuille du TCD créé via vba

Bonjour à tous,

Peux-tu essayer :

ActiveSheet.Name = "TCD"

A+ à tous

 

[cookies]

Re : Pb avec la feuille du TCD créé via vba

Bonjour,

Super, merci à tous les deux.

A bientôt
Cookies