Nommer classeur Excel

Bonjour tout le monde !

je crée à partir de vb6, un classeur excel :  
  
    Set APPExcel = CreateObject("Excel.Application")
    Set WBExcel = APPExcel.Workbooks.Add
    Set WSExcel = WBExcel.Worksheets(1)
    APPExcel.Visible = False

j'arrive à nommer la feuille excel :
    WSExcel.Name = "Statistiques Globales"

mais comment nommer le classeur pour que quand on enregistre le fichier le nom du fichier s'apparaisse directement dans la boite
'enregistrer sous' au lieu d'avoir classeur1.xls

Merci d'avance pour votre aide très précieuse !!!

voir méthode SaveAs de ton WorkBook


Renfield
Admin CodeS-SourceS- MVP Visual Basic

merci Renfield pour ton aide mais ...
la méthode saveas ne sert elle pas à sauvegarder automatiquement le fichier ?

je voudrais nommer le classeur avant une sauvegarde Manuelle (menu Enregistrer sous)

Merci beaucoup,

je connais pas de moyen direct (je connais peu VBA)

mais tu peux glisser un CommonDialog dans le Workbook_BeforeSave et faire un SaveAs derrière...

et hop, ni vu ni connu :p

Renfield
Admin CodeS-SourceS- MVP Visual Basic

Salut,
Sinon essaie peu être ceci:

Call Application.Dialogs(xlDialogSaveAs).Show

@+: Ju£i€n
Pensez: Réponse acceptée

Zut j'ai trop survolé la discution.

Essaie plutot

'Si tu as référence Microsoft Excel Object Libraur APPExcel.Dialogs(xlDialogSaveAs).Show 'Sinon APPExcel.Dialogs(5).Show

By Renfield

@+: Ju£i€n
Pensez: Réponse acceptée