Erreur d'exécution '1004'Résolu

Question

Bonjour,

J'ai le code suivant qui me renvoie une erreur d'exécution '1004':erreur définie par l'application ou par l'objet. Quelqu'un peut-il me renseigner car je n'arrive pas à la corroger ni même à la repèrer.


Sub ExtractionColonneFeuil1()
Worksheets("Feuil1").Columns(1).Copy
Worksheets("Feuil2").Columns(1).PasteSpecial Paste:=xlPasteValues
Worksheets("Feuil1").Columns(3).Copy
Worksheets("Feuil2").Columns(2).PasteSpecial Paste:=xlPasteValues
Worksheets("Feuil1").Columns(5).Copy
Worksheets("Feuil2").Columns(3).PasteSpecial Paste:=xlPasteValues
Worksheets("Feuil1").Columns(8).Copy
Worksheets("Feuil2").Columns(4).PasteSpecial Paste:=xlPasteValues
Worksheets("Feuil1").Columns(9).Copy
Worksheets("Feuil2").Columns(5).PasteSpecial Paste:=xlPasteValues
Worksheets("Feuil1").Columns(10).Copy
Worksheets("Feuil2").Columns(6).PasteSpecial Paste:=xlPasteValues
Worksheets("Feuil1").Columns(11).Copy
Worksheets("Feuil2").Columns(7).PasteSpecial Paste:=xlPasteValues
Worksheets("Feuil1").Columns(12).Copy
Worksheets("Feuil2").Columns(8).PasteSpecial Paste:=xlPasteValues
End Sub


En vous remerciant d'avnace

Cordialement

argaz01 · Accepted Answer

Désolé lolokun et jack pour ce malentendu, car je n'arrivais plus à retrouver mon ancien poste à cause de ma méconnaissance des différentes catégories de ce forum (j'y suis nouveau), voici la réponse de jack et la réponse à ses questions et merci de m'éclairer sur la catégorie où poster ce genre de message.

Salut 
Fais attention à la catégorie de ta question, stp. 

Sur quelle ligne apparait cette erreur ? 
Quel est le n° de cette erreur ? (afin qu'on puisse la reproduire facilement) 
Cette Sub se trouve où ? Dans le code d'une des feuille ? Dans le WorkBook ? Dans un module ? 
As-tu exécuté pas-à-pas ce code ? (avec F9 et F8) 

Vala 
Jack, MVP VB 

Merci Jack et voici mes rectification:
L'erreur apparait sur la ligne Worksheets("Feuil1").Columns(8).Copy
Worksheets("Feuil2").Columns(4).PasteSpecial Paste:=xlPasteValues et elle porte le numéro '1004': erreur définie par l'application ou par l'objet. 
lA SUB se trouve dans le code d'une feuille et je l'ai bien exécuté avec F8.


D'avance merci.

lolokun · Answer

Bonjour,

Pourquoi poster une 2eme fois exactement la même question alors que quelq'un a pris la peine de te répondre sur ton 1er post?? (Toujours pas dans la bonne catégorie d'ailleurs...


L'expérience, c'est une connerie par jour, mais jamais la même..

Erreur d'exécution '1004'

2 réponses

Votre réponse