Discussion :

[beurnoir]

Bjr,

J'ai le code suivant :

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
 
Sub Macro4()
'
' Macro4 Macro
' Macro enregistrée le 20/12/2005 par pommbe01
'
Dim LaFeuille As Excel.Worksheet
 
    Set MesfeuillesTest = Workbooks("REPORTING.xls").Worksheets
 
    For Each LaFeuille In MesfeuillesTest
 
    Cells(2, 1).Select
 
    Next
 
    Selection.QueryTable.Refresh BackgroundQuery:=False
 
End Sub

En fait je désire realiser un refresh en selectionnant pour toutes les feuilles du classeurs une cellule et en réalisant l'action refresh.

Le probleme est que mon code ne focntionne pas.

Comment faire pour obtenir l'action que je désire réaliser??

Merci

[Megaxel]

Hello!
Ha ben ça, oui, si tu mets le "refresh" en dehors de la boucle, ça ne va pas suffire: là, tu ne raffraichis que la dernière feuille de ton classeur.
Déplace le "Next" après "Refresh", et ça ira mieux.
Enfin, je crois...

[beurnoir]

Et non maintenant j'ai une erreur d'execution : Erreur définie par l'application ou par l'objet au niveau de la ligne :

Code :

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

1
2
 
Selection.QueryTable.Refresh BackgroundQuery:=False

Merci

[Megaxel]

Et tu as essayé de faire un "Activate" sur les feuilles juste avant le "Refresh"?

[beurnoir]

J'ai essayé le code suivant et j'ai tjr la meme erreur :

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
 
Sub Macro4()
'
' Macro4 Macro
' Macro enregistrée le 20/12/2005 par pommbe01
'
Dim LaFeuille As Excel.Worksheet
 
    Set MesfeuillesTest = Workbooks("REPORTING.xls").Worksheets
 
    For Each LaFeuille In MesfeuillesTest
 
    Cells(2, 1).Select
 
    LaFeuille.Activate
 
    Selection.QueryTable.Refresh BackgroundQuery:=False
 
    Next
 
End Sub

J'ai également essayé :

Code :

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

MesfeuillesTest.Activate

ca ne fonctionne pas non plus.

La je vois dsl.

Merci

[Megaxel]

Alors encore une question: qu'est-ce que tu veux "rafraîchir", dans tes onglets? Des formules de calculs?

[beurnoir]

En fait ce que je veux faire c'est simplement cliquer sur une cellule (n'importe laquel) actionner l'action Refresh pour toutes les feuilles de mon fichier Excel.

Merci

[SfJ5Rpw8]

et rajoute Lafeuille devant :

Code :

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

Cells(2, 1).Select

[Megaxel]

Et tout simplement

Code :

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

1
2
 
LaFeuille.Calculate

, ça ne marche pas?

[beurnoir]

Sub Macro4()
'
' Macro4 Macro
' Macro enregistrée le 20/12/2005 par pommbe01
J'ai essayé ce code et meme erreur :

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
Dim LaFeuille As Excel.Worksheet
 
    Set MesfeuillesTest = Workbooks("REPORTING.xls").Worksheets
 
    For Each LaFeuille In MesfeuillesTest
 
    LaFeuille.Cells(2, 1).Select
 
    LaFeuille.Activate
 
    Selection.QueryTable.Refresh BackgroundQuery:=False
 
    Next
 
End Sub

Je vais essayé

Code :

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

LaFeuille.Calculate

Merci

[beurnoir]

J'ai essayé 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
19
20
21
 
Sub Macro4()
'
' Macro4 Macro
' Macro enregistrée le 20/12/2005 par pommbe01
'
Dim LaFeuille As Excel.Worksheet
 
    Set MesfeuillesTest = Workbooks("REPORTING.xls").Worksheets
 
    For Each LaFeuille In MesfeuillesTest
 
    Cells(2, 1).Select
 
    LaFeuille.Calculate
 
    Selection.QueryTable.Refresh BackgroundQuery:=False
 
    Next
 
End Sub

Mais toujour un probleme au niveau de la ligne :

Code :

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

1
2
 
Selection.QueryTable.Refresh BackgroundQuery:=False

Merci

[Megaxel]

Mais je pense que le "Calculate" effectue ton raffraîchissement.
Supprime ta ligne avec le "...QueryTable..."

[SfJ5Rpw8]

QueryTable.refresh... c'est pour la mise à jour des données venant d'une table externe ( base...) il y en as dans toutes tes feuilles?

Code :

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

Cells(2, 1).Select

.. si tu met rien devant Excel sélection la cellule (2,1) de la feuille active.. , donc ne sert pas à grand chose dans ta boucle .. ( ou alors si tu ne ve pas écrire LaFeuille.Cells(2,1).select , précéde cette ligne de LaFeuille.Activate..

[beurnoir]

Et non ca ne merche pas, il selectionne juste la cellule.

[Megaxel]

Donc le ".Calculate" ne suffit pas.
On en revient à ma question de tout à l'heure: qu'est-ce que tu veux mettre à jour dans tes onglets? Ce sont vraiment des données venant d'une table externe, ou est-ce que ce sont des formules de calculs, ou des liens vers un autre classeur?