Mise à jour automatique

sur ce coup, tu me fais penser à ce que je dis à ma pendule qui sonne ses 4
coups lorsque, les chaussures à la main et l'esprit un peu embrumé, je
regagne la chambre : "ah! ta g.... toi, on sait que c'est une heure du
matin, tu n'es pas obligée de le répéter 4 fois"
jps

"RT" <rthsopmapmson@softscreen.be> a écrit dans le message de
news:KwiVc.219694$My7.10900551@phobos.telenet-ops.be...

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







.

.

Bonjour

Je fais passer la même réponse au trois comme cela vous êtes tous au courant
de la situation
De toute façon un grand merci pour les idées (j'apprends tous les jours)

Et ben j'ai eu du temps libre plus tôt que prévu

J'ai essayé vos trois réponses et j'en suis toujours au même point

La remise à jour ne se passe pas automatiquement

J'ai ajouté un module et j'y ai mis les macro, même résultat

Alors je déééééépriiiiiiiiiiiiimmmmmmmmmmmmmmeeeeeeeeeee

Non, mais restons sérieux il doit y avoir quelque chose de simple et bête
que je ne fait pas comme il faut

J'en appelle à à vos idées

(Pour rappelle ce que je souhaite faire est tout simple
Chaque fois que j'ouvre la feuille table pivot qui s'appelle "Sheet4" je
voudrais qu'elle se remette à jour automatiquement
Tout ce que je parviens à faire maintenant est qu'elle se remette à jour à
l'ouverture du fichier et non de la feuille
La remise à jour manuel fonctionne

J'avis d'abords ce qui suit dans les macros de la feuille et on m'a
conseillé de les mettre dans un module
J'ai essayé des deux manières et aucune ne fonctionne

Pour le moment dans le module j'ai ce qui suit


' **********************************************
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
' **********************************************


' **********************************************
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
' ***********************************************

' ***********************************************
Sub UpDateIt()

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

End Sub

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

Quatre fois?

T'as de la chance, quand j'étais jeune elle le répettait au moins six fois

Rex (maintenant vieux et sage par la force de la nature)

"jps" <NoAddressNoPhoneNoMoney@NoWorries.bjl> wrote in message
news:#j11YMphEHA.356@tk2msftngp13.phx.gbl...

sur ce coup, tu me fais penser à ce que je dis à ma pendule qui sonne ses
4

coups lorsque, les chaussures à la main et l'esprit un peu embrumé, je
regagne la chambre : "ah! ta g.... toi, on sait que c'est une heure du
matin, tu n'es pas obligée de le répéter 4 fois"
jps

"RT" <rthsopmapmson@softscreen.be> a écrit dans le message de
news:KwiVc.219694$My7.10900551@phobos.telenet-ops.be...

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







.

.

Bonjour

Je fais passer la même réponse au trois comme cela vous êtes tous au courant
de la situation
De toute façon un grand merci pour les idées (j'apprends tous les jours)

Et ben j'ai eu du temps libre plus tôt que prévu

J'ai essayé vos trois réponses et j'en suis toujours au même point

La remise à jour ne se passe pas automatiquement

J'ai ajouté un module et j'y ai mis les macro, même résultat

Alors je déééééépriiiiiiiiiiiiimmmmmmmmmmmmmmeeeeeeeeeee

Non, mais restons sérieux il doit y avoir quelque chose de simple et bête
que je ne fait pas comme il faut

J'en appelle à à vos idées

(Pour rappelle ce que je souhaite faire est tout simple
Chaque fois que j'ouvre la feuille table pivot qui s'appelle "Sheet4" je
voudrais qu'elle se remette à jour automatiquement
Tout ce que je parviens à faire maintenant est qu'elle se remette à jour à
l'ouverture du fichier et non de la feuille
La remise à jour manuel fonctionne

J'avis d'abords ce qui suit dans les macros de la feuille et on m'a
conseillé de les mettre dans un module
J'ai essayé des deux manières et aucune ne fonctionne

Pour le moment dans le module j'ai ce qui suit


' **********************************************
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
' **********************************************


' **********************************************
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
' ***********************************************

' ***********************************************
Sub UpDateIt()

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

End Sub

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

Bonjour

Je fais passer la même réponse au trois comme cela vous êtes tous au courant
de la situation
De toute façon un grand merci pour les idées (j'apprends tous les jours)

Et ben j'ai eu du temps libre plus tôt que prévu

J'ai essayé vos trois réponses et j'en suis toujours au même point

La remise à jour ne se passe pas automatiquement

J'ai ajouté un module et j'y ai mis les macro, même résultat

Alors je déééééépriiiiiiiiiiiiimmmmmmmmmmmmmmeeeeeeeeeee

Non, mais restons sérieux il doit y avoir quelque chose de simple et bête
que je ne fait pas comme il faut

J'en appelle à à vos idées

(Pour rappelle ce que je souhaite faire est tout simple
Chaque fois que j'ouvre la feuille table pivot qui s'appelle "Sheet4" je
voudrais qu'elle se remette à jour automatiquement
Tout ce que je parviens à faire maintenant est qu'elle se remette à jour à
l'ouverture du fichier et non de la feuille
La remise à jour manuel fonctionne

J'avis d'abords ce qui suit dans les macros de la feuille et on m'a
conseillé de les mettre dans un module
J'ai essayé des deux manières et aucune ne fonctionne

Pour le moment dans le module j'ai ce qui suit


' **********************************************
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
' **********************************************


' **********************************************
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
' ***********************************************

' ***********************************************
Sub UpDateIt()

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

End Sub

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