Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Excel 2000

Excel 2000

3 réponses
Avatar
Père Noël
j'ai tout juste terminer un model de facturation pour ma petite entreprise et
je ne sais pas comment faire pour obtenir une numérotation automatique de mes
factures.Besion d'aide Merci
Michel
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
JB
Bonjour,

http://boisgontierj.free.fr/fichiers/Divers/CompteurFacture2.xls

B1 contient le no de facture

Sub Sauvegarde()
répertoire = ActiveWorkbook.Path
nofacture = "Facture" & Format([B1], "0000")
Sheets("facture").Copy
[A1:E21].Copy
[A1].PasteSpecial Paste:=xlPasteValues
For Each s In ActiveSheet.Shapes: s.Delete: Next s
[A1].Select
ActiveWorkbook.SaveAs Filename:=répertoire & "" & nofacture
MsgBox nofacture & " sauvegardée"
ActiveWorkbook.Close
Sheets("facture").Select
[B1] = [B1] + 1
Range("B4:B7,A12:A20,C12:C20").ClearContents
ActiveWorkbook.Save
End Sub



JB

On 5 mar, 00:44, Père Noël <P貥 No묮 microsoft.com> wrote:
j'ai tout juste terminer un model de facturation pour ma petite entrepris e et
je ne sais pas comment faire pour obtenir une numérotation automatiq ue de mes
factures.Besion d'aide Merci
Michel


Avatar
Père Noël
Merci JB TOUT FONCTIONNE BIEN TU AS RÉSOLU MON PROBLÈME


j'ai tout juste terminer un model de facturation pour ma petite entreprise et
je ne sais pas comment faire pour obtenir une numérotation automatique de mes
factures.Besion d'aide Merci
Michel


Avatar
Père Noël
Merci JB TOUT FONCTIONNE TU AS RÉSOLU MON PROBLÈME


Bonjour,

http://boisgontierj.free.fr/fichiers/Divers/CompteurFacture2.xls

B1 contient le no de facture

Sub Sauvegarde()
répertoire = ActiveWorkbook.Path
nofacture = "Facture" & Format([B1], "0000")
Sheets("facture").Copy
[A1:E21].Copy
[A1].PasteSpecial Paste:=xlPasteValues
For Each s In ActiveSheet.Shapes: s.Delete: Next s
[A1].Select
ActiveWorkbook.SaveAs Filename:=répertoire & "" & nofacture
MsgBox nofacture & " sauvegardée"
ActiveWorkbook.Close
Sheets("facture").Select
[B1] = [B1] + 1
Range("B4:B7,A12:A20,C12:C20").ClearContents
ActiveWorkbook.Save
End Sub



JB

On 5 mar, 00:44, Père Noël <P貥 No묮 wrote:
j'ai tout juste terminer un model de facturation pour ma petite entreprise et
je ne sais pas comment faire pour obtenir une numérotation automatique de mes
factures.Besion d'aide Merci
Michel