Mise à jour automatique

ben en fait sheets c'est un onglet on essaye de mettre ca:
sheet4.select
avant : Application.OnSheetActivate = "UpdateIt"

-----Message d'origine-----
Bonjour à tous les génies


Je persévére dans mes pivotages, et cela avance très bien
merci beaucoup

Et put$£#~~n que c'est puissant ce truc là!

J'ai récupéreé une petite macro qui est sensé faire une
remise à jour

automatique quand on ouvre la feuille contenant la table
pivot

Mais

Soit j'ai fait une connerie (habituel pour moi) soit je
ne l'ai peut-être

pas mis à la bonne place
J'ai ouvert l'éditeur et je l'ai inséré dans le module de
la feuille

contenant la table pivot

Voici le code
' **************************************
Sub Auto_Open()
Application.OnSheetActivate = "UpdateIt"
End Sub

' ****************************************

Sub UpdateIt()
Dim iP As Integer
Application.DisplayAlerts = False
For iP = 1 To ActiveSheet.PivotTables.Count
ActiveSheet.PivotTables(iP).RefreshTable
Next
Application.DisplayAlerts = True
End Sub

' **********************************************

Mais cela ne réagit pas


La feuille s'appelle tout simplement "Sheet4"
Est-ce que je dois mettre le nom de cette feuille quelque
part?

J'ajoute que si je fait un refresh data en utilisant le
point d'exclamation

de la barre d'outil table pivot la remise à jour se passe
correctement

Quelqu'un peut-il m'aider (encore une fois, s'il-vous-
plait)

Merci beaucoup

Rex







.

Bonjour et merci

Malheureusement cela ne fonctionne pas non plus

Si quelqu'un a une autre idée

Merci et à plus tard

Rex


"aurelien" <anonymous@discussions.microsoft.com> wrote in message
news:8c7e01c485d4$ca985b80$a501280a@phx.gbl...
ben en fait sheets c'est un onglet on essaye de mettre ca:
sheet4.select
avant : Application.OnSheetActivate = "UpdateIt"

-----Message d'origine-----
Bonjour à tous les génies


Je persévére dans mes pivotages, et cela avance très bien
merci beaucoup

Et put$£#~~n que c'est puissant ce truc là!

J'ai récupéreé une petite macro qui est sensé faire une
remise à jour

automatique quand on ouvre la feuille contenant la table
pivot

Mais

Soit j'ai fait une connerie (habituel pour moi) soit je
ne l'ai peut-être

pas mis à la bonne place
J'ai ouvert l'éditeur et je l'ai inséré dans le module de
la feuille

contenant la table pivot

Voici le code
' **************************************
Sub Auto_Open()
Application.OnSheetActivate = "UpdateIt"
End Sub

' ****************************************

Sub UpdateIt()
Dim iP As Integer
Application.DisplayAlerts = False
For iP = 1 To ActiveSheet.PivotTables.Count
ActiveSheet.PivotTables(iP).RefreshTable
Next
Application.DisplayAlerts = True
End Sub

' **********************************************

Mais cela ne réagit pas


La feuille s'appelle tout simplement "Sheet4"
Est-ce que je dois mettre le nom de cette feuille quelque
part?

J'ajoute que si je fait un refresh data en utilisant le
point d'exclamation

de la barre d'outil table pivot la remise à jour se passe
correctement

Quelqu'un peut-il m'aider (encore une fois, s'il-vous-
plait)

Merci beaucoup

Rex







.

Bonjour Rex,

Clique droit sur le tableau / Table options / Refresh on
open ... et le tour est joué !
Elle n'est pas belle la Vie !

Pascal.

-----Message d'origine-----
Bonjour à tous les génies


Je persévére dans mes pivotages, et cela avance très bien
merci beaucoup

Et put$£#~~n que c'est puissant ce truc là!

J'ai récupéreé une petite macro qui est sensé faire une
remise à jour

automatique quand on ouvre la feuille contenant la table
pivot

Mais

Soit j'ai fait une connerie (habituel pour moi) soit je
ne l'ai peut-être

pas mis à la bonne place
J'ai ouvert l'éditeur et je l'ai inséré dans le module de
la feuille

contenant la table pivot

Voici le code
' **************************************
Sub Auto_Open()
Application.OnSheetActivate = "UpdateIt"
End Sub

' ****************************************

Sub UpdateIt()
Dim iP As Integer
Application.DisplayAlerts = False
For iP = 1 To ActiveSheet.PivotTables.Count
ActiveSheet.PivotTables(iP).RefreshTable
Next
Application.DisplayAlerts = True
End Sub

' **********************************************

Mais cela ne réagit pas


La feuille s'appelle tout simplement "Sheet4"
Est-ce que je dois mettre le nom de cette feuille quelque
part?

J'ajoute que si je fait un refresh data en utilisant le
point d'exclamation

de la barre d'outil table pivot la remise à jour se passe
correctement

Quelqu'un peut-il m'aider (encore une fois, s'il-vous-
plait)

Merci beaucoup

Rex







.

Bonjour

Oui la vie est belle
Enfin parfois, mais pas cette foi-ci

Cette option ne fonctionne que quand tu ouvre le fichier, et pas quand on
saute d'une feuille à l'autre

J'explique
La table pivot est est feuille "sheet4" mes informations en "sheet1"

Si je change l'information en feuille "sheet1" et que je clique sur l'onglet
"sheet4" l'information n'est pas mise à jour
Si après avoir changé l'information en "sheet1" je ferme le fichier et que
je l'ouvre, l'option refresh on open remets la feuille "sheet4" à jour

Ce que je cherche à faire c'est que sans fermer le fichier, simplement en
changeant l'info sur la feuille "sheet1", puis quand j'ouvre la feuille
"sheet4" elle soit automatiquement mise à jour sans devoir clicquer sur le !
du menu Pivot Table

Merci pour le conseil

Et à plus tard

Rex

"Pascal" <anonymous@discussions.microsoft.com> wrote in message
news:91f801c485d6$a23a6cd0$a601280a@phx.gbl...
Bonjour Rex,

Clique droit sur le tableau / Table options / Refresh on
open ... et le tour est joué !
Elle n'est pas belle la Vie !

Pascal.

-----Message d'origine-----
Bonjour à tous les génies


Je persévére dans mes pivotages, et cela avance très bien
merci beaucoup

Et put$£#~~n que c'est puissant ce truc là!

J'ai récupéreé une petite macro qui est sensé faire une
remise à jour

automatique quand on ouvre la feuille contenant la table
pivot

Mais

Soit j'ai fait une connerie (habituel pour moi) soit je
ne l'ai peut-être

pas mis à la bonne place
J'ai ouvert l'éditeur et je l'ai inséré dans le module de
la feuille

contenant la table pivot

Voici le code
' **************************************
Sub Auto_Open()
Application.OnSheetActivate = "UpdateIt"
End Sub

' ****************************************

Sub UpdateIt()
Dim iP As Integer
Application.DisplayAlerts = False
For iP = 1 To ActiveSheet.PivotTables.Count
ActiveSheet.PivotTables(iP).RefreshTable
Next
Application.DisplayAlerts = True
End Sub

' **********************************************

Mais cela ne réagit pas


La feuille s'appelle tout simplement "Sheet4"
Est-ce que je dois mettre le nom de cette feuille quelque
part?

J'ajoute que si je fait un refresh data en utilisant le
point d'exclamation

de la barre d'outil table pivot la remise à jour se passe
correctement

Quelqu'un peut-il m'aider (encore une fois, s'il-vous-
plait)

Merci beaucoup

Rex







.

Et pourquoi ne mettrais-tu pas cela directement sur
l'événement activation de la feuille...
Sub Worksheet_Activate()
Dim iP As Integer
Application.DisplayAlerts = False
For iP = 1 To ActiveSheet.PivotTables.Count
ActiveSheet.PivotTables(iP).RefreshTable
Next
Application.DisplayAlerts = True
End Sub

Yann

-----Message d'origine-----
Bonjour

Oui la vie est belle
Enfin parfois, mais pas cette foi-ci

Cette option ne fonctionne que quand tu ouvre le
fichier, et pas quand on

saute d'une feuille à l'autre

J'explique
La table pivot est est feuille "sheet4" mes
informations en "sheet1"

Si je change l'information en feuille "sheet1" et que je
clique sur l'onglet

"sheet4" l'information n'est pas mise à jour
Si après avoir changé l'information en "sheet1" je ferme
le fichier et que

je l'ouvre, l'option refresh on open remets la
feuille "sheet4" à jour

Ce que je cherche à faire c'est que sans fermer le
fichier, simplement en

changeant l'info sur la feuille "sheet1", puis quand
j'ouvre la feuille

"sheet4" elle soit automatiquement mise à jour sans
devoir clicquer sur le !

du menu Pivot Table

Merci pour le conseil

Et à plus tard

Rex

"Pascal" <anonymous@discussions.microsoft.com> wrote in
message

news:91f801c485d6$a23a6cd0$a601280a@phx.gbl...
Bonjour Rex,

Clique droit sur le tableau / Table options / Refresh on
open ... et le tour est joué !
Elle n'est pas belle la Vie !

Pascal.

-----Message d'origine-----
Bonjour à tous les génies


Je persévére dans mes pivotages, et cela avance très
bien

merci beaucoup

Et put$£#~~n que c'est puissant ce truc là!

J'ai récupéreé une petite macro qui est sensé faire une
remise à jour

automatique quand on ouvre la feuille contenant la table
pivot

Mais

Soit j'ai fait une connerie (habituel pour moi) soit je
ne l'ai peut-être

pas mis à la bonne place
J'ai ouvert l'éditeur et je l'ai inséré dans le module
de

la feuille

contenant la table pivot

Voici le code
' **************************************
Sub Auto_Open()
Application.OnSheetActivate = "UpdateIt"
End Sub

' ****************************************

Sub UpdateIt()
Dim iP As Integer
Application.DisplayAlerts = False
For iP = 1 To ActiveSheet.PivotTables.Count
ActiveSheet.PivotTables(iP).RefreshTable
Next
Application.DisplayAlerts = True
End Sub

' **********************************************

Mais cela ne réagit pas


La feuille s'appelle tout simplement "Sheet4"
Est-ce que je dois mettre le nom de cette feuille
quelque

part?

J'ajoute que si je fait un refresh data en utilisant le
point d'exclamation

de la barre d'outil table pivot la remise à jour se
passe

correctement

Quelqu'un peut-il m'aider (encore une fois, s'il-vous-
plait)

Merci beaucoup

Rex







.

.

Bonjour RT,

Essaie ceci en modifiant le nom de la feuille pour celle de ton application.

'-----------------------
Sub UpDateIt()

Dim Pt As PivotTable
With Worksheets("Feuil1")
For Each Pt In .PivotTables
Pt.RefreshTable
Next
End With
Set Pt = Nothing

End Sub
'-----------------------


Salutations!



"RT" <rthsopmapmson@softscreen.be> a écrit dans le message de news:uG_Uc.218807$Gv2.10667106@phobos.telenet-ops.be...
Bonjour à tous les génies


Je persévére dans mes pivotages, et cela avance très bien merci beaucoup

Et put$£#~~n que c'est puissant ce truc là!

J'ai récupéreé une petite macro qui est sensé faire une remise à jour
automatique quand on ouvre la feuille contenant la table pivot

Mais

Soit j'ai fait une connerie (habituel pour moi) soit je ne l'ai peut-être
pas mis à la bonne place
J'ai ouvert l'éditeur et je l'ai inséré dans le module de la feuille
contenant la table pivot

Voici le code
' **************************************
Sub Auto_Open()
Application.OnSheetActivate = "UpdateIt"
End Sub

' ****************************************

Sub UpdateIt()
Dim iP As Integer
Application.DisplayAlerts = False
For iP = 1 To ActiveSheet.PivotTables.Count
ActiveSheet.PivotTables(iP).RefreshTable
Next
Application.DisplayAlerts = True
End Sub

' **********************************************

Mais cela ne réagit pas


La feuille s'appelle tout simplement "Sheet4"
Est-ce que je dois mettre le nom de cette feuille quelque part?

J'ajoute que si je fait un refresh data en utilisant le point d'exclamation
de la barre d'outil table pivot la remise à jour se passe correctement

Quelqu'un peut-il m'aider (encore une fois, s'il-vous-plait)

Merci beaucoup

Rex

Bonsoir,

Ces deux macros doivent être copiées dans un module standard de ton VBAProject.
Ce genre de module n'est pas présent par défaut dans un projet, il faut en
ajouter un par la commande de menu InsertionModule dans l'éditeur Visual Basic.

FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !

Bonjour à tous les génies


Je persévére dans mes pivotages, et cela avance très bien merci beaucoup

Et put$£#~~n que c'est puissant ce truc là!

J'ai récupéreé une petite macro qui est sensé faire une remise à jour
automatique quand on ouvre la feuille contenant la table pivot

Mais

Soit j'ai fait une connerie (habituel pour moi) soit je ne l'ai peut-être
pas mis à la bonne place
J'ai ouvert l'éditeur et je l'ai inséré dans le module de la feuille
contenant la table pivot

Voici le code
' **************************************
Sub Auto_Open()
Application.OnSheetActivate = "UpdateIt"
End Sub

' ****************************************

Sub UpdateIt()
Dim iP As Integer
Application.DisplayAlerts = False
For iP = 1 To ActiveSheet.PivotTables.Count
ActiveSheet.PivotTables(iP).RefreshTable
Next
Application.DisplayAlerts = True
End Sub

' **********************************************

Mais cela ne réagit pas


La feuille s'appelle tout simplement "Sheet4"
Est-ce que je dois mettre le nom de cette feuille quelque part?

J'ajoute que si je fait un refresh data en utilisant le point d'exclamation
de la barre d'outil table pivot la remise à jour se passe correctement

Quelqu'un peut-il m'aider (encore une fois, s'il-vous-plait)

Merci beaucoup

Rex

Bonjour

Je tourne le dos pour une petite après-midi et BANG

Trois réponses d'un coup

Merci à tous
Je vais faire quelques essais et je vous tiendrai au courant soit cet
après-midi soit Lundi matin

Rex

"Frédéric Sigonneau" <frederic.sigonneau@phri.fr> wrote in message
news:#XSEwVjhEHA.2624@TK2MSFTNGP12.phx.gbl...

Bonsoir,

Ces deux macros doivent être copiées dans un module standard de ton
VBAProject.

Ce genre de module n'est pas présent par défaut dans un projet, il faut en
ajouter un par la commande de menu InsertionModule dans l'éditeur Visual
Basic.

FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !

Bonjour à tous les génies


Je persévére dans mes pivotages, et cela avance très bien merci beaucoup

Et put$£#~~n que c'est puissant ce truc là!

J'ai récupéreé une petite macro qui est sensé faire une remise à jour
automatique quand on ouvre la feuille contenant la table pivot

Mais

Soit j'ai fait une connerie (habituel pour moi) soit je ne l'ai
peut-être

pas mis à la bonne place
J'ai ouvert l'éditeur et je l'ai inséré dans le module de la feuille
contenant la table pivot

Voici le code
' **************************************
Sub Auto_Open()
Application.OnSheetActivate = "UpdateIt"
End Sub

' ****************************************

Sub UpdateIt()
Dim iP As Integer
Application.DisplayAlerts = False
For iP = 1 To ActiveSheet.PivotTables.Count
ActiveSheet.PivotTables(iP).RefreshTable
Next
Application.DisplayAlerts = True
End Sub

' **********************************************

Mais cela ne réagit pas


La feuille s'appelle tout simplement "Sheet4"
Est-ce que je dois mettre le nom de cette feuille quelque part?

J'ajoute que si je fait un refresh data en utilisant le point
d'exclamation

de la barre d'outil table pivot la remise à jour se passe correctement

Quelqu'un peut-il m'aider (encore une fois, s'il-vous-plait)

Merci beaucoup

Rex

Bonjour

Je tourne le dos pour une petite après-midi et BANG

Trois réponses d'un coup

Merci à tous
Je vais faire quelques essais et je vous tiendrai au courant soit cet
après-midi soit Lundi matin

Rex

"michdenis" <michdenis@hotmail.com> wrote in message
news:eF$ihHehEHA.1048@tk2msftngp13.phx.gbl...

Bonjour RT,

Essaie ceci en modifiant le nom de la feuille pour celle de ton
application.

'-----------------------
Sub UpDateIt()

Dim Pt As PivotTable
With Worksheets("Feuil1")
For Each Pt In .PivotTables
Pt.RefreshTable
Next
End With
Set Pt = Nothing

End Sub
'-----------------------


Salutations!



"RT" <rthsopmapmson@softscreen.be> a écrit dans le message de
news:uG_Uc.218807$Gv2.10667106@phobos.telenet-ops.be...

Bonjour à tous les génies


Je persévére dans mes pivotages, et cela avance très bien merci beaucoup

Et put$£#~~n que c'est puissant ce truc là!

J'ai récupéreé une petite macro qui est sensé faire une remise à jour
automatique quand on ouvre la feuille contenant la table pivot

Mais

Soit j'ai fait une connerie (habituel pour moi) soit je ne l'ai peut-être
pas mis à la bonne place
J'ai ouvert l'éditeur et je l'ai inséré dans le module de la feuille
contenant la table pivot

Voici le code
' **************************************
Sub Auto_Open()
Application.OnSheetActivate = "UpdateIt"
End Sub

' ****************************************

Sub UpdateIt()
Dim iP As Integer
Application.DisplayAlerts = False
For iP = 1 To ActiveSheet.PivotTables.Count
ActiveSheet.PivotTables(iP).RefreshTable
Next
Application.DisplayAlerts = True
End Sub

' **********************************************

Mais cela ne réagit pas


La feuille s'appelle tout simplement "Sheet4"
Est-ce que je dois mettre le nom de cette feuille quelque part?

J'ajoute que si je fait un refresh data en utilisant le point
d'exclamation

de la barre d'outil table pivot la remise à jour se passe correctement

Quelqu'un peut-il m'aider (encore une fois, s'il-vous-plait)

Merci beaucoup

Rex

Bonjour

Je tourne le dos pour une petite après-midi et BANG

Trois réponses d'un coup

Merci à tous
Je vais faire quelques essais et je vous tiendrai au courant soit cet
après-midi soit Lundi matin

Rex

"Yann" <ypelissier@yahoo.com> wrote in message
news:1d6601c485de$969ad560$a301280a@phx.gbl...
Et pourquoi ne mettrais-tu pas cela directement sur
l'événement activation de la feuille...
Sub Worksheet_Activate()
Dim iP As Integer
Application.DisplayAlerts = False
For iP = 1 To ActiveSheet.PivotTables.Count
ActiveSheet.PivotTables(iP).RefreshTable
Next
Application.DisplayAlerts = True
End Sub

Yann

-----Message d'origine-----
Bonjour

Oui la vie est belle
Enfin parfois, mais pas cette foi-ci

Cette option ne fonctionne que quand tu ouvre le
fichier, et pas quand on

saute d'une feuille à l'autre

J'explique
La table pivot est est feuille "sheet4" mes
informations en "sheet1"

Si je change l'information en feuille "sheet1" et que je
clique sur l'onglet

"sheet4" l'information n'est pas mise à jour
Si après avoir changé l'information en "sheet1" je ferme
le fichier et que

je l'ouvre, l'option refresh on open remets la
feuille "sheet4" à jour

Ce que je cherche à faire c'est que sans fermer le
fichier, simplement en

changeant l'info sur la feuille "sheet1", puis quand
j'ouvre la feuille

"sheet4" elle soit automatiquement mise à jour sans
devoir clicquer sur le !

du menu Pivot Table

Merci pour le conseil

Et à plus tard

Rex

"Pascal" <anonymous@discussions.microsoft.com> wrote in
message

news:91f801c485d6$a23a6cd0$a601280a@phx.gbl...
Bonjour Rex,

Clique droit sur le tableau / Table options / Refresh on
open ... et le tour est joué !
Elle n'est pas belle la Vie !

Pascal.

-----Message d'origine-----
Bonjour à tous les génies


Je persévére dans mes pivotages, et cela avance très
bien

merci beaucoup

Et put$£#~~n que c'est puissant ce truc là!

J'ai récupéreé une petite macro qui est sensé faire une
remise à jour

automatique quand on ouvre la feuille contenant la table
pivot

Mais

Soit j'ai fait une connerie (habituel pour moi) soit je
ne l'ai peut-être

pas mis à la bonne place
J'ai ouvert l'éditeur et je l'ai inséré dans le module
de

la feuille

contenant la table pivot

Voici le code
' **************************************
Sub Auto_Open()
Application.OnSheetActivate = "UpdateIt"
End Sub

' ****************************************

Sub UpdateIt()
Dim iP As Integer
Application.DisplayAlerts = False
For iP = 1 To ActiveSheet.PivotTables.Count
ActiveSheet.PivotTables(iP).RefreshTable
Next
Application.DisplayAlerts = True
End Sub

' **********************************************

Mais cela ne réagit pas


La feuille s'appelle tout simplement "Sheet4"
Est-ce que je dois mettre le nom de cette feuille
quelque

part?

J'ajoute que si je fait un refresh data en utilisant le
point d'exclamation

de la barre d'outil table pivot la remise à jour se
passe

correctement

Quelqu'un peut-il m'aider (encore une fois, s'il-vous-
plait)

Merci beaucoup

Rex







.

.