1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VB.NET
Sujet Précédent Sujet Suivant

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

Signaler
Messages postés
37
Date d'inscription
lundi 12 janvier 2009
Statut
Membre
Dernière intervention
10 avril 2012
 -
Messages postés
37
Date d'inscription
lundi 12 janvier 2009
Statut
Membre
Dernière intervention
10 avril 2012
 -
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
A voir également:

2 réponses

Réponse 1 / 2
Messages postés
37
Date d'inscription
lundi 12 janvier 2009
Statut
Membre
Dernière intervention
10 avril 2012
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.
Réponse 2 / 2
Messages postés
1241
Date d'inscription
mardi 10 octobre 2006
Statut
Membre
Dernière intervention
27 août 2013
 6
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..
Répondre Posez votre question