erreur avec une macro d'excel

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : erreur avec une macro d'excel

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.

Publicité

singular65

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?

aureliens

Oupsss

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.

aureliens

Oupsss

personne ?

Pumpy One

Six star rank

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

aureliens

Oupsss

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

Merci de ton aide.

Pumpy One

Six star rank

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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

erreur avec une macro d'excel

Sujets relatifs
Macro Taille Ligne	cré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 macro	erreur code
Macro compliquée...	Macro à appliquer à plusieurs cellules
erreur code jeu de nombre	Need help: besoin macro excel pour fonction recherche
Plus de sujets relatifs à : erreur avec une macro d'excel

Page générée en 0.049 secondes