Discussion :

[aziz1015]

Bonjour,


J'ai plusieurs TCD dans différents onglets de mon classeur, l'onglet où est récupéré les données est souvent retraité par des macros mais cela change uniquement le nombre de lignes. L'onglet n'est ni supprimé ou autre, tout se fait à l'intérieur de l'onglet. Alors je me demande pourquoi lorsque j'essaie d'actualiser les données des TCD, on me dit que c'est impossible.

Le nom du champ de tableau croisé dynamique n'est pas valide ... Pourtant aucun nom de champ ne change.

Quelqu'un aurait-il une idée ? Ou une solution ?


Merci d'avance

[illight]

Bonjour,


Si tu l'actualise manuellement, ça fonctionne ?
Si oui, tu as essayé de faire un enregistrement de macro à l'actualisation, et vérifier la différence entre ce que tu as écrit, et le code donné par l'enregistreur ? Tu dois forcément avoir une différence.

Après, ne sachant pas comment tu actualises (pas de code), je ne sais pas si on pourras t'aider plus.
J'ai souvenir que quand tu actualise un tableau par VB, il faut d'abord sélectionner la feuille. Si ta feuille a changé de nom, c'est peut-être la raison de ton erreur ?
ça plante sur quelle ligne exactement (en mettant ton code et le message d'erreur exact) ?

[aziz1015]

Merci pour ta réponse

Je l'actualise manuellement et ça ne fonctionne pas en fait. J'ai aussi essayé de changer la source de données en prenant le même onglet et tout mais ça ne fonctionne pas.

[illight]

Ah donc, tu dois avoir un problème ailleurs

Quand tu dis "ça fonctionne pas", tu as un message, et c'est juste que quand tu actualises les données ne se mettent pas à jour ?
Es-tu sur de ta source de données (qui va jusqu'à la fin ?) ?

[aziz1015]

Je pense que la source de données "n'allait pas jusqu'à la fin", du coup pour actualiser tous les TCD, il me faut changer la source de Données avec les bons nombres de colonnes et de lignes avant de l'actualiser, ce que j'ai fait comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim WsSource As Worksheet, WsCible As Worksheet
Dim Nbl As Integer, Nbc As Integer
 
Set WsSource = ThisWorkbook.Worksheets("Demande MEP")
 
Nbl = WsSource.Range("A1").CurrentRegion.Rows.Count
Nbc = WsSource.Range("A1").CurrentRegion.Columns.Count
 
 
    ThisWorkbook.Worksheets("DD - stock").PivotTables("TCD DD-Stock").ChangePivotCache _
        ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Demande MEP!R1C1:R" & CStr(Nbl) & "C" & CStr(Nbc) _
        , Version:=xlPivotTableVersion12)
    ThisWorkbook.Worksheets("DD - stock").PivotTables("TCD DD-Stock").PivotCache.Refresh

Et c'est bon tout baigne, j'ai manqué de vigilance

Merci pour votre aide