ecrire une macro " actuliser" (ctrl -alt-F5)

[polyteis]

bonjour à toutes et tous,

je vais vers vous car j'ai un petit souci.
dans mon classeur 5 ongles :
- le premier me sert de base de données
- Dans les 4 autres, les differents TCD

Pour actualiser les données après ouvertures je dois composer la combinaison suivante :
CTRL ALT F5

j'aimerai disposer d'une macro qui ser affecter à un bouton pour actuliser l'ensembles des TCD du classeur.

je vous remercie par avance de vous pencher sur mon probleme

 

[Pierrot93]

Re : ecrire une macro " actuliser" (ctrl -alt-F5)

Bonjour,

essaye ceci, macro à affecter à ton bouton :

Option Explicit
Sub test()
ThisWorkbook.RefreshAll
End Sub

bon après midi
@+

 

[Pierrot93]

Re : ecrire une macro " actuliser" (ctrl -alt-F5)

Re,

tu peux aussi utiliser ceci, se déclenchera à l'activation de la feuille, à placer dans le module "thisworkbook" :

Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.PivotTables.Count > 0 Then Sh.PivotTables(1).RefreshTable
End Sub

 

[polyteis]

Re : ecrire une macro " actuliser" (ctrl -alt-F5)

Bonjour Pierrot93
je vais essayer de suite ta commande

merci

 

[polyteis]

Re : ecrire une macro " actuliser" (ctrl -alt-F5)

bonjour,

merci pour la macro,
j'ai opté pour la seconde solution
cela fonctionne correctement
encore une fois merci