Discussion :

[bartimeus35]

Bonjour,
Je cherche depuis de lustres à pouvoir faire ACTUALISER TOUT en VBA.

J'ai besoin de faire cela car après une insertion dans une table, j'ai besoin que tout soit actualisé, et la seule solution que j'ai trouvée est d'ouvrir une fenêtre qui demande à l'utiliateur de le faire manuellement,
.
Ca fonctionne évidemment mais c'est vraiment moche comme solution.


Merki

[tee_grandbois]

bonjour,
il faut exécuter la commande du bouton:

Code VBA :

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

1
2
3
Sub ActualiserTout()
CommandBars.ExecuteMso "DataRefreshAll"
End Sub

[bartimeus35]

Merci, je vais essayer ça

[bartimeus35]

re, vu que mon code doit s’exécuter via une macro en fait, j'ai donc Ajouté ExecutertLe COde (cf image)

J'ai mis un point d’arrêt dans la fonction Actualiser tout et je n'y passe pas, : grrrrrrrrrrrrrrrrrrrrrrrrr
où est l'erreur, ça doit être un truc gros comme le monde , mais je sèche .

[tee_grandbois]

1) il manque les parenthèses: ActualiserTout()
2) si c'est pour utiliser dans une macro il faut obligatoirement que ce soit une Function et pas une Sub:

Code :

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

1
2
3
4
5
Function ActualiserTout()
' Exécuter la commande du ruban "Actualiser Tout"
On Error GoTo He: CommandBars.ExecuteMso "DataRefreshAll"
He: If err <> 0 Then MsgBox "Erreur " & err & " - " & err.DESCRIPTION
End Function

3) il devrait y avoir un message d'erreur non ?

[bartimeus35]

J'ai mis ton code, ça fonctionne mais si je mets un point d'arrêt, il ne s’y arête pas, c'est bizarre.