copie d'un classeur

[PY]

bonsoir a tous
j'utilise cette formule pour copier ma feuille active:

ActiveSheet.Copy
Application.Dialogs(xlDialogSaveAs).Show

mais dans la boite enregistrer sous je voudrais que le nom du fichier soit égal au contenu de la cellule G5 plus le contenu de la cellule C12,

comment faire?

 

[STephane]

If MsgBox("Voulez-vous enregistrer le classeur ?", vbYesNo) = vbYes Then Application.Dialogs(xlDialogSaveAs).Show arg1:="toto.xls"

'tu peux utliiser plusieurs arguments ; il faut les resneigner dans l'ordre où ils sont définis dans l'aide
'document_text, type_numxlDialogSaveAs document_text, type_num, prot_pwd, backup, write_res_pwd, read_only_rec End Sub

 

[PY]

Merci Stephane

en fait j'ai été sur ton site et j'ai trouvé mon bonheur:

ActiveSheet.Copy
myfilename = "C:\Hibiscus\facture\" & Range("F10") & Range("C12").Value & ".xls":
ActiveWorkbook.SaveAs Filename:=myfilename

et ça marche nickel

ton site est super une vrai mine d'information

PY