Facture

Le
jean Berti
Bonjour à tous

La sub de JB pour la facture marche nikel.
Sub Sauvegarde()
répertoire = ActiveWorkbook.Path
nofacture = "Facture" & Format([B1], "0000")
Sheets("facture").Copy
[A1:E21].Copy
[A1].PasteSpecial Paste:=xlPasteValues
ActiveSheet.Shapes("monbouton").Delete
[A1].Select
ActiveWorkbook.SaveAs Filename:=répertoire & "" & nofacture
MsgBox nofacture & " sauvegardée"
ActiveWorkbook.Close
Sheets("facture").Select
[B1] = [B1] + 1
Range("B4,A12:A20,C12:C20").ClearContents
ActiveWorkbook.Save
End Sub
La sauvegarde de la facture se fait sous la forme Facture 0002 par exemple.
Comment peut-on faire pour que l'on est Facture Dupond 230607(date)?

Merci beaucoup.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4909921
Bonjour,

http://cjoint.com/?gxnf4eYZsa

Sub Sauvegarde()
If [B4] = "" Then
MsgBox "Saisir un nom!"
[B4].Select
Exit Sub
End If
If [A12] = "" Then
MsgBox "Choisir un produit!"
[A12].Select
Exit Sub
End If
répertoire = ActiveWorkbook.Path
'---
nofacture = "Facture " & [B4] & Format(Date, " ddmmyy")
' ou nofacture = "Facture " & Format([B1], "0000") & " " & [B4] &
Format(Date, " ddmmyy")
'---
Sheets("facture").Copy
[A1:E21].Copy
[A1].PasteSpecial Paste:=xlPasteValues
ActiveSheet.Shapes("monbouton").Delete
[A1].Select
ActiveWorkbook.SaveAs Filename:=répertoire & "" & nofacture
MsgBox nofacture & " sauvegardée"
ActiveWorkbook.Close
Sheets("facture").Select
[B1] = [B1] + 1
Range("B4,A12:A20,C12:C20").ClearContents
ActiveWorkbook.Save
End Sub

JB

On 23 juin, 11:09, "jean Berti"
Bonjour à tous

La sub de JB pour la facture marche nikel.
Sub Sauvegarde()
répertoire = ActiveWorkbook.Path
nofacture = "Facture" & Format([B1], "0000")
Sheets("facture").Copy
[A1:E21].Copy
[A1].PasteSpecial Paste:=xlPasteValues
ActiveSheet.Shapes("monbouton").Delete
[A1].Select
ActiveWorkbook.SaveAs Filename:=répertoire & "" & nofacture
MsgBox nofacture & " sauvegardée"
ActiveWorkbook.Close
Sheets("facture").Select
[B1] = [B1] + 1
Range("B4,A12:A20,C12:C20").ClearContents
ActiveWorkbook.Save
End Sub
La sauvegarde de la facture se fait sous la forme Facture 0002 par exempl e.
Comment peut-on faire pour que l'on est Facture Dupond 230607(date)?

Merci beaucoup.


jean Berti
Le #4909891
Bonjour JB

Excellent comme d'habitude.
Je rejoints JP25 je crois pour te féliciter de tout ce que tu fais sur ce
forum.
Chapeau Mr Boisgontier!!!!!
Merci encore
Jean Berti
"JB"
Bonjour,

http://cjoint.com/?gxnf4eYZsa

Sub Sauvegarde()
If [B4] = "" Then
MsgBox "Saisir un nom!"
[B4].Select
Exit Sub
End If
If [A12] = "" Then
MsgBox "Choisir un produit!"
[A12].Select
Exit Sub
End If
répertoire = ActiveWorkbook.Path
'---
nofacture = "Facture " & [B4] & Format(Date, " ddmmyy")
' ou nofacture = "Facture " & Format([B1], "0000") & " " & [B4] &
Format(Date, " ddmmyy")
'---
Sheets("facture").Copy
[A1:E21].Copy
[A1].PasteSpecial Paste:=xlPasteValues
ActiveSheet.Shapes("monbouton").Delete
[A1].Select
ActiveWorkbook.SaveAs Filename:=répertoire & "" & nofacture
MsgBox nofacture & " sauvegardée"
ActiveWorkbook.Close
Sheets("facture").Select
[B1] = [B1] + 1
Range("B4,A12:A20,C12:C20").ClearContents
ActiveWorkbook.Save
End Sub

JB

On 23 juin, 11:09, "jean Berti"
Bonjour à tous

La sub de JB pour la facture marche nikel.
Sub Sauvegarde()
répertoire = ActiveWorkbook.Path
nofacture = "Facture" & Format([B1], "0000")
Sheets("facture").Copy
[A1:E21].Copy
[A1].PasteSpecial Paste:=xlPasteValues
ActiveSheet.Shapes("monbouton").Delete
[A1].Select
ActiveWorkbook.SaveAs Filename:=répertoire & "" & nofacture
MsgBox nofacture & " sauvegardée"
ActiveWorkbook.Close
Sheets("facture").Select
[B1] = [B1] + 1
Range("B4,A12:A20,C12:C20").ClearContents
ActiveWorkbook.Save
End Sub
La sauvegarde de la facture se fait sous la forme Facture 0002 par
exemple.
Comment peut-on faire pour que l'on est Facture Dupond 230607(date)?

Merci beaucoup.


Publicité
Poster une réponse
Anonyme