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 :
Merci d'avance.
Fred
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
Dernière édition: