Erreur 1004 sur code

guenfood · 23 Août 2005

Bonjour,

Sur le code suivant, j'ain message d'erreur 1004 avec surligné en jaune la ligne

Code:

For Each cellule In ActiveSheets.Range('L:L').Cells

Code:

Sub Exportation()
'
' exportation Macro
'
i = 1
For Each cellule In ActiveSheets.Range('L:L').Cells
    If cellule.Value = 'X' Then
        ActiveSheet.Rows(cellule.Row).Copy Destination:=Workbooks('Nouveau').Sheets('Feuil1').Rows(i)
        i = i + 1
    End If
Next
Workbooks('Nouveau').SaveAs 'U:\\Manuels\\Comptes\\Vrai-Couv\\maries.xls'

'
'
End Sub

Pourriez-vous m'indiquer d'où vient le problème ?

Merci par avance

Robert · 23 Août 2005

Bonjour Guenfood, bonjour le forum,

Je pense que dans cette ligne de code ce qui pose problème c'est le ActiveSheet. Tu devrais pouvroi résoudre avec :

Sheets(tafeuille).Activate
For Each cellule In Range('L:L').Cells

ou

For Each cellule In Sheets(tafeuille).Range('L:L').Cells

Shining Hawk · 23 Août 2005

Hug guenfood, Robert,

Et si tu mettais tout simplement ActiveSheet (sans s)

A+

Shining Hawk · 23 Août 2005

Excuse moi, je viens de m'appercevoir que j'étais à l'origine de l'erreur...

Méa culpa inch:

guenfood · 23 Août 2005

Merci pour cette réponse, et méa culpa aussi, car je n'avais pas vu cette erreur

Mais lorsque je relance la macro, cette fois, ela me bloque à cette ligne :

Code:

ActiveSheet.Rows(cellule.Row).Copy Destination:=Workbooks('Nouveau').Sheets('Feuil1').Rows(i)

avec pour erreur 'erreur d'exécution '9'' :S

Shining Hawk · 23 Août 2005

???

je ne comprends pas, chez moi ca marche pourtant.

Ote moi d'un doute stp, tu travailles bien sur deux classeurs différents et ton classeur de destination s'appelle bien 'Nouveau'?

guenfood · 23 Août 2005

Oui, j'ai bien 2 classeurs différents, et j'ai créé un classeur vierge nommé 'Nouveau'.

Je comprends pas ce qui cloche :S

Shining Hawk · 23 Août 2005

Si tu as déja enregistré le classeur, essaye ca alors:

Code:

ActiveSheet.Rows(cellule.Row).Copy Destination:=Workbooks('Nouveau.xls').Sheets('Feuil1').Rows(i)

je croise les doigt pour toi...
A+

guenfood · 23 Août 2005

Ca change rien

Toujours le même message. Pourtant, il n'y a pas l'air d'avoir de problèmes de s en trop ou d'autres fautes dans le code !!!!

C'est à devenir dingue :silly:

Shining Hawk · 23 Août 2005

:huh: :silly:

Comme dirai un des mes collègues: 'Y'a où se la prendre et se la mordre ...'
Pourrais-tu déposer un exemple stp? parceque la c'est vraiment bizzare, j'ai du mal à voir ce qui ce passe :side: :S

Merci

guenfood · 23 Août 2005

Ca y est c'est bon.
En fait, je pensais avoir automatisé l'ouverture du classeur 'nouveau', ce qui ne l'était pas. Donc il ne pouvait coller dans un classeur non ouvert :woohoo:

Problème résolu.

Merci beaucoup

Shining Hawk · 23 Août 2005

Génial, bonne continuation

A bientôt

Erreur 1004 sur code

guenfood

XLDnaute Occasionnel

Robert

XLDnaute Barbatruc

Shining Hawk

XLDnaute Junior

Shining Hawk

XLDnaute Junior

guenfood

XLDnaute Occasionnel

Shining Hawk

XLDnaute Junior

guenfood

XLDnaute Occasionnel

Shining Hawk

XLDnaute Junior

guenfood

XLDnaute Occasionnel

Shining Hawk

XLDnaute Junior

guenfood

XLDnaute Occasionnel

Shining Hawk

XLDnaute Junior

Discussions similaires