T
teddy
Guest
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
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