copie d'un classeur

P

PY

Guest
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?
 
S

STephane

Guest
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
 
P

PY

Guest
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
 

Discussions similaires

Statistiques des forums

Discussions
303 475
Messages
2 011 477
Membres
219 000
dernier inscrit
flaplace