Discussion :

[spud96]

Bonjour,

J'ai un classeur excel qui comprend plusieurs données externes .

Sur la feuille 1 j'ai une requete nommée BALANCE que je souhaite actualiser à partir d'un bouton .

J'ai trouvé ce code

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
Sub MiseAJourRQ()
 
'maj des queries
For Each she In ActiveWorkbook.Sheets
she.Select
If ActiveSheet.QueryTables.Count > 0 Then
For Each tbl In she.QueryTables
tbl.Refresh
Next tbl
End If
 
'maj des tcd
 
For Each tcd In she.PivotTables
tcd.Refresh
Next tcd
Next she
End Sub

Mais ce code actualise tout le classeur, je souhaiterai actualiser seulement la requête BALANCE


Si quelqu’un peut m'aider

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
For Each she In Worksheets
    For Each tbl In she.QueryTables
        If tbl.Name = "BALANCE" Then
            tbl.Refresh
            Exit Sub
        End If
    Next tbl
Next she

Ou simplement et directement,

Code :

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

Sheets("Feuil2").Range("A1").QueryTable.Refresh

La querytable est liée à la cellule A1 de la feuil Feuil2

[spud96]

Merci pour ton aide