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)?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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" wrote:
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.
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" <jean.be...@free.fr> wrote:
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)?
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" wrote:
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
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" a écrit dans le message de news:
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" wrote:
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.
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" <boisgontier@hotmail.com> a écrit dans le message de news:
1182596826.707989.112320@g4g2000hsf.googlegroups.com...
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" <jean.be...@free.fr> wrote:
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)?
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" a écrit dans le message de news:
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" wrote:
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)?
