erreur avec une macro d'excel

erreur avec une macro d'excel - VB/VBA/VBS - Programmation

Marsh Posté le 10-12-2007 à 11:20:03    

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 :
  1. Sub T()
  2.     ChDir "P:\"
  3.     Workbooks.OpenText Filename:="P:\data.txt", Origin:=xlWindows, StartRow _
  4.         :=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
  5.         ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, Comma:=False, _
  6.         Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array( _
  7.         3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10 _
  8.         , 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), _
  9.         Array(17, 1), Array(18, 1), Array(19, 1)), TrailingMinusNumbers:=True
  10.     Workbooks.Open Filename:="P:\data.xls"
  11.     Sheets("Données" ).Select
  12.     Cells.Select
  13.     Range("A598" ).Activate
  14.     Selection.Delete Shift:=xlUp
  15.     Windows("data.txt" ).Activate
  16.     Cells.Select
  17.     Selection.Copy
  18.     Windows("data.xls" ).Activate
  19.     ActiveSheet.Paste
  20.     Sheets("Tableau" ).Select
  21.     Application.CutCopyMode = False
  22.     ActiveSheet.PivotTables("Tableau croisé dynamique2" ).PivotCache.Refresh
  23.     ActiveWorkbook.Save
  24.         Windows("data.txt" ).Activate
  25.     ActiveWindow.Close
  26.         Windows("princip.xls" ).Activate
  27.     ActiveWindow.Close
  28. 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 :
  1. 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.

Reply

Marsh Posté le 10-12-2007 à 11:20:03   

Reply

Marsh Posté le 10-12-2007 à 14:30:30    

As-tu réellement un PivotTable du nom de "Tableau croisé dynamique2" dans ton classeur?
 
As-tu une version d'Excel différente de celle de ton confrère?

Reply

Marsh Posté le 10-12-2007 à 14:38:27    

Pour la version, c'est la même, cad excel 2002 sp2.
 
et pour <le tableau dynamique 2>, je sais pas du tout d'ou ca sort...
car j'ai reprit les 4 fichiers de mon collegue, chez lui ca marche
chez moi une erreur 1004, donc je pense plus que ca vienne de la config d'option d'excel ou VBA.
 
 
 

Reply

Marsh Posté le 12-12-2007 à 13:10:24    

personne ?

Reply

Marsh Posté le 12-12-2007 à 22:17:53    

Je confirme qu'il n'y a pas de TCD appelé "Tableau croisé dynamique2" dans la sheet 'tableau' de ton fichier data.xls. Si le TCD existe,vérifier si le nom est exactement identique.
D'autre part si il existe réellement un TCD et quelque soit son nom, tu peux supprimer la ligne 22, en activant dans les options du TCD la case 'actualiser lors de l'ouverture'. Tu n'aura plus ce problème.


---------------
General and Commander in chief of the Army of the united Colonies
Reply

Marsh Posté le 13-12-2007 à 14:58:25    

merci de ton aide, une question, comment activer l'option 'actualiser lors de l'ouverture'.
 
Merci de ton aide.
 

Reply

Marsh Posté le 13-12-2007 à 20:26:00    

ah oui, faut faire clic droit sur le tableau, puis choisir 'options du tableau' et là c'est tout en bas.


---------------
General and Commander in chief of the Army of the united Colonies
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed