Erreur 1004 sur code

[guenfood]

Bonjour,

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

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

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]

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]

Hug guenfood, Robert,

Et si tu mettais tout simplement ActiveSheet (sans s)



A+

 

[Shining Hawk]

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

Méa culpa inch:

 

[guenfood]

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 :

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

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

 

[Shining Hawk]

???

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]

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]

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

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

je croise les doigt pour toi...
A+

 

[guenfood]

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]

: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]

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]

Génial, bonne continuation

A bientôt