tableau croisé dynamique

[Bridgess]

Bonjour,

On me demande de faire un tableau croisé dynamique
Cela, je sais le faire

Mais, mon souci, c'est que les données sont dans un fichier qui change de chemin tout les jours.

Avez vous une solution ?

Merci de votre aide

 

[tototiti2008]

Re : tableau croisé dynamique

Bonjour Bridgess,

Bienvenue sur XLD,

La source, il s'agit d'un fichier Excel ?
Quand tu cliques dans le tableau croisé, dans l'onglet Outils de tableau croisé dynamique, Onglet Options, Section Données, tu as un bouton Changer la source de données

 

[Bridgess]

Re : tableau croisé dynamique

Bonjour Bridgess,

Bienvenue sur XLD,

La source, il s'agit d'un fichier Excel ?
Quand tu cliques dans le tableau croisé, dans l'onglet Outils de tableau croisé dynamique, Onglet Options, Section Données, tu as un bouton Changer la source de données

Oui, la source vient de fichier excel.
Le problème, c'est que ce fichier se créer automatiquement tout les jours
Mais, un répertoire différent créé automatiquement tout les jours.
Je voudrais pouvoir faire un Tableau (TCD ou pas) qui se mette à jour automatiquement.

 

[tototiti2008]

Re : tableau croisé dynamique

Bonjour Bridgess,

Si tu veux un code VBA qui actualise la source tous les jours, il va falloir nous donner des précisions sur :
le nom du dossier qui se crée tous les jours
le nom du fichier source, change-t-il aussi ?

 

[Bridgess]

Re : tableau croisé dynamique

Le nom du fichier source ne change pas, il n'y a que le nom du dossier
Je récupère les informations et vous les donne dès que je les ai

Merci

 

[Bridgess]

Re : tableau croisé dynamique

Bonjour,
Excusez moi d'avoir tant tardé à donner la réponse à votre question
donc, le fichier s'appelle report_ccs.xls
Et le dossier qui change tout les jours est sous le format 31_01_2012
Merci de votre aide

 

[chris]

Re : tableau croisé dynamique

Bonjour
Bise à Tototiti

Plutôt que de monter une macro un peu usine à gaz, ne serait-il pas plus simple de stocker le fichier source et le TCD dans le même dossier lors de 1er paramétrage, afin que le lien fasse abstraction du chemin, puis dupliquer ou déplacer chaque jour le fichier du TCD dans le nouveau dossier, auquel cas la mise à jour sera automatique.

 

[Bridgess]

Re : tableau croisé dynamique

Non, ce n'est pas possible, car ces dossiers sont créés automatiquement par l'application d'où est tiré ces reportings

 

[tototiti2008]

Re : tableau croisé dynamique

Bonjour Bridgess, bonjour Chris 🙂

à tester

Sub test()
Dim conn As Object
    For Each conn In ThisWorkbook.Connections
        If conn.Name = "report_ccs" Then
            conn.OLEDBConnection.Connection = Replace(conn.OLEDBConnection.Connection, Format(Date - 1, "DD_MM_YYYY"), Format(Date, "DD_MM_YYYY"))
        End If
    Next
    ThisWorkbook.RefreshAll
End Sub

Edit : Ou comme ça

Sub test()
Dim Conn As String
    Conn = ThisWorkbook.Connections("report_ccs").OLEDBConnection.Connection
    ThisWorkbook.Connections("report_ccs").OLEDBConnection.Connection = Replace(Conn, Format(Date - 1, "DD_MM_YYYY"), Format(Date, "DD_MM_YYYY"))
    ThisWorkbook.RefreshAll
End Sub

 

[Bridgess]

Re : tableau croisé dynamique

Merci, je vais tester