RE Salut Jean
Ton Classeur Fonctionne tel quel sous Office 2000...
Toutefois essaie sans les Set d'Objets (toujours au Hazard car je n'ai pas XL97)... comme ceci :
Sub Sauvegarde()
Dim MonNum As String
MonNum = Range("A2").Value & "." & Range("C2").Value
ThisWorkbook.Sheets("feuil1").Copy
ActiveSheet.Name = MonNum
Sheets(MonNum).Shapes("bouton1").Delete
Nom = MonNum
Fichier = "C:\mes documents\" & Nom & ".xls"
confirm = MsgBox("Etes vous sur de vouloir enregistrer " & Fichier, vbQuestion + vbYesNo, "Enregistrement")
If confirm = vbYes Then
ActiveWorkbook.SaveAs Filename:=Fichier, FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
End If
ActiveWorkbook.Close savechanges:=False
End Sub
Bon Courage
@+THierry