Erreur execution 9

bonsoir

je vais chercher des valeurs d'un classeur pour les copier dans un autre...rien de bien sorcier

Windows(nom_fichier_cuit).Activate

Sheets("Recapcoliscuits").Activate

Range("D7:D56").Select

Selection.Copy

Windows("edi.csv").Activate

Worksheets("EDI").Range("D2").Select

ActiveSheet.Paste

Windows(nom_fichier_cuit).Activate

Sheets("Recapcoliscuits").Activate

Range("D67:D116").Select

Selection.Copy

Windows("edi.csv").Activate

Worksheets("EDI").Range("D52").Select

ActiveSheet.Paste

Windows(nom_fichier_cuit).Activate

Sheets("Recapcoliscuits").Activate

Range("D127:D176").Select

Selection.Copy

Windows("edi.csv").Activate

Worksheets("EDI").Range("D102").Select

ActiveSheet.Paste

Windows(nom_fichier_cuit).Activate

Sheets("Recapcoliscuits").Activate

Range("D187:D236").Select

Selection.Copy

ActiveWorkbook.Close

Windows("edi.csv").Activate

Worksheets("EDI").Range("D152").Select

ActiveSheet.Paste

Windows(nom_fichier_cuit).Activate

Sheets("Recapcoliscuits").Activate

Range("D247:D296").Select

Selection.Copy

ActiveWorkbook.Close

Windows("edi.csv").Activate

Worksheets("EDI").Range("D202").Select

ActiveSheet.Paste

Excel accepte le début et s'arrête ur la ligne surlignée et m'envoie une erreur 9.

je vois pas d'erreur dans le code étant donné que j'ai fait du copier/coller à partir du premier paragraphe et ne changeant que le range de ma sélection à copier...

Une idée? Merci

Toscane

Bonsoir,

et bien sans compté le fait que de telle ligne Windows... activate ne servent pas à grand chose si ce n'est de l'animation...

tu essaye d'afficher une fenêtre que tu as fermé part ton close ... un peu plus haut ....

Il faut bannir de ton code tous tes Activate, Select ...

merci

hormis cette erreur de code (je débute) je ne vois pas pourquoi ça joue sur 4 ou 5 copier/coller et que le dernier bloque...

il faut faire quoi alors...recoder?

merci

Toscane

Rechercher des sujets similaires à "erreur execution"