Erreur d'exécution 1004 - Batch avec actualisation requêtes QUERY

Bonjour à tous,

Ayant plusieurs bases de données, j'utilise Access (2016) que je lie avec chaque table.
Ensuite sur un Excel de travail, je souhaite reprendre chaque table via des requêtes QUERY.
Cela fonctionne très bien.
J'ai créé une macro pour faire l'actualisation :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Public a   Sub actu_Requetes() Dim TabBD() Dim f As String Dim i As Integer   TabBD = Array("IB", "CR", "TG", "FR", "NF", "AK", "TH", "NG", "KU") For i = LBound(TabBD) To UBound(TabBD) f = TabBD(i)   Sheets(f).Activate Range("A2").Select Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False Next i End Sub

---

Cette macro fonctionne bien également.
Mon problème réside dans le fait que je souhaite utiliser un batch pour ouvrir mon Excel et lancer ma macro.
Et lorsque je lance mon batch, j'obtiens :
Pièce jointe 199120

Lorsque je lance le débogage, c'est la ligne 14 du code qui est surlignée.
Pouvez-vous m'éclairer pour résoudre ce problème ?

Merci d'avance.
Lou

Bonjour Lou
Si j'ai bien compris, tu execute cette macro depuis un autre classeur.

Code:

---

1 2 3 4

Sheets(f).Activate Range("A2").Select Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False

---

Déjà le select peut être enlevé. Et d'autre part tu te réfères à une feuille mais sans préciser dans quel classeur elle se trouve ni si c'est un chart ou une worksheet.
Maintenant si tu as un seul tableau par onglet tu peux directement mettre :

Code:

---

1 2	'ThisWorkbook représente le classeur dans lequel se trouve le code ThisWorkbook.Worksheets(f).ListObjects(1).QueryTable.Refresh False

---

Autrement vu que tout est fermé au départ, j'imagine que tu as besoin de te connecter aux BDD pour que ça marche. L'aide excel donne :

Citation:

---

Lors de la connexion avec la source de données OLE DB ou ODBC, Microsoft Excel utilise la chaîne de connexion spécifiée par la propriété Connection. Si la chaîne de connexion spécifiée ne contient pas les valeurs requises, des boîtes de dialogue s'affichent pour demander les informations nécessaires à l'utilisateur. Si la propriété DisplayAlerts a la valeur False, ces boîtes de dialogue ne s'affichent pas et la méthode Refresh échoue, avec l'exception Informations pour la connexion insuffisantes.

---