Discussion :

[lllll7]

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 :

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

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 :


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

[letienne]

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

Code :

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

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 :

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

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 :

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.