enregistrement d'une feuil

bonjour
dans mon programe de facture jai ce code qui me permet d'enregistre la
feuil active (facture) sur une disquette
avec le num le nom et prenon

Sub Bouton5_QuandClic()
MsgBox "Avez vous entré votre disquette dans le lecteur"
ChDir "a:"
num = Range("i1").Value & " " & Range("f4").Value & " " &
Range("h4").Value & " " & Range("b8").Value & " " & Range("c8").Value
ActiveWorkbook.SaveAs "a:" & num, _
FileFormat:=xlExcel4, password:="", writerespassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
MsgBox "Vous devez fermer ce programe avans de faire une oppération de fac
dev ou bon de com, dite non à l'enregistrement car cela a ete fait merci"

mais voila la feuille fact prend le non de l'enregistrement ce qui fait que
je dois fermer exel et le re ouvrir pour qu'il reprend le non de facture
pfffffffff jespere avoir ete assez clair

quelqu'un a t'il une soluce

merci d'avance

michel

Bonjour Michel,

Remplace le 'ActiveWorkbook.SaveAs...' par :

ActiveSheet.Copy
ActiveWorkbook.SaveAs "a:" & num, xlExcel4
ActiveWorkbook.Close False

Bonne chance,

Croquignol

bonjour
dans mon programe de facture jai ce code qui me permet d'enregistre la
feuil active (facture) sur une disquette
avec le num le nom et prenon

Sub Bouton5_QuandClic()
MsgBox "Avez vous entré votre disquette dans le lecteur"
ChDir "a:"
num = Range("i1").Value & " " & Range("f4").Value & " " &
Range("h4").Value & " " & Range("b8").Value & " " & Range("c8").Value
ActiveWorkbook.SaveAs "a:" & num, _
FileFormat:=xlExcel4, password:="", writerespassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
MsgBox "Vous devez fermer ce programe avans de faire une oppération de
fac

dev ou bon de com, dite non à l'enregistrement car cela a ete fait
merci"

mais voila la feuille fact prend le non de l'enregistrement ce qui fait
que

je dois fermer exel et le re ouvrir pour qu'il reprend le non de facture
pfffffffff jespere avoir ete assez clair

quelqu'un a t'il une soluce

merci d'avance

michel

Bonjour Michel,

Remplace le 'ActiveWorkbook.SaveAs...' par :

ActiveSheet.Copy
ActiveWorkbook.SaveAs "a:" & num, xlExcel4
ActiveWorkbook.Close False

Bonne chance,

Croquignol

bonjour
dans mon programe de facture jai ce code qui me permet d'enregistre la
feuil active (facture) sur une disquette
avec le num le nom et prenon

Sub Bouton5_QuandClic()
MsgBox "Avez vous entré votre disquette dans le lecteur"
ChDir "a:"
num = Range("i1").Value & " " & Range("f4").Value & " " &
Range("h4").Value & " " & Range("b8").Value & " " & Range("c8").Value
ActiveWorkbook.SaveAs "a:" & num, _
FileFormat:=xlExcel4, password:="", writerespassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
MsgBox "Vous devez fermer ce programe avans de faire une oppération de
fac

dev ou bon de com, dite non à l'enregistrement car cela a ete fait
merci"

mais voila la feuille fact prend le non de l'enregistrement ce qui fait
que

je dois fermer exel et le re ouvrir pour qu'il reprend le non de facture
pfffffffff jespere avoir ete assez clair

quelqu'un a t'il une soluce

merci d'avance

michel