aureliens Oupsss | Bonjour, dans le cadre de mon travail ,je dois executer une macro qui recupere des données dans un fichier pour les remettre dans un autre a l'aide de tableau dynamique.
Voici le code
Code :
- Sub T()
- ChDir "P:\"
- Workbooks.OpenText Filename:="P:\data.txt", Origin:=xlWindows, StartRow _
- :=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
- ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, Comma:=False, _
- Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array( _
- 3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10 _
- , 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), _
- Array(17, 1), Array(18, 1), Array(19, 1)), TrailingMinusNumbers:=True
- Workbooks.Open Filename:="P:\data.xls"
- Sheets("Données" ).Select
- Cells.Select
- Range("A598" ).Activate
- Selection.Delete Shift:=xlUp
- Windows("data.txt" ).Activate
- Cells.Select
- Selection.Copy
- Windows("data.xls" ).Activate
- ActiveSheet.Paste
- Sheets("Tableau" ).Select
- Application.CutCopyMode = False
- ActiveSheet.PivotTables("Tableau croisé dynamique2" ).PivotCache.Refresh
- ActiveWorkbook.Save
- Windows("data.txt" ).Activate
- ActiveWindow.Close
- Windows("princip.xls" ).Activate
- ActiveWindow.Close
- End Sub
|
et l'erreur est afficher a la ligne 22 qui m'indique qu'il ne connait pas <Tableau croisé dynamique2> erreur d'execution 1004
Code :
- le nom du champs de tableau croisé dynamique n'est pas valide
|
Merci de votre aide.
ps : cela marche sur l'ordinateur d'une autre personne mais pas sur le mien, et je n'arrive pas a savoir d'ou ca provient. |