TCD et mise à jour OULALA!!!

[Sébbb]

Bonjour à tous,
J'aurai besoin d'un p'tit coup de main,

J'ai un tableau croisé qui prend pour source les données d'une feuille qui n'est pas toujours la même, ca dépend de la date.
Par exemple, le tableau croisé que j'obtenai hier prenait ces valeurs dans une feuile nommée OT-24/05/05, celui d'aujourd'hui doit les prendre dans une feuille nommée OT-25/05/05
Toutes ces feuilles ont en commun leur désignation :
nomfeuilleOT = 'OT-' & Format(Date, 'dd-mm-yy')

Ce que je voudrais, dans un premier temps c'est mettre dans une macro :
'La source du tableau est nomfeuilleOT'
Comment dois-je faire?

D'autre part, je souhaite utiliser la fct grouper dans mon tableau et je me suis apercu que si ma source était A:M (ie les colonnes entières), la fct grouper ne fonctionne pas.Elle ne fonctionne que si je sélectionne jusqu'à la dernière cellule pleine

Pour faire cette sélection, j'utilise
Dim L as integer
nomfeuilleOT = 'OT-' & Format(Date, 'dd-mm-yy')
Sheets(nomfeuilleOT).Select
L = Range('A' & '65536').End(xlUp).Row
Range('A1:Q' & L).Select


Je cherche à utilser cette dernière ligne comme source de mon TCD
Voilà, si quelque peut éclaircir la situation, je lui en serai reconnaissant.
Merci d'avance pour votre aide

Sébbb

 

[sebbb]

Re-bonjour à tous,

Je vois que personne n'a apporté d'éléments de réponse, est-ce par ce que la question est mal posée, est-ce parce que c'est compliqué?

A +
Sébbb

 

[Sébbb]

Re-ReBonjour,
Pour la première partie: 'La source du tableau est nomfeuilleOT'
Je viens de trouver comment faire,

Sub macro12()
nomfeuilleOT = 'OT-' & Format(Date, 'dd-mm-yy')
Sheets('Feuille1').Select

ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
''' & nomfeuilleOT & ''!R1C1:R26C17'
End Sub

il n'y a que la seconde partie qui me bloque, je pense qu'il faut travailler sur la partie en rouge ci-dessus.
Quelqu'un a une idée?

A +
Sébbb