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
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
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
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.
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" <ple_ain@yahoo.fr> a écrit dans le message de news:
eeGkqdkPHHA.780@TK2MSFTNGP03.phx.gbl...
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
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
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.
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
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.
Bonsoir,
Function DateMajTabCrois(Nom As String)
Application.Volatile
DateMajTabCrois = ActiveSheet.PivotTables(Nom).RefreshDate
End Function
Dans le tableur: =DateMajTabCrois("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
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
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.
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
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.
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" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OlxmKokPHHA.1248@TK2MSFTNGP03.phx.gbl...
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" <ple_ain@yahoo.fr> a écrit dans le message de news:
eeGkqdkPHHA.780@TK2MSFTNGP03.phx.gbl...
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
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
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.
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
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.
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" <boisgontier@hotmail.com> a écrit dans le message de news:
1169488129.279113.236860@11g2000cwr.googlegroups.com...
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
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
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
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.
http://cjoint.com/?bwuoGP60S3
=datemajtabcrois("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" <boisgontier@hotmail.com> a écrit dans le message de news:
1169488129.279113.236860@11g2000cwr.googlegroups.com...
Bonsoir,
Function DateMajTabCrois(Nom As String)
Application.Volatile
DateMajTabCrois = ActiveSheet.PivotTables(Nom).RefreshDate
End Function
Dans le tableur: =DateMajTabCrois("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
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
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.
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
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.
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" <ple_ain@yahoo.fr> a écrit dans le message de news:
eonWj7kPHHA.448@TK2MSFTNGP04.phx.gbl...
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" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OlxmKokPHHA.1248@TK2MSFTNGP03.phx.gbl...
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" <ple_ain@yahoo.fr> a écrit dans le message de news:
eeGkqdkPHHA.780@TK2MSFTNGP03.phx.gbl...
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
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