Erreur sur Sheets("Feuil1").Copy

[teddy]

Bonjour

Voici mon problème du moment.

Cette routine fontionne parfaitement dans une appli

Private Sub SOS_Click()

Sheets("Feuil1").Copy
Application.Dialogs(xlDialogSaveAs).Show (nom-de-fichier)
ActiveWorkbook.Close SaveChanges:=False

End Sub

Dans une autre elle me donne le message suivant:

Run-time error '424'
Object required

en m'indiquant la ligne: Sheets("Feuil1").Copy

Comme toujours un grand merci pour qui éclairera ma lanterne !!!

Teddy

 

[Dan]

Bonjour,

Dans ta macro, tu as "Sheets("Feuil1").Copy".

Vérifies que le nom de la feuille dans ton fichier correspond à Feuil1 comme tu l'as indiqué dans ta macro.

@+ Dan

 

[teddy]

Bonjour Dan,

Merci de ta réponse.

Le nom n'était pas en cause.
Dans le 2ème cas la feuille contenait du code, je l'ai changé de place et plus de problème.

Teddy