Discussion :

[nattyman]

Bonjour. J'ai une "erreur d'exécution 1004" lors de la copie d'une feuille d'un classeur à l'autre et je ne comprend pas pourquoi; j'avais déjà fait ce genre de manip dans d'autres contextes, donc c'est bizarre... et comme "erreur 1004" ce n'est pas vraiment explicite...

voici le code:

Code :

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

1
2
3
4
 
ThisWorkbook.Worksheets(week).UsedRange.Copy
Workbooks("Suivi.xls").Sheets(name).PasteSpecial Paste:=xlValues
Workbooks("Suivi.xls").Sheets(name).Select

C'est la deuxième ligne qui pose problème; le classeur "suivi" est un classeur déjà ouvert. Par ailleurs je ne maîtrise pas très bien tout ce qui est manipulation de classeurs, donc c'est possible que je ne fasse pas ça de manière très propre.
Si vous avez une idée...
merci beaucoup!

[Ender]

Un message d'erreur d'"erreur 1004 d'Exécution" s'affiche lorsque vous essayez de copier et de coller les données filtrées à un classeur Excel 2003 par programme

Essaie de voir si un des symptomes que tu rencontres est énoncé sur ce site.
http://support.microsoft.com/default...%3Bfr%3B905164

[Elstak]

Salut,

je pense que ca vient de là...

Code :

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

1
2
3
ThisWorkbook.Worksheets(week).UsedRange.Copy
Workbooks("Suivi.xls").Sheets(name).PasteSpecial Paste:=xlValues
Workbooks("Suivi.rien??").Sheets(name).Select

au passage, si c'est une copie d'un classeur à l'autre, je trouve bizarre qu'ils aient tous les 2 le meme nom.....

[nattyman]

Salut,

je pense que ca vient de là...

Code :

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

1
2
3
ThisWorkbook.Worksheets(week).UsedRange.Copy
Workbooks("Suivi.xls").Sheets(name).PasteSpecial Paste:=xlValues
Workbooks("Suivi.rien??").Sheets(name).Select

au passage, si c'est une copie d'un classeur à l'autre, je trouve bizarre qu'ils aient tous les 2 le meme nom.....

En fait j'avais déjà mis le .xls dans les deux lignes, je me suis juste trompé en recopiant les lignes dans le message. Les classeurs n'ont pas le même nom:
le premier est "thisworkbook" et l'autre est "suivi.xls".
Le message d'erreur est "erreur définie par l'application ou par l'object".
Et je n'ai pas de filtre sur la zone copiée.

[Elstak]

Tu veux bien nous mettre ton code tel qu'il est??

[nattyman]

j'ai réussi à contourner le problème, je n'ai plus besoin de faire ça.
Merci pour votre aide en tous cas