VBA & TCD... Je rame...

[djainsone]

Bonjour à tous,

Peut-être ai-je mal fouiner sur la toile mais la je rame....
Mon soucis est l'actualisation auto de mon TCD via une macro.
Ma dernière ligne de code ne fonctionne pas.
Peut être que l'un d'entre vous pourrait m'aider.
Voici mon code :

    'effacer l'inutile
    
    Range("H1").Select
    Selection.End(xlDown).Select

    Do While Not (IsEmpty(ActiveCell))
    
    Selection.Offset(1, 0).Select
    
    Loop
    
    Derligne = ActiveCell.Row
    
    Rows(Derligne).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Selection.End(xlToLeft).Select
        
    'Se positionner en A1
        
    Range("A1").Select
        
  
    'Renommer la plage de données
    
    Range("A1:M1").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.Names("DONNEES").Delete
    ActiveWorkbook.Names.Add Name:="DONNEES", RefersToR1C1:= _
        "=OFFSET(Feuil1!R1C1,,,COUNTA(Feuil1!R1C1:R65000C1),10)"
        
    'Actualisation du tableau
    
    Sheets("TCD").Select
    ActiveSheet.PivotTables("TCDFRED").PivotCache.Refresh <== BUG...

Merci d'avance.
Fred

 

[Efgé]

Re : VBA & TCD... Je rame...

Bonjour djainsone,
Une proposition avec ce que j'ai compris.

[COLOR=green]'effacer l'inutile[/COLOR]
Range("H1:H" & Cells(Rows.Count, 8).End(xlUp).Row).ClearContents

Cordialement

 

[Efgé]

Re : VBA & TCD... Je rame...

Re
Désolé, pas assez lu la question .
Vérifie qu le TCD "TCDFRED" est bien sur la feuille active, voir qu'il existe.
Cordialement

 

[djainsone]

Re : VBA & TCD... Je rame...

Bonjour djainsone,
Une proposition avec ce que j'ai compris.

[COLOR=green]'effacer l'inutile[/COLOR]
Range("H1:H" & Cells(Rows.Count, 8).End(xlUp).Row).ClearContents

Cordialement

Merci Efgé.
Mais c'est la dernière ligne qui bug.
Je pense avoir trouver une solution de contournement en sélectionnant une cellule de mon tcd avec le refresh.
Je vous tiens au courant

 

[djainsone]

Re : VBA & TCD... Je rame...

Re
Désolé, pas assez lu la question .
Vérifie qu le TCD "TCDFRED" est bien sur la feuille active, voir qu'il existe.
Cordialement

Oui
En fait j'ai renommé mon Tcd pour eviter les noms a rallonge (ex:"tableau croisé dynamique 1")

 

[djainsone]

Re : VBA & TCD... Je rame...

c'est bon ça a fonctionné

il manquait une ligne

    'Actualisation du tableau
    
    Sheets("TCD").Select
    Range("B6").Select <= "ligne manquante o_O"
    ActiveSheet.PivotTables("TDCFRED").PivotCache.Refresh

Merci