Sub MAJ_BDD()
Dim nbr_connect%, i%, obj As Object, nom_connect$
nbr_connect = ThisWorkbook.Connections.Count
For i = 1 To nbr_connect
Set obj = ThisWorkbook.Connections(i)
If obj.Type = xlConnectionTypeOLEDB Then obj.OLEDBConnection.BackgroundQuery = False
If obj.Type = xlConnectionTypeODBC Then obj.ODBCConnection.BackgroundQuery = False
nom_connect = Replace(obj.Name, "Requête", "")
Application.StatusBar = "MAJ_BDD " & i & " / " & nbr_connect & " | " & nom_connect
Application.Wait Now + TimeValue("0:00:02")
obj.Refresh
Next
End Sub