problème de sauvegarde (encore)

[chinel]

Salut tout le monde !

j'ai un souci mais ou je ne sais pas mais ceci ne fonction pas !

Private Sub CommandButton3_Click()
MsgBox ("Pour info David ta sauvegarde se trouve dans C:\Documents and Settings\David ...\Mes documents!")
Sheets("calendrier").Select
Sheets("calendrier").Unprotect
Sheets("calendrier").Copy
'Suppression des boutons (ActiveX) dans la feuille
For Each Obj In ActiveSheet.OLEObjects
If TypeOf Obj.Object Is MSForms.CommandButton Then Obj.Delete
Next
Application.DisplayAlerts = False
ActiveSheet.DrawingObjects.Delete
ActiveWorkbook.SaveAs Filename:=Range("C1").Value & Range("E2").Value & Range("J2").Value & ".xls"
ActiveWorkbook.Close savechanges:=False
Sheets("calendrier").Visible = False

End Sub

merci de votre aide !

 

[Coriolan]

Re : problème de sauvegarde (encore)

Re,

Je n'ai pas le contexte, mais il me semble que si la dernière instruction masque la feuille "calendrier", il faut la démasquer en début de programme:

Sheets("calendrier").visible =true
Sheets("calendrier").select
(...)

 

[chinel]

Re : problème de sauvegarde (encore)

Coriolan la feuiile (calendrier) est déjà active et visible !

 

[Cousinhub]

Re : problème de sauvegarde (encore)

Re-,
tu aurais pu rester sur le même Fil

Qu'y a-t-il exactement dans tes cellules C1, E2, J2?

 

[Coriolan]

Re : problème de sauvegarde (encore)

Re

Le fichier joint répond à ta demande.

Note que le bouton "sauvegarde" a été créé avec la barre d'outils "formulaire", et que la macro correspondante se trouve dans module1.

 

[chinel]

Re : problème de sauvegarde (encore)

Coriolan que dire ?

un grand merci !!!!