Discussion :

[sabrine1311]

Je souhaite faire un refreshquery avec un code vba mais la requête se trouve pas dans le classeur contenant la macro.
J'ai trouvé un code qui marche en le placant dans le meme classeur contenant les queries refresh all queries dans un classeur" mais je n'arrive pas à l'adapter pour faire un refresh dans un classeur différent du classeur contenant la macro!
Si vous avez des idées n'hesitez pas à les partager.

voici le code pour le refresh all queries

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub Bouton1_Cliquer()
'OK refresh all queries
 
Dim qt As QueryTable
Dim ws As Worksheet
Dim ActiveFile
 
ActiveFile = ActiveWorkbook.Name
 
'On Error Resume Next      ----------    Remarked out to help debug
 
'Application.ScreenUpdating = False      ----------    Remarked out to help debug
 
'Update all query tables
 
    Workbooks(ActiveFile).RefreshAll
 
' For Each ws In ActiveWorkbook.Worksheets     ' ----------    Original code that worked in Excel 2000
 
    If Run("BExAnalyzer.xla!SAPBEXrefresh", True) = 1 Then
 
Run "BExAnalyzer.XLA!SAPBEXrefresh", True
Call xBEXapi.SAPBEXrefresh(True)
 
 
End If
 
Application.ScreenUpdating = True
 
End Sub

Merci
Cdlt,
Sabrine

[Theze]

Bonjour,

Peut être en utilisant :

Code :

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

1
2
 
ActiveFile = "Nom_de_mon_Classeur_cible.xls"

au lieu de :

Code :

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

1
2
 
ActiveFile = ActiveWorkbook.Name

Hervé.

[sabrine1311]

Bonjour Herve,
Merci pour votre réponse.
j'ai essayé en indiquant meme le chemin ou se trouve le claseur de

Code :

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

ActiveFile = "Z:\controlegestion\Apprentis\Sabrine\PBA\Queries_test1\Result_JV7 COPA Projet  20140414.xlsm"

mais ça m'affiche msg d'erreur9 (l'indice n'appartient pas à la selection!