Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Actualisation

Actualisation

8 réponses
Avatar
CBR
Bonsoir à tous

Je cherche une solution pour faire automatiquement une actualisation de
données sur une feuilles lorsque je quitte le classeur.

Je m'explique. J'ais un classeur avec 12 feuilles (1 / mois)
chaqu'une de ces feuilles comportent une actualisation de données. (clic
sur ' ! ')
Selon le mois en cours et après un saisie, avant d'enregistrer et de fermer
le classeur, l'utilisateur doit faire une actu des données.(S'il y pense)

Ce que je recherche c'est une macro qui ferait automatiquement cette
actualisation lorsque l'utilisateur clic sur 'enregistrer'.
Est-ce réalisable?
Sinon donnez moi d'autres solutions éventuellement.


Merci et @+


CBR
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonsoir.
Dans "thisworkbook" :
avant l'enregistrement :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
'ta macro d'actualisation
End Sub

avant la fermeture du classeur :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'ta macro d'actualisation
ThisWorkbook.Save
End Sub

Cordialement.
Daniel
"CBR" a écrit dans le message de news:
43c41e99$0$17140$

Bonsoir à tous

Je cherche une solution pour faire automatiquement une actualisation de
données sur une feuilles lorsque je quitte le classeur.

Je m'explique. J'ais un classeur avec 12 feuilles (1 / mois)
chaqu'une de ces feuilles comportent une actualisation de données. (clic
sur ' ! ')
Selon le mois en cours et après un saisie, avant d'enregistrer et de
fermer le classeur, l'utilisateur doit faire une actu des données.(S'il y
pense)

Ce que je recherche c'est une macro qui ferait automatiquement cette
actualisation lorsque l'utilisateur clic sur 'enregistrer'.
Est-ce réalisable?
Sinon donnez moi d'autres solutions éventuellement.


Merci et @+


CBR






Avatar
michdenis
Bonjour CBR.

Quel est le type de tableau que tu veux actualiser ? QueryTables ?

For each QT in Activesheet.QueryTables
Qt.refresh true
next


Salutations!


"CBR" a écrit dans le message de news: 43c41e99$0$17140$

Bonsoir à tous

Je cherche une solution pour faire automatiquement une actualisation de
données sur une feuilles lorsque je quitte le classeur.

Je m'explique. J'ais un classeur avec 12 feuilles (1 / mois)
chaqu'une de ces feuilles comportent une actualisation de données. (clic
sur ' ! ')
Selon le mois en cours et après un saisie, avant d'enregistrer et de fermer
le classeur, l'utilisateur doit faire une actu des données.(S'il y pense)

Ce que je recherche c'est une macro qui ferait automatiquement cette
actualisation lorsque l'utilisateur clic sur 'enregistrer'.
Est-ce réalisable?
Sinon donnez moi d'autres solutions éventuellement.


Merci et @+


CBR
Avatar
CBR
Soir michdenis

il s'agit d'un tableau croisé dynamique

Salutations !
CBR


"michdenis" a écrit dans le message de news:

Bonjour CBR.

Quel est le type de tableau que tu veux actualiser ? QueryTables ?

For each QT in Activesheet.QueryTables
Qt.refresh true
next


Salutations!


"CBR" a écrit dans le message de news:
43c41e99$0$17140$

Bonsoir à tous

Je cherche une solution pour faire automatiquement une actualisation de
données sur une feuilles lorsque je quitte le classeur.

Je m'explique. J'ais un classeur avec 12 feuilles (1 / mois)
chaqu'une de ces feuilles comportent une actualisation de données. (clic
sur ' ! ')
Selon le mois en cours et après un saisie, avant d'enregistrer et de
fermer
le classeur, l'utilisateur doit faire une actu des données.(S'il y pense)

Ce que je recherche c'est une macro qui ferait automatiquement cette
actualisation lorsque l'utilisateur clic sur 'enregistrer'.
Est-ce réalisable?
Sinon donnez moi d'autres solutions éventuellement.


Merci et @+


CBR







Avatar
CBR
Bonsoir Daniel

Ok pour la première soluce, reste plus qu'a créer la macro.
Cà j'espère réussir à faire.

Merci
bonne soirée

CBR

"Daniel" a écrit dans le message de news:
O9J%
Bonsoir.
Dans "thisworkbook" :
avant l'enregistrement :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
'ta macro d'actualisation
End Sub

avant la fermeture du classeur :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'ta macro d'actualisation
ThisWorkbook.Save
End Sub

Cordialement.
Daniel


Avatar
michdenis
Bonjour CBR,

Copie ceci dans le ThisWorkbook de ton classeur en
adaptant le nom de ton tableau croisé dynamique et le
nom de la feuille. Si tu veux sauvegarder plus d'un TDC,
tu ajoutes les lignes en conséquence...

'--------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Worksheets("Feuil1").PivotTables("NomDuTDC").PivotCache.Refresh

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


Salutations!



"CBR" a écrit dans le message de news: 43c4249c$0$8856$
Soir michdenis

il s'agit d'un tableau croisé dynamique

Salutations !
CBR


"michdenis" a écrit dans le message de news:

Bonjour CBR.

Quel est le type de tableau que tu veux actualiser ? QueryTables ?

For each QT in Activesheet.QueryTables
Qt.refresh true
next


Salutations!


"CBR" a écrit dans le message de news:
43c41e99$0$17140$

Bonsoir à tous

Je cherche une solution pour faire automatiquement une actualisation de
données sur une feuilles lorsque je quitte le classeur.

Je m'explique. J'ais un classeur avec 12 feuilles (1 / mois)
chaqu'une de ces feuilles comportent une actualisation de données. (clic
sur ' ! ')
Selon le mois en cours et après un saisie, avant d'enregistrer et de
fermer
le classeur, l'utilisateur doit faire une actu des données.(S'il y pense)

Ce que je recherche c'est une macro qui ferait automatiquement cette
actualisation lorsque l'utilisateur clic sur 'enregistrer'.
Est-ce réalisable?
Sinon donnez moi d'autres solutions éventuellement.


Merci et @+


CBR







Avatar
Daniel
La macro devrait faire ton bonheur :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Dim TCD As PivotTable
For i = 1 To Sheets.Count
On Error Resume Next
For Each TCD In Sheets(i).PivotTables
TCD.PivotCache.Refresh
Next TCD
Next i
End Sub

Daniel
"CBR" a écrit dans le message de news:
43c42561$0$8854$
Bonsoir Daniel

Ok pour la première soluce, reste plus qu'a créer la macro.
Cà j'espère réussir à faire.

Merci
bonne soirée

CBR

"Daniel" a écrit dans le message de news:
O9J%
Bonsoir.
Dans "thisworkbook" :
avant l'enregistrement :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
'ta macro d'actualisation
End Sub

avant la fermeture du classeur :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'ta macro d'actualisation
ThisWorkbook.Save
End Sub

Cordialement.
Daniel






Avatar
CBR
Soir michdenis

Voici ce que j'ais fait:
--------------------
Sub Ratio()

ActiveSheet.PivotTables("Tableau croisé dynamique1").RefreshTable
End Sub
------------------------
Avec un appel de la macro dans ' Private Sub Workbook_BeforeSave........'

ça marche avec la feuille de Janvier uniquement (du bol le tableau porte le
bon nom)
comment adapter la macro pour qu'elle marche sur les 11 autres mois ?
Comment retrouver le nom des autres tableaux ?

Slt
CBR



"michdenis" a écrit dans le message de news:

Bonjour CBR,

Copie ceci dans le ThisWorkbook de ton classeur en
adaptant le nom de ton tableau croisé dynamique et le
nom de la feuille. Si tu veux sauvegarder plus d'un TDC,
tu ajoutes les lignes en conséquence...

'--------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Worksheets("Feuil1").PivotTables("NomDuTDC").PivotCache.Refresh

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


Salutations!



Avatar
CBR
Re Bonsoir

STOP

C'est bon , j'ais la bonne solution là.
Merci Daniel, ta macro marche impec

Merci michdenis de ton aide aussi


Bonne soirée à tous et @+
(Je reviendrais encore et encore, vous poser des questions)


CBR