TCD : mettre une variable sur sourcedata

[Crisky]

Bonjour,

Apres des recherches et des essais infructueux je poste donc ce message

J'ai un fichier de données Semaine 1 en partage
j'aimerai depuis ce fichier créer un nouveau classeur dans lequel je créé un TCD avec le fichier Semaine 1
Jusque la pas de probleme

En fait chaque semaine un fichier de base vierge est copié et renommé avec le numero de semaine en cours

Du coup mon nom de fichier referent n'est plus bon dans ma macro

Je pensais mettre une variable dans le code sourcedata:= NomFichier

Un code avec enregistreur de macro donne ceci :

Workbooks.Add
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'[SEMAINE 01.xls]Synthese'!R5C1:R106C24"). _
CreatePivotTable TableDestination:="[Classeur3]Feuil1!R3C1", TableName:= _
"Tableau croisé dynamique3", DefaultVersion:=xlPivotTableVersion10

Je voudrais faire ceci mais cela ne fonctionne pas

Dim NomFichier As String

NomFichier = ActiveWorkbook.Name

Workbooks.Add

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'[NomFichier]Synthese'!R5C1:R106C24"). _
CreatePivotTable TableDestination:="[Classeur3]Feuil1!R3C1", TableName:= _
"Tableau croisé dynamique3", DefaultVersion:=xlPivotTableVersion10


J'ai essaye diverses methodes avec FullName Path
Mais rien n'y fait, le message dit qu'il ne trouve pas le fichier source
Avez vous une idée

Crisky