Erreur 1004 vba excel - Page 2

j'ai trouvé cette erreur et je l'ai corrigé, voila où en est mon code :

Sub Tri()
Dim lastRow, lastCol As Integer

classeur2 = Application.GetOpenFilename
If classeur2 = Null Then Exit Sub
Workbooks.Open Filename:=classeur2
Sheets(1).Name = "zeitergeleitet"

lastRow = ActiveSheet.UsedRange.EntireRow.Count
lastCol = ActiveSheet.UsedRange.Columns.Count

Sheets(2).Activate
Sheets(2).Name = "new"

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"zeitergeleitet!R1C1:R" & lastRow & "C" & lastCol).CreatePivotTable TableDestination:="new!R1C1", TableName:="Tableau"

ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

ça a l'air de pas trop mal fonctionnait

la prochaine étap est de définir les colonnes du tableau croisé de manière automatique, je vous préviens si j'ai un blocage

J'ai un petit problème sans que je fasse de modification dans le code

l'erreur se produit dans cette cette formule :
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"zeitergeleitet!R1C1:R" & lastRow & "C" & lastCol).CreatePivotTable TableDestination:="new!R1C1", TableName:="Tableau"

j'ai fait des tests pour trouver d'où venait l'erreur et j'ai pu déterminer que c'est cette partie qui gène :
TableDestination:="new!R1C1" => errur 1004, la donnée n'est pas bonne
je sus presque sur qu'il s'agit de ce problème, si je remplace "new!R1C1", il le reconnait

je peux pas utiliser le "", car cela me provoque si je relance le programme avec le même fichier

Je pense aue après ça, il n'y aura plus de problème

j'ai contourné le problème en procédant d'une autre manière :)

Jai eu toute les infos nécessaires consernant ces problèmes, je le mets donc comme étant résolu