Problème avec Application_Dialogs(xlDialogSaveAs)_Show

[Tinzattack]

salut à tous!
J'ai problème pour enregistrer sur l'ordi mon application.

Avec ce code, y'a t-il un moyen de pouvoir nommer le classeur par défaut . J'aimerai que donnée se trouvant sur la feuille qui a été copié soit le nom du classeur par défaut.

Sub Enregistrer1_click()
ActiveSheet.Copy
Application.Dialogs(xlDialogSaveAs).Show
ActiveWindow.Close
End Sub

Merci d'avance.

 

[michel]

bonjour Tinzattack

dans l'adaptation ci dessous , la valeur de la cellule A1 sera le nom par défaut lors de l'affichage la boite de dialogue "xlDialogSaveAs"

Sub Enregistrer1_click()
ActiveSheet.Copy
Application.Dialogs(xlDialogSaveAs).Show ActiveSheet.Range("A1")
ActiveWorkbook.Close
End Sub


bonne journée
MichelXld

 

[Tinzattack]

Meric michel!
Ca marche nickel