Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
888 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  erreur avec une macro d'excel

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

erreur avec une macro d'excel

n°1655728
aureliens
Oupsss
Posté le 10-12-2007 à 11:20:03  profilanswer
 

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.

mood
Publicité
Posté le 10-12-2007 à 11:20:03  profilanswer
 

n°1655881
singular65
Posté le 10-12-2007 à 14:30:30  profilanswer
 

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?

n°1655890
aureliens
Oupsss
Posté le 10-12-2007 à 14:38:27  profilanswer
 

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.
 
 
 

n°1657113
aureliens
Oupsss
Posté le 12-12-2007 à 13:10:24  profilanswer
 

personne ?

n°1657438
Pumpy One
Six star rank
Posté le 12-12-2007 à 22:17:53  profilanswer
 

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
n°1657764
aureliens
Oupsss
Posté le 13-12-2007 à 14:58:25  profilanswer
 

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

n°1657997
Pumpy One
Six star rank
Posté le 13-12-2007 à 20:26:00  profilanswer
 

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

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  erreur avec une macro d'excel

 

Sujets relatifs
Macro Taille Lignecréer une macro VBA qui modifiera une base de données automatiquement
HELP!!!! Macro s'appliquant sur tous les fichiers d'un dossier ???Conseil pour migration Excel vers access ou autre SGBD en VBA
récupérer coefficient de détermination avec une macroerreur code
Macro compliquée...Macro à appliquer à plusieurs cellules
erreur code jeu de nombreNeed help: besoin macro excel pour fonction recherche
Plus de sujets relatifs à : erreur avec une macro d'excel


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR