Bonjour Thierry et merci pour ton aide.
J'ai corrigé ce code (voir ci-dessous) en suivant ton conseil, mais ça ne fonctionne toujours pas.
J'ai également créer la macro avec l'enregistreur pour un seul Query (voir après) qui fonctionne pour voir les différences...
Ce qui est curieux c'est que la message box count me retourne zéro... Ce qui expliquerait pourquoi le premier code ne fonctionnerait pas, s'il trouve zéro. Le problème c'est que des connexions internet à la bourse il y en a 8, donc elles existent et fonctionnent par elles mêmes.
----------------------------------------------------------------------------------
Sub ActualiserFeuille()
' Ne fonctionne pas
Dim qt As QueryTable
MsgBox ActiveSheet.QueryTables.Count
' Réponse: 0 ??, alors qu'il y en a 8
For Each qt In Worksheets(23).QueryTables
' Il s'agit de la Feuil23
qt.Refresh BackgroundQuery:=False
Next
End Sub
----------------------------------------------------------------------------------
Sub AvecEnregistreur()
' Fonctionne pour 1 seule requête
Sheets("Bourses").Select
' Feuil23
Range("Zinc[[#Headers],[Bid (US$ / Tonne)]]").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
End Sub
-----------------------------------------------------------------------------------
Merci encore pour vos solutions.