copie d'un classeur

PY · 12 Juillet 2002

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 · 13 Juillet 2002

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 · 13 Juillet 2002

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

copie d'un classeur

PY

Guest

STephane

Guest

PY

Guest

Discussions similaires