enzoleplusbo
XLDnaute Nouveau
Bonjour
je suis novice, je fais des essais en m'inspirant dans autres messages du forum mais je n'y arrive pas
j'ai besoin de :
1 - créer une facturation avec une numérotation automatique
2- et que la sauvegarde se fasse sous un fichier avec comme extension le Nom du client et le No de facture.
Qu'est ce que je dois corriger dans ma macro
un gros merci
Sub Sauvegarde()
If [B15] = "" Then
MsgBox "Choisir un produit!"
[B15].Select
Exit Sub
End If
répertoire = ActiveWorkbook.Path
facture = "Facture" & Format([C1], "0000")
Sheets("FACTURE").Copy
[B1:F50].Copy
[B1].PasteSpecial Paste:=xlPasteValues
ActiveSheet.DrawingObjects.Delete
[B1].Select
NomFic = [C5].Value & " " & [C1] & " " & ".xls"
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\Utilisateur\Bureau\Chococalin_facture" & NomFic, FileFormat:=xlNormal
MsgBox facture & " sauvegardée"
ActiveWorkbook.Close
Sheets("FACTURE").Select
[C1] = [C1] + 1
Range("C2:C9,B15:B42,D1542").ClearContents
ActiveWorkbook.Save
End Sub
je suis novice, je fais des essais en m'inspirant dans autres messages du forum mais je n'y arrive pas
j'ai besoin de :
1 - créer une facturation avec une numérotation automatique
2- et que la sauvegarde se fasse sous un fichier avec comme extension le Nom du client et le No de facture.
Qu'est ce que je dois corriger dans ma macro
un gros merci
Sub Sauvegarde()
If [B15] = "" Then
MsgBox "Choisir un produit!"
[B15].Select
Exit Sub
End If
répertoire = ActiveWorkbook.Path
facture = "Facture" & Format([C1], "0000")
Sheets("FACTURE").Copy
[B1:F50].Copy
[B1].PasteSpecial Paste:=xlPasteValues
ActiveSheet.DrawingObjects.Delete
[B1].Select
NomFic = [C5].Value & " " & [C1] & " " & ".xls"
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\Utilisateur\Bureau\Chococalin_facture" & NomFic, FileFormat:=xlNormal
MsgBox facture & " sauvegardée"
ActiveWorkbook.Close
Sheets("FACTURE").Select
[C1] = [C1] + 1
Range("C2:C9,B15:B42,D1542").ClearContents
ActiveWorkbook.Save
End Sub