Bonjour

Voilà, je cherche à mettre à jour des valeur dans un tableau à partir de données récupérer sur un tableau croisé dynamique situé sur un autre fichier.

Mes données dans mon TCD sont filtrées par semaine, et du coup je souhaiterai pouvoir aller directement chercher les valeur qui coresponde à la semaine, en faisant entrer en compte une cellule sur mon fichier de départ ou le numéro de semaine est déjà renseigné.

J'ai utilisé le l'enregistreur de macro qui me donne ce code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
[Sub bilan_navette()
'
' bilan_navette Macro
'
 
'
    Workbooks.Open Filename:= _
        "X:\Tableaux de bord\Litiges\Navettes\Tbord Navettes 2013.xlsm", Notify:= _
        False
    Sheets("Indicateur_Dimitri").Select
    Range("B8").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotCache.Refresh
    ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("SEM"). _
        ClearAllFilters
    ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("SEM"). _
        CurrentPage = "S39"
    Range("C7").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotCache.Refresh
    Windows("Version finale.xlsm").Activate
End Sub
Pour définir la semaine qui m'intéresse, j'ai pensé utilisé ce code à la ligne 16:
Workbooks("Version Final.xmls").Worksheet("Suivi d'activité").Range("C2").Value ==> légale à la valeur de la cellule C2

Mais cela ne marche pas.

Est ce que quelqu'un aurait une idée ou une solution?

Je débute en VBA donc merci de votre indulgence et patiente