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)