Bonjour,
A l'origine j'avais un TCD qui faisait une extraction de donnée depuis un fichier sur le serveur du travail (pour éviter la gène entre collaborateur de d'autre service), j'y est ajouter un bouton pour mettre à jours l'extraction.
Depuis plusieurs jours, mon TCD ne peux plus ouvrir le fichier de la source de données, j'ai chercher sur internet et pas trouver de solution.
Je me suis donc dit, ok je vais extraire les données sur une feuille et liée mon TCD à cette feuille. Egalement utiliser mon bouton d'actualisation pour mettre à jours les données extraite + le TCD.
Photo pour illusté le problème (J'ai déjà vérifié et refait le lien entre les fichiers donc la source est correcte) :
Ainsi que macro utilisé pour mon bouton d'actualisation :
Sub Macro_actualiser()
' Actualise le tableau croisé dynamique
ActiveSheet.PivotTables("Tableau reliquat").PivotCache.Refresh
' Ajoute la date et l'heure de la mise à jour dans la cellule B1
Range("A2").Value = "Dernière mise à jour : " & Format(Now, "dd/mm/yyyy à HH:MM:SS")
' Sauvegarde automatiquement le fichier
ThisWorkbook.Save
End Sub
Private Sub CommandButton1()
Call Macro_actualier
End Sub
J'ai donc tenter de modifier la macro précédente, résultat ci-dessous :
Sub Macro_actualiser()
' Actualise l'extraction des données du fichier reliquat logistique
ActiveWorkbook.Connections("Requête - RELIQUATS PRESTAWATT").Refresh
' Actualise le tableau croisé dynamique
ActiveSheet.PivotTables("Tableau reliquat").PivotCache.Refresh
' Ajoute la date et l'heure de la mise à jour dans la cellule A2
Range("A2").Value = "Dernière mise à jour : " & Format(Now, "dd/mm/yyyy à HH:MM:SS")
' Sauvegarde automatiquement le fichier
ThisWorkbook.Save
End Sub
Mais problème j'ai cela :
Donc cela signifie que la première mise à jours (feuille de donnée) n'est pas terminée mais la macro veux mettre à jours le TCD.
J'ai donc demander à COPILOT & Chat GPT de m'aider rien de concluent.
Si l'un d'entre vous peux m'aider j'en serais vraiment reconnaissant.
Dans l'attente de vos retours.