Macro écrire date dans cellule

Bonjour,

J'ai un tableau croisé dynamique issu d'une requête vers une source de données externe, j'aimerais récupérer la date de dernière actualisation de cette requête dans une cellule.

A l'aide de cette doc : https://docs.microsoft.com/fr-fr/off...le.refreshdate j'ai créé cette Sub dans la feuille ou se situe le TCD :

Code:

---

1 2 3 4 5 6 7

Private Sub RecupDateActua(ByVal Target As PivotTable)   Set pvtTable = Worksheets("Données Brutes").PivotTable("Rondes__2") dateString = Format(pvtTable.RefreshDate, "Long Date") Range("M1") = dateString   End Sub

---

Il ne se passe pourtant rien alors que la date devrait se copier dans la cellule M1 de cette même feuille, alors ma question est que manque-t-il à mon code ? Que dois-je corriger ?

Merci pour votre aide.

Bonjour Js,
dans votre procédure, ce n'est plus la peine de nommer votre tableau puisque vous passez le nom en paramètre :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub RecupDateActua(ByVal Target As PivotTable) Set pvtTable = Target dateString = Format(pvtTable.RefreshDate, "Long Date") Range("M1") = dateString End Sub   Public Sub test() Call RecupDateActua(ActiveSheet.PivotTables("Rondes__2")) End Sub

---

;)

Bonjour Filippo,
Vous avez entièrement raison mais il n'y a pas d'avantage besoin de cette instruction Set pvtTable = Target
En revanche, soit il y a lieu de modifier pvtTable.RefreshDate par Target.RefreshDate soit modifier le nom de l'argument par PvtTable ce qui me semble plus approprié

Bonjour Philippe,
vous avez raison,

Code:

---

1 2 3 4 5 6 7 8

Private Sub RecupDateActua(ByVal Target As PivotTable) dateString = Format(Target.RefreshDate, "Long Date") Range("M1") = dateString End Sub   Public Sub test() Call RecupDateActua(ActiveSheet.PivotTables("Rondes__2")) End Sub

---

Fonctionne aussi bien.

;)

Salut Filippo,

Merci pour ta réponse,

J'ai copié ton code dans ma feuille, j'exécute la Sub "test" et ça me renvoie ce message d'erreur :

Pièce jointe 579382

J'ai entouré la feuille où j'ai copié le code, peut être que c'est lié à ça.

Le truc c'est quand je met ce code dans un module on me renvoie aussi une erreur :

Pièce jointe 579383

Qu'est ce qu'il me manque pour que ça marche ?

C'est parce que tu lances la procédure d'une autre feuille.
Quand tu fais ActiveSheet, vb cherche le tableau dynamique dans cette feuille. S'il n'y est pas, ça coince.

Si tu veux pouvoir lancer la procédure d'une autre feuille il faut lui indiquer que tu veux la lancer sur un tableau dynamique de cette feuille, par exemple :

Code:

---

1 2 3

Public Sub test2() Call RecupDateActua(Sheets("Données Brutes").PivotTables("Rondes__2")) End Sub

---

Indique que tu veux lancer la procédure RecupDateActua sur le tableau dynamique "Rondes__2" qui est situé dans l'onglet "Données Brutes".

;)

J'ai corrigé et ça me met toujours la même erreur... c'est incompréhensible,

On est d'accord je dois bien mettre ces procédures dans la feuille "Données Brutes" et pour que la date se copie je dois bien lancer la sub test ?

est-ce que tu as pu tenter de ton côté sur une source de données quelconque ? Histoire de voir si ce code marche bien chez quelqu'un...

Tu peux mettre le code où tu veux (feuille, classeur, module).
Mais il faut bien indiquer le cas échéant où trouver le tableau.

J'ai fait un petit exemple fictif qui marche.
J'ai mis le code dans "Données Brutes" (Feuil2).

Si le focus est dans Données Brutes" (Feuil2), alors dans le vb on peut lancer test qui utilise ActiveSheet.
Sinon dans vb il faut utiliser test2 qui utilise Sheets("Données Brutes").

Dans mon exemple, ça recopie bien "mercredi 16 septembre 2020" en M1.

ça marche très bien sur ton fichier, j'avais fait une petite erreur de frappe que j'ai corrigé, j'ai lancé la sub ça a marché sauf que...

après ça j'ai relancé la sub et toujours la même erreur à la con :

Pièce jointe 579392

ça va maintenant faire 2 jours que je suis sur ce putain de problème.

Tu veux mettre ton fichier (ou un extrait) en pièce-jointe ?

Voici mon fichier :

Je ne peux pas voir le code, il est protégé par mot de passe.
Mais le tableau dans l'onglet "Données Brutes" ne me semble pas être un tableau croisé dynamique.

Quand je clique sur celui de mon exemple ça fait apparaitre un encart à droite de l'écran avec "Liste des champs de tableau croisé dynamique", ça n'apparait pas sur le tien.

Ah oui désolé j'ai oublié d'enlever le MDP,

Si le tableau n'est pas un croisé dynamique c'est qu'il est simple ? Comment adapter le code pour un tableau simple ?

Citation:

---

Envoyé par js777

Ah oui désolé j'ai oublié d'enlever le MDP,

Si le tableau n'est pas un croisé dynamique c'est qu'il est simple ? Comment adapter le code pour un tableau simple ?

---

Après ça avec quand même marché la première fois que j'ai lancé la sub comme tu as pu le voir la cellule M1 contenait une date.

Ta zone "Rondes__2" devait être un TCD la première fois que tu as utilisé la procédure.
Je ne sais pas ce que tu as fait mais maintenant c'est juste un range (une collection de cellules). On ne peut donc plus appliquer dessus les fonctions de TCD comme RefreshDate.

Je ne sais pas comment modifier le code, je ne sais pas ce que fait exactement la fonction RefreshDate.

Le plus simple serait que tu refasses ton TCD comme la 1ère fois pour pouvoir appliquer RefreshDate dessus.

Salut Filippo,

Je viens de généré un TCD sur une autre feuille en utilisant la même requête, par contre je n'arrive pas à reproduire la même disposition que sur l'ancien tableau, avec des colonnes côte à côte,

Voilà ce qu'il me donne comme affichage quand je met tous les champs dans lignes :

Pièce jointe 579455

Pourrais-tu m'éclairer sur la manière dont je pourrais réaliser cela ?

Merci à toi.

Comme tu l'as fait la première fois, je pense qu'il faut mettre les champs en colonne et pas en ligne.
Je te conseille la lecture de cet article sur les tableaux croisés dynamiques : https://silkyroad.developpez.com/excel/tcd/

Bonne fin de journée.

J'ai le même probleme en colonne ça me donné quelque chose comme ça :

Pièce jointe 579527

Voici mon fichier si tu veux jeter un coup d'oeil ;)

Pièce jointe 579528

Merci pour la doc je vais regarder ça attentivement :)

J'ai l'impression que tu essaies de repartir de "Données brutes" pour refaire un TCD.
L'onglet "Données brutes" présente visiblement des données déjà agrégées. Le principe du TCD est de lire des données non agrégées pour les présenter de façon synthétique.
Il faut que tu repartes des données sources (je ne sais pas où elles se trouvent).
Ensuite tu mets les entêtes des colonnes qui t'intéressent dans la zone colonnes du TCD.
Je suis désolé mais je ne peux pas le faire à ta place, documente-toi sur le TCD et repars des données sources.

Bon courage.

J'ai pu lire la doc sur le TCD, c'est pas du tout ce que je recherche le TCD permet d’effectuer des calculs mathématiques (somme, nombre, moyenne, maximum, minimum, produit, écart-type…) en regroupant des données en fonction de catégories.

Moi je veux juste afficher les données de chaque colonne comme je le fais déjà avec Power Query, j'ai pas besoin d'utiliser un TCD, c'est pas approprié à mon besoin.

Je veux juste pouvoir récupérer la date d'actualisation des données externes de la requête, rien de plus.