Correction sur code

Bonjour ,

j'ai paufiné un code me permettant de copier toute les feuilles sauf la page d'accueil de mon classeur dans un classeur nommé ALPHA2012 vers un dossier placé sur mon bureau

Sub clone()

 Dim dossier As String
 Dim ws As Object
dossier = "C:\Users\ROCKET\Desktop\sauvegarde\ALPHA2012.xls"
For Each ws In Worksheets
If ws.Name <> "page de garde" Then
ws.SaveCopyAs dossier
End If
Next ws

End Sub

j'ai un bug au niveau de la ligne

ws.SaveCopyAs dossier

avec une erreur 438 "methode non gerée"

comment pourrais je y remedier ? Merci pour vos interventions

Bonjour Rocket 4 le forum

Tu copies le classeur complet et tu supprimes la feuille Page d’accueil

a+

Papou

Oui en effet ca doit etre plus simple, merci pour l'idée je n'y avait pas pensé :

est que l'ecriture suivante conviendrait dans ce cas? :

Dim dossier As String
 Dim ws As Object
dossier = "C:\Users\ROCKET\Desktop\sauvegarde\ALPHA2012.xls"
For Each ws In Worksheets
If ws.Name <> "page de garde" Then
ws.SaveCopyAs dossier
workbooks("ALPHA2012.xls").select
sheets("page de garde").delete
End If
Next ws

End Sub