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