VBA & TCD... Je rame...

djainsone · 17 Novembre 2010

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 :

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é · 17 Novembre 2010

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

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

Code:

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

Cordialement

Efgé · 17 Novembre 2010

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 · 17 Novembre 2010

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

Efgé à dit:
Bonjour djainsone,
Une proposition avec ce que j'ai compris.

Code:

[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 · 17 Novembre 2010

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

Efgé à dit:
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 · 17 Novembre 2010

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

c'est bon ça a fonctionné

il manquait une ligne

Code:

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

Merci

VBA & TCD... Je rame...

djainsone

XLDnaute Nouveau

Efgé

XLDnaute Barbatruc

Efgé

XLDnaute Barbatruc

djainsone

XLDnaute Nouveau

djainsone

XLDnaute Nouveau

djainsone

XLDnaute Nouveau

Discussions similaires