Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Date de mise à jour d'un tableau croisé dynamique

7 réponses
Avatar
ple_ain
Bonjour,

Je souhaiterai utiliser la fonction pvtTable.RefreshDate.
Cette propriété renvoie la date à laquelle le tableau croisé dynamique a été
actualisé pour la dernière fois.
Type de données Date en lecture seule.

L'aide Excel indique cet exemple :

Set pvtTable = Worksheets("Sheet1").Range("A3").PivotTable

dateString = Format(pvtTable.RefreshDate, "Long Date")

MsgBox "The data was last refreshed on " & dateString



Comment le mettre en place simplement ?

Comment déclarer la variable

et affecter le résultat dans un cellule plutôt que dans un message ?





Merci pour toute aide.

7 réponses

Avatar
Daniel
Bonjour.
Essaie comme ça :

Dim dateString As String
Set pvtTable = ActiveSheet.PivotTables("Tableau croisé dynamique1")
dat = pvtTable.RefreshDate
dateString = Format(pvtTable.RefreshDate, "dd/mm/yyyy hh:mm:ss")
[A1] = dateString

En changeant le nom du tableau et en mettant le format date / heure qu'il te
plait.
Cordialement.
Daniel
"ple_ain" a écrit dans le message de news:

Bonjour,

Je souhaiterai utiliser la fonction pvtTable.RefreshDate.
Cette propriété renvoie la date à laquelle le tableau croisé dynamique a
été actualisé pour la dernière fois.
Type de données Date en lecture seule.

L'aide Excel indique cet exemple :

Set pvtTable = Worksheets("Sheet1").Range("A3").PivotTable

dateString = Format(pvtTable.RefreshDate, "Long Date")

MsgBox "The data was last refreshed on " & dateString



Comment le mettre en place simplement ?

Comment déclarer la variable

et affecter le résultat dans un cellule plutôt que dans un message ?





Merci pour toute aide.






Avatar
JB
Bonsoir,


Function DateMajTabCrois(Nom As String)
Application.Volatile
DateMajTabCrois = ActiveSheet.PivotTables(Nom).RefreshDate
End Function

Dans le tableur: teMajTabCrois("Tableau croisé dynamique1")
+format date/heure

Cordialement JB

Bonjour,

Je souhaiterai utiliser la fonction pvtTable.RefreshDate.
Cette propriété renvoie la date à laquelle le tableau croisé dyna mique a été
actualisé pour la dernière fois.
Type de données Date en lecture seule.

L'aide Excel indique cet exemple :

Set pvtTable = Worksheets("Sheet1").Range("A3").PivotTable

dateString = Format(pvtTable.RefreshDate, "Long Date")

MsgBox "The data was last refreshed on " & dateString



Comment le mettre en place simplement ?

Comment déclarer la variable

et affecter le résultat dans un cellule plutôt que dans un message ?





Merci pour toute aide.


Avatar
ple_ain
Merci bien.

Est-ce qu'il faut noter ces fonctions dans "Worksheet - active" ?
Comment faire lorsqu'il s'agit de la date de dernière mise à jour
d'une plage de données externes ?

Cordialement

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

Bonjour.
Essaie comme ça :

Dim dateString As String
Set pvtTable = ActiveSheet.PivotTables("Tableau croisé dynamique1")
dat = pvtTable.RefreshDate
dateString = Format(pvtTable.RefreshDate, "dd/mm/yyyy hh:mm:ss")
[A1] = dateString

En changeant le nom du tableau et en mettant le format date / heure qu'il
te plait.
Cordialement.
Daniel
"ple_ain" a écrit dans le message de news:

Bonjour,

Je souhaiterai utiliser la fonction pvtTable.RefreshDate.
Cette propriété renvoie la date à laquelle le tableau croisé dynamique a
été actualisé pour la dernière fois.
Type de données Date en lecture seule.

L'aide Excel indique cet exemple :

Set pvtTable = Worksheets("Sheet1").Range("A3").PivotTable

dateString = Format(pvtTable.RefreshDate, "Long Date")

MsgBox "The data was last refreshed on " & dateString



Comment le mettre en place simplement ?

Comment déclarer la variable

et affecter le résultat dans un cellule plutôt que dans un message ?





Merci pour toute aide.










Avatar
ple_ain
Merci bien.
J'arrive à écrire la fonction mais je ne la vois pas quand je fais
Insertion - Fonction
pour la mettre en place dans la cellule...
Que faire ?

Merci.

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

Bonsoir,


Function DateMajTabCrois(Nom As String)
Application.Volatile
DateMajTabCrois = ActiveSheet.PivotTables(Nom).RefreshDate
End Function

Dans le tableur: ÚteMajTabCrois("Tableau croisé dynamique1")
+format date/heure

Cordialement JB

Bonjour,

Je souhaiterai utiliser la fonction pvtTable.RefreshDate.
Cette propriété renvoie la date à laquelle le tableau croisé dynamique a
été
actualisé pour la dernière fois.
Type de données Date en lecture seule.

L'aide Excel indique cet exemple :

Set pvtTable = Worksheets("Sheet1").Range("A3").PivotTable

dateString = Format(pvtTable.RefreshDate, "Long Date")

MsgBox "The data was last refreshed on " & dateString



Comment le mettre en place simplement ?

Comment déclarer la variable

et affecter le résultat dans un cellule plutôt que dans un message ?





Merci pour toute aide.


Avatar
JB
http://cjoint.com/?bwuoGP60S3

temajtabcrois("Tableau croisé dynamique1")

JB


Merci bien.
J'arrive à écrire la fonction mais je ne la vois pas quand je fais
Insertion - Fonction
pour la mettre en place dans la cellule...
Que faire ?

Merci.

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

Bonsoir,


Function DateMajTabCrois(Nom As String)
Application.Volatile
DateMajTabCrois = ActiveSheet.PivotTables(Nom).RefreshDate
End Function

Dans le tableur: teMajTabCrois("Tableau croisé dynamique1")
+format date/heure

Cordialement JB

Bonjour,

Je souhaiterai utiliser la fonction pvtTable.RefreshDate.
Cette propriété renvoie la date à laquelle le tableau croisé dy namique a
été
actualisé pour la dernière fois.
Type de données Date en lecture seule.

L'aide Excel indique cet exemple :

Set pvtTable = Worksheets("Sheet1").Range("A3").PivotTable

dateString = Format(pvtTable.RefreshDate, "Long Date")

MsgBox "The data was last refreshed on " & dateString



Comment le mettre en place simplement ?

Comment déclarer la variable

et affecter le résultat dans un cellule plutôt que dans un message ?





Merci pour toute aide.




Avatar
Daniel
Je na sais pas.
Tu peux utiliser l'évenement :

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim dateString As String
Set pvtTable = ActiveSheet.PivotTables("Tableau croisé dynamique1")
dat = pvtTable.RefreshDate
dateString = Format(pvtTable.RefreshDate, "dd/mm/yyyy hh:mm:ss")
[C1] = dateString

End Sub

mais chez moi, l'option de MAJ périodique est grisée. Quant à la mise à jour
de la plage de données externes, je ne sais pas si elle peut déclencher une
macro évenementielle.
Daniel
"ple_ain" a écrit dans le message de news:

Merci bien.

Est-ce qu'il faut noter ces fonctions dans "Worksheet - active" ?
Comment faire lorsqu'il s'agit de la date de dernière mise à jour
d'une plage de données externes ?

Cordialement

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

Bonjour.
Essaie comme ça :

Dim dateString As String
Set pvtTable = ActiveSheet.PivotTables("Tableau croisé dynamique1")
dat = pvtTable.RefreshDate
dateString = Format(pvtTable.RefreshDate, "dd/mm/yyyy hh:mm:ss")
[A1] = dateString

En changeant le nom du tableau et en mettant le format date / heure qu'il
te plait.
Cordialement.
Daniel
"ple_ain" a écrit dans le message de news:

Bonjour,

Je souhaiterai utiliser la fonction pvtTable.RefreshDate.
Cette propriété renvoie la date à laquelle le tableau croisé dynamique a
été actualisé pour la dernière fois.
Type de données Date en lecture seule.

L'aide Excel indique cet exemple :

Set pvtTable = Worksheets("Sheet1").Range("A3").PivotTable

dateString = Format(pvtTable.RefreshDate, "Long Date")

MsgBox "The data was last refreshed on " & dateString



Comment le mettre en place simplement ?

Comment déclarer la variable

et affecter le résultat dans un cellule plutôt que dans un message ?





Merci pour toute aide.














Avatar
ple_ain
Merci bien à tous pour votre aide :-))

PL