Code vba pour réactualiser une requete query

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:

---

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.

Bonjour,

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

Code:

---

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:

---

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

---

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:

---

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

Super merci Marc-L et joe.levrai

Conformément aux règles de ce forum :



_____________________________________________________________________________________________________

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

J'ai bien fait de ne pas cliquer sur "resolu"..:roll:
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 ?

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 …

je vais tester immédiatement

effectivement le msgbox m'affiche 0 .
Ma feuile ne contien pas de queryTable..:ptdr:
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..?

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

Joe,
j'ai bien ecris feuil3 :

Code:

---

MsgBox Feuil3.QueryTables.Count

---

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

(oui je continue d'enfoncer des portes ouvertes)

Lorsque tu dis

Citation:

---

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

---

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

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

Citation:

---

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 ??:oops:

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 !

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

Citation:

---

ce n'est pas la feuille source de la QueryTable

---

.

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

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

Bonjour,

Marc-L t'a proposé

Code:

---

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

Bonjour joe.levrai
je vais essayer d'etre plus explicite..:roll:
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:

---

1 2 3

Private Sub bt_MAJ_Click() Call MAJ_All_Querys End Sub

---

Code:

---

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:

---

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:

---

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..:roll: