Sujet Précédent Sujet Suivant

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.

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
0
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
0
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
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
0
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
0
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
0
Réponse 3 / 3
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 250
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

0
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
0
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 250
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
0
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
0
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 250
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
0
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.
0

Discussions similaires

VBA erreur 1004
séverine -
Floroan -

9 réponses
[excel] erreur 1004 : fichier non enregistré.
nicoa62370 -
gbinforme -

1 réponse
MACRO : Problème " Erreur d'exécution '1004' "
Awazagaga -
Awazagaga -

6 réponses
[SUJET GROUPÉ] Erreur upes_1025
Tonitruand -
JEANMIMI -

16 réponses
Erreur de lecture des tv film et series sur mon appli iptv smarters pro
Constantenzostanley -
glandu -

1 réponse