Accès Premium
GNT sans publicité, site mobile, fonctionnalitées exclusives...
Rejoignez-nous !
Forums Applications Microsoft Office Excel

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.
Lire les 2 réponses

Questions / Réponses high-tech
Poser une question
Vidéos High-Tech et Jeu Vidéo
Plus de vidéos
Téléchargements
Plus de 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.


Répondre en citant
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.


Répondre en citant
Publicité
Suivre les réponses
Poster une réponse
Anonyme