Discussion :

[atoffoli75]

Bonjour,

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

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

D'avance merci

[EvaristeGaloisBis]

ce n'est pas plutot.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Godzestla]

Salut Atoffoli75 et bienvenue,

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

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

[ouskel'n'or]

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

[atoffoli75]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[fring]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[atoffoli75]

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.

[ouskel'n'or]

Redémarre ton micro

[atoffoli75]

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é.

[Godzestla]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[atoffoli75]

Bonjour,

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

[Godzestla]

Salut,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.