Discussion :

[Nerva]

Bonjour.

J'ai enregistré cette macro qui fonctionne parfaitement quand je l'exécute :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sheets("Journal").Select
Range("A4").Select
ActiveSheet.PivotTables("TCD Journal").RefreshTable
Range("A1").Select
Sheets("Grand livre").Select
Range("A4").Select
ActiveSheet.PivotTables("TCD Grand livre").RefreshTable
Range("A1").Select
Sheets("Balance").Select
Range("A4").Select
ActiveSheet.PivotTables("TCD Balance").RefreshTable
Range("A1").Select
Sheets("Comptes").Select
Range("A1").Select

Mais si je l'affecte à un bouton (inséré dans la feuille "Comptes"), j'ai l'erreur 1004 qui s'affiche et dans le débogage, la seconde ligne est sélectionnée.

Merci du coup de pouce...

[mercatog]

Bonjour,
Evite les Select, ce code ferait l'affaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sheets("Journal").PivotTables("TCD Journal").RefreshTable
Sheets("Grand livre").PivotTables("TCD Grand livre").RefreshTable
Sheets("Balance").PivotTables("TCD Balance").RefreshTable

[Nerva]

Eh bien c'est parfait. Merci...