Discussion :

[facteur]

Bonjour,

J'ai repris un code vba qui à l'époque a été construit sur excel 2003.
Et j'ai l'impression que sur Excel 2007 , ce code ne fonctionne pas.
Ce code est un code vba qui réactualise une requete query.
Voici le code

Code :

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

1
2
3
4
5
6
7
8
9
Sub MAJ_All_Querys()
 
   Dim qt As QueryTable, qts As QueryTables
    Set qts = Sheets("feuil1").QueryTables
    For Each qt In qts
 
        qt.Refresh BackgroundQuery:=False
    Next
End Sub

Sur la ligne 4, aprés le . de Sheets("feuil1"), je n'aie pas l'arboresence des objets qui apparait.

[joe.levrai]

Bonjour,

je pense qu'il instancier une variable Worksheet avec la feuille souhaitée, et directement travailler avec ta variable

Code :

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

1
2
3
 
Dim Sh as Worksheet
Set Sh = Thisworkbook.Worksheets("feuil1")

EDIT : j'ai testé et en mettant la feuille sous variable, ça fonctionne

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
 
Sub MAJ_All_Querys()
    Dim qt As QueryTable, qts As QueryTables
    Dim Sh As Worksheet
 
    Set Sh = ThisWorkbook.Worksheets("feuil1")
    ' si tu mets un Sh. tu obtiens bien le menu déroulant !
    Set qts = Sh.QueryTables
 
    For Each qt In qts
        qt.Refresh BackgroundQuery:=False
    Next
 
    Set Sh = Nothing
    Set qts = Nothing
 
End Sub

[Marc-L]

Bonjour,

ce code fonctionne pourtant indifféremment de mon côté quelque soit la version d'Excel.

Et pour le point c'est normal (cela le fait déjà dans la version 2003 !),
mieux vaut utiliser le CodeName de la feuille de calculs (et là l'arborescence s'affiche …) :

Code :

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

1
2
3
4
5
6
Sub MAJ_All_Querys()
         Dim Qt As QueryTable
    For Each Qt In Feuil1.QueryTables
             Qt.Refresh False
    Next
End Sub

_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[facteur]

Super merci Marc-L et joe.levrai

[Marc-L]

Conformément aux règles de ce forum :



_____________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[facteur]

J'ai bien fait de ne pas cliquer sur "resolu"..
J'ai parlé un peu trop vite

le code de Marc-L et de celui de joe.levrai ne réactualisent pas ma requete query.
Pour le code de Marc-L, le curseur saute la ligne 4
Pour le code de joe.levrai , le cusrsue saute la ligne 11

En résume, le curseur evite la ligne qui contient le Refresh..
Je ne comprens pas pourquoi ?

[Marc-L]

La feuille désignée ne contiendrait pas de QueryTable !

Et c'est simple à vérifier comme indiqué dans l'aide VBA, insérer cette ligne avant la boucle :

MsgBox Feuil1.QueryTables.Count …