erreur Automation vba

Bonjour,

J'ai le pb suivant. Lorsque je fais tourner ma macro sur Excel le message suivant apparaît:

Citation:

---

erreur d'exécution '-2147417848 (80010108)'
erreur Automation

---

Le code s'arrête sur la ligne suivante:

Code:

---

Sheet("IMPORTS M").Copy Before:=Workbooks("TdB.xls").Sheets(6)

---

D'avance merci

ce n'est pas plutot.

Code:

---

Sheets("IMPORTS M").Copy Before:=Workbooks("TdB.xls").Sheets(6)

---

PS: tu devrais le déplacer dans le forum VBA Excel. tu aurais beaucoup plus de réponses.

Salut Atoffoli75 et bienvenue,

puis-je te suggérer de mettre un peu plus de code.:D

(Et pense à utiliser les balises codes. Comment ? regarde en haut du forum le post de ouskelnor sur le sujet).

Manque un "s" à sheet comme EvaristeGaloisBis le signale si bien ;)

Bonjour,
En fait il dans ma macro je n'ai pas oublié le "s"
Voici la partie de code blocante: c'est sur la dernière ligne que la macro s'arrête.

Code:

---

1 2 3

Windows("Agrégation.xls").Activate Sheets("IMPORTS M").Select Sheets("IMPORTS M").Copy Before:=Workbooks("TdB.xls").Sheets(6)

---

En fait je souhaite copier l'onglet "IMPORTS M" du classeur "Agrégation" au classeur "TdB" et tout ça à partir du code présent dans un classeur "Traitement".

A noter que l'onglet "IMPORTS M" contient des liens hypertextes. ça peut peut-être poser un problème ?

Bonjour tlm,

Si tous les classeurs sont ouverts, et que tout est correctement orthographié, cela ne devrait poser aucun problème et sans passer par les Select et Activate ;)

Code:

---

Workbooks("Agrégation.xls").Sheets("IMPORTS M").Copy Before:=Workbooks("TdB.xls").Sheets(6)

---

Justement, j'ai l'impression que le problème vient du fait que les fenêtres Excel ne s'ouvrent plus. Après que le message d'erreur survienne, toutes les feuilles Excel sont réduites et il est impossible de les ouvrir.

Redémarre ton micro ;)

Bonjour,

J'ai redémarré mon pc mais rien n'y fait. La macro plante toujours sur la commande "copy.before".
J'ai même essayé de la faire tourner sur un autre poste mais ça n'a rien changé.

Etant donné qu'il plante sur le copy.before sheets(6), je te suggère de remplacer le 6 par le nom de la feuille (que tu connais assurément) avant laquelle tu veux placer ce que tu copie.

Syntaxe :

Code:

---

1 2	Workbooks("Agrégation.xls").Sheets("IMPORTS M").Copy Before:=Workbooks("TdB.xls").Sheets("mafeuille préférée")

---

;)

Bonjour,

J'ai remplacé les numéros de worksheets par leur nom mais rien n'y fait: ça ne marche tjs pas

Salut,

chez moi ca marche nickel, je viens de tester. avec ce dode sur 2 fichiers quelconques :

Code:

---

1 2 3 4

Sub copy_sheet() Workbooks("new Book1.xls").Sheets("From").Copy Before:=Workbooks("Book1.xls").Sheets("Synthese") End Sub

---

Suggestion :

passe moi tes 2 fichiers nettoyés de tout sauf des pages de références (page à copier et page "before" pour l'insert) et juste le code qui fait le copy.

Je teste et je te dis ce qui se passe.

mais ca doit marcher. :evilred: