Salut Zin !
Si tu as fait des requêtes internet, c'est simple !
En admettant que tu aies deux requêtes une pour la feuille 1, 1 pour lla feuille 2.
Sub MettreAJour ()
Sheets("Feuil1").select
Selection.QueryTable.Refresh
Sheets("Feuil2").Select
Selection.QueryTable.Refresh
End Sub
Maintenant tu risques d'avoir besoin dans certains cas de devoir sélectionner une cellule, avant de lancer le Refresh, donc :
Sub MettreAJour ()
Sheets("Feuil1").Range("A2").Select
Selection.QueryTable.Refresh
Sheets("Feuil2").Range("A2").Select
Selection.QueryTable.Refresh
End Sub
Tu mets ce code soit dans un macro que tu affectes à un ton bouton de commande, soit directement dans le code du Bouton de Commande.
Pour le deuxième cas, c'est simple :
En mode "Création", tu double-clique sur ton Bouton de Commande, et tu arrives directement dans sa fenêtre de code.
@ +
Moa