Erreur execution 1004

Fermé

almim Messages postés 7 Date d'inscription lundi 1 septembre 2014 Statut Membre Dernière intervention 8 septembre 2014 - 1 sept. 2014 à 09:47
almim Messages postés 7 Date d'inscription lundi 1 septembre 2014 Statut Membre Dernière intervention 8 septembre 2014 - 8 sept. 2014 à 14:45

Bonjour,

J'ai un problème lors de la constitution d'une macro.
Mon fichier contient un onglet par mois contenant des informations salariales (nom, prenom, type de contrat, salaires brut, heures travaillées etc...) et j'aimerais copier coller chaque mois, dans un autre onglet "synthèse", les colonnes correspondantes au nom, prénom et type de contrat et supprimer les doublons.
Cependant, quand je veux exécuter ma macro, le message d'erreur "erreur execution 1004" apparait.
Je vous mets la macro sous VBA.

Sub MAJ()
'
' MAJ Macro
'

'
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Janvier").Select
Range("A2:C2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Application.CutCopyMode = False
Range("A2:C75").Select
Selection.Copy
Sheets("Suivi Mensuel").Select
ActiveSheet.Paste
Sheets("Fevrier").Select
ActiveWindow.SmallScroll Down:=-12
Range("A2:C75").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Suivi Mensuel").Select
ActiveWindow.SmallScroll Down:=60
Range("A77").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=72
Sheets("Mars").Select
ActiveWindow.SmallScroll Down:=-9
Range("A2:C75").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Suivi Mensuel").Select
Range("Tableau2[#Totals,[Nom]]").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=81
Sheets("Avril").Select
ActiveWindow.SmallScroll Down:=-9
Range("A2:C75").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Suivi Mensuel").Select
Range("Tableau2[#Totals,[Nom]]").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=66
Range("Tableau2[#Totals,[Nom]]").Select
Sheets("Mai").Select
Range("A2:C75").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Suivi Mensuel").Select
ActiveSheet.Paste
Selection.End(xlDown).Select
Range("A358").Select
Sheets("Juin").Select
Range("A2:C75").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Suivi Mensuel").Select
ActiveSheet.Paste
Selection.End(xlDown).Select
Range("A426").Select
Sheets("Juillet").Select
ActiveWindow.SmallScroll Down:=-6
Range("A2:C75").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Suivi Mensuel").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=27
Selection.End(xlDown).Select
ActiveWindow.SmallScroll Down:=6
Range("A491").Select
Sheets("Aout").Select
Range("A2:C75").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Suivi Mensuel").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=78
Sheets("Septembre").Select
Range("A2:C75").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Suivi Mensuel").Select
Range("Tableau2[#Totals,[Nom]]").Select
ActiveSheet.Paste
Selection.End(xlDown).Select
Sheets("Octobre").Select
Range("A2:C75").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Suivi Mensuel").Select
ActiveSheet.Paste
Selection.End(xlDown).Select
Sheets("Novembre").Select
Range("A2:C75").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Suivi Mensuel").Select
ActiveSheet.Paste
Selection.End(xlDown).Select
Sheets("Decembre").Select
Range("A2:C75").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Suivi Mensuel").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.End(xlDown).Select
Range("A860:C860").Select
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, Selection.End(xlUp)).Select
Range("A298:C860").Select
Range("A860").Activate
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, Selection.End(xlUp)).Select
Range("Tableau2[[Nom]:[Natureducontrat]]").Select
Range("A860").Activate
ActiveSheet.Range("Suivi Mensuel#Tout").RemoveDuplicates Columns:=Array(1, 2, 3), _
Header:=xlYes
ActiveWindow.ScrollRow = 842
ActiveWindow.ScrollRow = 839
ActiveWindow.ScrollRow = 836
ActiveWindow.ScrollRow = 834
ActiveWindow.ScrollRow = 831
ActiveWindow.ScrollRow = 825
ActiveWindow.ScrollRow = 820
ActiveWindow.ScrollRow = 814
ActiveWindow.ScrollRow = 803
ActiveWindow.ScrollRow = 795
ActiveWindow.ScrollRow = 779
ActiveWindow.ScrollRow = 767
ActiveWindow.ScrollRow = 754
ActiveWindow.ScrollRow = 734
ActiveWindow.ScrollRow = 712
ActiveWindow.ScrollRow = 685
ActiveWindow.ScrollRow = 663
ActiveWindow.ScrollRow = 643
ActiveWindow.ScrollRow = 624
ActiveWindow.ScrollRow = 596
ActiveWindow.ScrollRow = 572
ActiveWindow.ScrollRow = 544
ActiveWindow.ScrollRow = 522
ActiveWindow.ScrollRow = 491
ActiveWindow.ScrollRow = 467
ActiveWindow.ScrollRow = 445
ActiveWindow.ScrollRow = 425
ActiveWindow.ScrollRow = 406
ActiveWindow.ScrollRow = 389
ActiveWindow.ScrollRow = 376
ActiveWindow.ScrollRow = 362
ActiveWindow.ScrollRow = 354
ActiveWindow.ScrollRow = 340
ActiveWindow.ScrollRow = 331
ActiveWindow.ScrollRow = 323
ActiveWindow.ScrollRow = 315
ActiveWindow.ScrollRow = 307
ActiveWindow.ScrollRow = 293
ActiveWindow.ScrollRow = 282
ActiveWindow.ScrollRow = 273
ActiveWindow.ScrollRow = 262
ActiveWindow.ScrollRow = 251
ActiveWindow.ScrollRow = 218
ActiveWindow.ScrollRow = 202
ActiveWindow.ScrollRow = 188
ActiveWindow.ScrollRow = 169
ActiveWindow.ScrollRow = 149
ActiveWindow.ScrollRow = 130
ActiveWindow.ScrollRow = 111
ActiveWindow.ScrollRow = 91
ActiveWindow.ScrollRow = 80
ActiveWindow.ScrollRow = 72
ActiveWindow.ScrollRow = 64
ActiveWindow.ScrollRow = 55
ActiveWindow.ScrollRow = 47
ActiveWindow.ScrollRow = 44
ActiveWindow.ScrollRow = 36
ActiveWindow.ScrollRow = 31
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 3
End Sub

Merci d'avance pour votre aide.

A voir également:

Erreur execution 1004
Erreur 0x80070643 - Guide
Erreur d'exécution 1004 erreur définie par l'application ou par l'objet ✓ - Forum VB / VBA
Erreur 38 free ✓ - Forum Mobile
Iptv erreur de lecture - Forum TV & Vidéo
Erreur d'execution 13 ✓ - Forum Programmation

3 réponses

Réponse 1 / 3

Iama Messages postés 319 Date d'inscription mercredi 13 janvier 2010 Statut Membre Dernière intervention 27 mars 2020 14
1 sept. 2014 à 10:24

bonjour almim

Tu as fait pas mal de manipes peu utile pendant l'enregistrement de ta macro.

Je te conseil de l'ouvrir de de la faire fonctionner au pas à pas (F8).

Tu pourras l'épurer un peu, et nous dire ou elle plante exactement.

Merci
cordialement

almim Messages postés 7 Date d'inscription lundi 1 septembre 2014 Statut Membre Dernière intervention 8 septembre 2014
2 sept. 2014 à 12:26

C'est à cet endroit qu'il y le problème.

ActiveSheet.Range("Suivi Mensuel#Tout").RemoveDuplicates Columns:=Array(1, 2, 3), _
Header:=xlYes

Je précise que je ne m'y connais très peu sur VBA.

Merci

Réponse 2 / 3

almim Messages postés 7 Date d'inscription lundi 1 septembre 2014 Statut Membre Dernière intervention 8 septembre 2014
1 sept. 2014 à 11:08

Iama Messages postés 319 Date d'inscription mercredi 13 janvier 2010 Statut Membre Dernière intervention 27 mars 2020 14
3 sept. 2014 à 12:06

La je bloque
cordialement

almim Messages postés 7 Date d'inscription lundi 1 septembre 2014 Statut Membre Dernière intervention 8 septembre 2014
3 sept. 2014 à 12:43

Merci quand même

Réponse 3 / 3

eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
3 sept. 2014 à 12:58

Bonjour,

tu n'as pas renommé ton tableau ?
Et la feuille doit être active
Sans fichier difficile de voir ce qui ne va pas...

eric

almim Messages postés 7 Date d'inscription lundi 1 septembre 2014 Statut Membre Dernière intervention 8 septembre 2014
4 sept. 2014 à 15:42

Bonjour,

Non je n'ai pas renommé le fichier, pouvez vous me dire comment est ce qu'on peut poster le fichier sur ce site, SVP?

Merci d'avance

eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
4 sept. 2014 à 18:51

Il faut le déposer sur un site de partage comme cjoint.com et coller ici le lien fourni.
Alléger le classeur et l'anonymiser.

eric

almim Messages postés 7 Date d'inscription lundi 1 septembre 2014 Statut Membre Dernière intervention 8 septembre 2014
5 sept. 2014 à 15:31

La macro est sur l'onglet "suivi mensuel" à l'extrémité droite du tableau

eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
5 sept. 2014 à 17:07

J'ai supprimé ton fichier.
PAS DE DONNEES PERSONNELLES DANS UN FICHIER !
Je t'avais dit de l'anonymiser...

Ton tableau de données ne ressemble à rien. Comment veux-travailler avec ça ?
Ajoute un champ 'Mois' à tes 6 champs et colle toutes les données en vertical.
A lire : http://www.xlerateur.com/divers/2010/05/14/les-13-regles-d%E2%80%99or-pour-utiliser-excel-comme-gestionnaire-de-donnees-612/

eric

almim Messages postés 7 Date d'inscription lundi 1 septembre 2014 Statut Membre Dernière intervention 8 septembre 2014
8 sept. 2014 à 14:45

Merci eric
Mon tableau était anonymisé, les noms et valeur avaient été modifiés.

Discussions similaires

VBA erreur 1004

MACRO : Problème " Erreur d'exécution '1004' "

Erreur d'éxecution 1004

Instagram "Désolé, une erreur s'est produite"

Erreur vidéo inconnue sur le Freebox Player

Discussions similaires

Newsletters