Vba excel actualiser TCD Résolu

Question

Bonjour,


Voila j'ai un fichier excel qui conteient une feuille de données et d'autres feuilles avec des TCD qui proviennent de ces données....
Je voudrais créer un bouton qui permettent d'actualiser tous les TCD en meme temps..

Je n'arrive pas à créer cette macro...
Si vous pouviez m'aider

Voila j'avais pensé a un truc comme ca mais les données dans les TCD ne sont pas mises a jour

Sub Tcd()

Dim Tcd As PivotTable
Dim sht As Worksheet

For Each sht In ActiveWorkbook.Worksheets
Next

For Each Tcd In PivotTables
Tcd.RefreshTable
Next

End Sub


Merci

CCo · Accepted Answer

voici l'instruction pour un TCD

ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh

Sinon tu peux essayer cela:

ActiveWorkbook.RefreshAll

Bon courage

adelam · Answer

ok ca marche nickel merci...

alammerv · Answer

en fait ca marche jusqu'a ce que je mette le fichier en partage...
Et la ca ne marche plus j'ai un message d'erreur qui apparait:

C'et une fenetre contenant la croix d'arret avec comme explication '400'
Comment puis je modifier le partage ou la macro pour que ce message d'erreur n'apparaisse plus?

Merci d'avance...

Twiggy · Answer

Bonjour,

j'ai à peu près le même problème mais les solutions rpécédentes ne marchent pas.
En fait je cherche à faire une macro dans laquelle j'ai besoin d'actualiser à chaque tour de boucle (je change la valeur d'un menu déroulant et je veux actualiser les données correspondantes à cette nouvelle valeur choisie).

Voici mon code : 

Dim i As Integer
For i = 3 To 200
Sheets("centre").Select
Cells(i, 1).Select
    Selection.Copy
    Sheets("vérif nature").Select
    Cells(1, 10).Select
    ActiveSheet.Paste
    ActiveSheet.Paste
    Application.CutCopyMode = False
    
    ActiveWorkbook.RefreshAll
 Cells(67, 4).Select
    Selection.Copy
    Sheets("centre").Select
    Cells(i, 2).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("vérif nature").Select
    Cells(68, 4).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("centre").Select
    Cells(i, 3).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("vérif nature").Select
    Cells(69, 3).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("centre").Select
    Cells(i, 4).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
         Next i
End Sub

Mais le refreshall ne marche pas, ça me copie la première valeur partout...

merci de votre aide si qn a une idée! :)
Léa

Vba excel actualiser TCD

4 réponses

Discussions similaires

Newsletters