Nommer classeur Excel

Question

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 !!!

Renfield · Answer

voir méthode SaveAs de ton WorkBook

Renfield
Admin CodeS-SourceS- MVP Visual Basic

cs_tulesais · Answer

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,

Renfield · Answer

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

jrivet · Answer

Salut,
Sinon essaie peu être ceci:

Call Application.Dialogs(xlDialogSaveAs).Show

@+: Ju£i?n
Pensez: Réponse acceptée

jrivet · Answer

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, ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

Nommer classeur Excel

5 réponses

Votre réponse

Discussions similaires