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 …

[facteur]

je vais tester immédiatement

[facteur]

effectivement le msgbox m'affiche 0 .
Ma feuile ne contien pas de queryTable..
je vais refaire ma requete ..
Merci encore Marc-L

Mais ce que je ne comprend pas, c'est pourquoi lorsque, sur la feuil3, je réctualise manuellement ma requete query, celuici se réactualise..?

[joe.levrai]

je vais peut être enfoncer une porte ouverte, mais ton code fait référence à feuil1

donc même si tu as des Qt sur feuil3, ta macro ne va pas aller les actualiser ... et donc ton compteur de Qt affiche 0 si y'en a pas sur feuil1

[facteur]

Joe,
j'ai bien ecris feuil3 :

Code :

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

MsgBox Feuil3.QueryTables.Count

[joe.levrai]

tu n'as pas mélangé CodeName et Nom de la feuille ?

(oui je continue d'enfoncer des portes ouvertes)

[facteur]

Lorsque tu dis

tu n'as pas mélangé CodeName et Nom de la feuille ?

Que veux tu dire ?
La feuil3 a pour nom "TMJ"

[facteur]

Bonjour Marc-L
je reviens vers toi au sujet du problème de la non réactualistion d'une requete query.
Tu avais écris

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 ….

effectivement j'ai 0 à ce message.

Comment se fait il que ma feuille ne contient pas de QuerytABLE ,

Et qu 'est ce que un QueryTable ??

[Marc-L]

Soit ce n'est pas la feuille source de la QueryTable soit la requête (voir l'aide d'Excel et celle de VBA) a été supprimée …




_____________________________________________________________________________________________________
Copier / Coller n'est pas programmer !

[facteur]

Bonjour Marc-L,
Que veux tu dire lorsque tu ecris

ce n'est pas la feuille source de la QueryTable

.

[Marc-L]

Ce n'est pas la bonne feuille de calculs comme Joe l'a déjà indiqué …

[facteur]

je ne comprend pas car c'est bien la feuil3 ou est inseré la requete

[joe.levrai]

Bonjour,

Marc-L t'a proposé

Code :

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

MsgBox Feuil1.QueryTables.Count

tu as bien mis ta Feuil3 à la place de Feuil1 ?

on peut voir ton code tel qu'il se présente maintenant ? En nous précisant bien :

- le nom de la feuille : le nom qui apparait dans l'onglet sur Excel
- le codename de la feuille : dans l'éditeur de code, c'est le nom de la feuille qui n'est pas entre parenthèse

[facteur]

Bonjour joe.levrai
je vais essayer d'etre plus explicite..
j'ai un fichier Excel qui contient plusieurs feuilles :
- La feuil1 intitulé ("TdB") contient un bouton de commande avec un code sur l'évenement clic :

Code :

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

1
2
3
Private Sub bt_MAJ_Click()
Call MAJ_All_Querys
End Sub

Code :

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

1
2
3
4
5
6
7
Sub MAJ_All_Querys()
  Application.Calculation = xlCalculationManual
    Call [Feuil2].MAJ_All_Querys
    Call [Feuil3].MAJ_All_Querys
    Call [Feuil4].MAJ_All_Querys
  Application.Calculation = xlCalculationAutomatic
End Sub

La feuil3 intitulé ("TMJ") contient le code qui pose problème :

Code :

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

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

Lorsque je met j'exécute le code pas à pas , le curseur saute la ligne

Code :

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

qt.Refresh BackgroundQuery:=False

.Et le Msgbox affiche 0 comme résultat.
Ma requete query ne se réactualise pas

voilà , j'espere quie mes explications pourront vous aidez à m'aider..