Sub nouvelleFacture()
' nouvelle Facture Macro
Sheets("facture").Copy
ActiveSheet.Shapes("Button 1").Select
Selection.Cut
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
liaisons = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
For i = 1 To UBound(liaisons)
ActiveWorkbook.BreakLink _
Name:=liaisons(i), _
Type:=xlLinkTypeExcelLinks
Next
Vname = "C:\Documents and Settings\Moi \Bureau\ma comptabilité \journal de juillet 09\" & Range(" B12 ").Value & Range(" C12 ").Value & Range(" E6 ").Value & ".xls"
ActiveWorkbook.SaveAs Filename:=Vname, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
Range("A6").ClearContents
Range("A14:A38").ClearContents
Range("E14:E38").ClearContents
Range("h14:h38").ClearContents
Range("g43").ClearContents
Call Ajouternum
Range("A5").Select
End Sub