Re : MACO/TCD - Filtre automatiques
Bonjour,
Voyant que personne n'a réagit à mon probleme je me permet de mettre plus de détail.
Alors je dispose d'une liste plus ou moins longue en fonction des années.
J'ai besoin de faire un listing en fonction des siociétés et des noms d'hotel j'ai besoin de retrouver les montants de commissions et de charges sociales, et pour chaque hotel dans une société je dois imprimer le TCD.
Il faut donc que je filtre mon TCD en fonction de ma base Hotel, qui est le détail de tous les hotels, sans doublons, et ma base Société, qui est le détail de tous les hotels, sans doublons.
J'ai surement pas pris la meilleur option afin de retraiter l'information, mais d'abord je fais une boucle sur les Sociétés, et j'isole dans une celllule le N° de société souhaité.
Sub Phase01()
'Creer les variantes société
Sheets("Base Societe").Select
liste_soc = Range("A2:A" & Range("A" & Cells.Rows.Count).End(xlUp).Row)
Sheets("CONCIERGE").Activate
For Each Cel In liste_soc
Range("num_soc_choi") = Cel
Call Phase02
Next
End Sub
Je fais exactement la même manip pour les hotels.
Sub Phase02()
'Creer les variantes hotel
Sheets("Base Hôtel").Select
liste_hot = Range("A2:A" & Range("A" & Cells.Rows.Count).End(xlUp).Row)
Sheets("CONCIERGE").Activate
For Each Cel In liste_hot
Range("num_hot_choi") = Cel
Call Phase03
Next
End Sub
J'obtiens donc mes criteres de tri du TCD. Il me reste plus qu'a filtrer automatiquement mon TCD.
Pour ce faire j'enregistre une macro, je filtre mon TCD et j'obtiens le code suivant :
ActiveSheet.PivotTables("ETAT PAR HOTEL").PivotFields("N° SOCIETE").CurrentPage = "238" ActiveSheet.PivotTables("ETAT PAR HOTEL").PivotFields("Hôtel").CurrentPage = "ASTOR SAINT HONORÉ"
Une fois l'enregistrment effectué je lance la macro et la c'est le drame!
J'ai le message d'erreur cité ci-dessus.
Pouvez vous me donner un coup de pousse SVP?
Je vous rejoind un fichier.
Merci.
Cordialement.
Gael