comment crée un numéro de fascture automatique

patrick965

XLDnaute Impliqué
bonjour les ami(e)s
je fais des recherches mais en vain
je recherche a faire sur ma fiche Excel que je joint un numéro de facture qui lorsque j'ouvre une nouvelle feuille vierge un nouveau numéro de facture sera automatiquement inscrit .
j'aimerais que dans ce numéro de facture on y retrouve la date du jour. exemple ; j'ouvre une nouvelle facture et par exemple in est inscrit 140620140001 lorsque j'ouvre une nouvelle le même jour elle inscrira par exemple 140620140002
si par exemple 2 jour passe et Jai une nouvelle facture a crée j'ouvre ma nouvelle page et il sera inscrit 160620140003 .
je veux que la date du jour change mais aussi le numéro a la fin 0001 augmente de 1 a chaque nouvelle ouverture d'une nouvelle facture .
je veut par exemple que lorsque l'année change le numéro 0001 par exemple recommence a 0001

mais....
je veux que lorsque jais enregistrer ma facture dans une fiche client je veux que la date et le numéro ne change plus a chaque jour ou chaque ouverture .


merci beaucoup...
 

Pièces jointes

  • FACTURATION LA SOLUTIONPAT HABITATION TEST.xlsx
    50.6 KB · Affichages: 74

camarchepas

XLDnaute Barbatruc
Re : comment crée un numéro de fascture automatique

Bonjour ,

L'on suppose que dans ton classeur nous avon une feuille suivi et une feuille facture
Pour créer une nouvelle facture, l'on déclenche la macro facture .

et voilà


Code:
Sub Nouvelle_Facture()
'Incrémentation numéro de facture
Dim Numero As String, Tempo As String, Ancien As String
Dim Date_Rupture As String, Lecture_Date As String

'Lecture de la date
 Lecture_Date = Date

'-----------------------------------------------------------------------------------------------------------
'Permet un test sans dérégler le calendrier système
'Partie à supprimer ou mettre en commentaire
 Lecture_Date = InputBox("Pour la simulation de fonctionnement , veuillez entrée la date courante du test")
'-----------------------------------------------------------------------------------------------------------

Date_Rupture = "31/03/" & Year(Lecture_Date) 'Comme pour les anniversaire cela change tout les ans
If DateDiff("d", Lecture_Date, Date_Rupture) > 0 Then
   Ancien = 1
 Else
   'Reprise du dernier numero
   'Tempo = stockage ' Fichier texte indépendant ou feuille de suivi Excel ou derniere facture
                     ' ou tout autre moyen de mémorisation
   'Là, je choisi une feuille de suivi où les factures seraient archivées dans l'onglet suivi
    'classées chronologiquement et où le numéro de facture serait la donnée stockée dans la colonne A.

  Ancien = Sheets("Suivi").Range("A" & Rows.Count).End(xlUp)
  'Si num existant , alors ou découpe pour récupérer la partie à incrémenter
  If InStr(1, Ancien, "-") > 0 Then
      Ancien = Split(Ancien, "-")(1)
    Else
     ' Si n'existe pas , il faut bien commencer
      Ancien = 0
  End If
End If

'Incrémente le résultat et le complémente sur 3 chiffres
  Tempo = Right("00" & Ancien + 1, 3)

'Calcul de la racine du nouveau numéro
 Numero = Year(Lecture_Date) & Month(Lecture_Date) & "-" & Tempo

'On mémorise ici ou en fin de construction nouvelle facture
Sheets("Suivi").Range("A" & Rows.Count).End (xlUp) + 1 = Numero

'Ici partie perso de mise en l'état des cellules dans la nouvelle facture
  'ex :
   With Sheets("Facture")
      .Range("B3") = Numero
      .Range("F2") = WeekdayName(Weekday(Lecture_Date, vbMonday)) & " " & Lecture_Date
      'ETC
   End With

End Sub
 

patrick965

XLDnaute Impliqué
Re : comment crée un numéro de fascture automatique

Bonjour

Je vous reviens pour une petite question sur l'aide que vous m'aviser offert sur ce sujet
j'ai esseiller de chercher dans la macro, mais sans succès.

j'aimerais que les titres Non:,adresse, ville téléphone,adresse courriel,cellulaire reste en gras, mais que les donner que j'entre ne soie pas en caractère gras.

Présentement quand j'entre toute, mais donner et que je clique enregistrer le macro crée un fichier avec le non du client et enregistre la soumission dans ce dossier avec le numéro de facture et ça, c'est super cool je ne veux pas rien y changer.
J’aimerais que lorsque je clique enregistre ma soumission que tous les feuille et sheet et autre lier reste a l'enregistrement parce que toutes les pages son importante et utile.

J’aimerais aussi que lorsque j'enregistre le document soumission
j'aimerais qu'il y a aussi une feuille soumission seulement avec le numéro de facture se crée en format pdf dans le même dossier que l’Excel habituel.

j'ai joint le fichier dans la discussion comment crée un numéro de facture automatique


un très gros merci pour votre aide
 

Pièces jointes

  • SOUMISSION test km et tem de route et macro enregistrement28-02-2015.xlsm
    137.8 KB · Affichages: 26
  • SOUMISSION test km et tem de route et macro enregistrement28-02-2015.xlsm
    137.8 KB · Affichages: 34
  • SOUMISSION test km et tem de route et macro enregistrement28-02-2015.xlsm
    137.8 KB · Affichages: 35

camarchepas

XLDnaute Barbatruc
Re : comment crée un numéro de fascture automatique

Bonsoir ,

Pour l'écriture en gras ou pas ,

le plus simple serait de supprimer la fusion des cellules, une pour les entêtes et une pour les données .

pour l'export en PDF , je regarde dès que je peux
 

patrick965

XLDnaute Impliqué
Re : comment crée un numéro de fascture automatique

Merci beaucoup
j'attends de tes nouvelles
je cherche a savoir aussi pour ce qui est de Google map sur ma feuille de calcule en fait j’aimerais une petites mappe et l'itinéraire km et tant de route apparaisse en case D11 et D12 du sheet 1 j'ai suivi les démarches très simples de ce lien super https://www.youtube.com/watch?v=N_A5gPzYzMo
Mais lorsque je clique sur exécuter a la fin des démarche un message d’erreur me dit objet manquant.
Je cherche et cherche et ne comprend toujours pas ce qui ce passe peu tu m’aider sur ce point aussi svp.

Je te joins le fichier sur lequel tu pourrais travailler autant l'enregistrement en pdf que Google mappe
j'y ais mis une adresse et code postal, etc pour facilitée la chose .
Merci de me donner ou j'ai fait l'erreur...

Gros gros merci a toit...
 

Pièces jointes

  • SOUMISSION BATIMENT TRICOLOR test 24-02-2015.xlsm
    170.8 KB · Affichages: 29
  • SOUMISSION BATIMENT TRICOLOR test 24-02-2015.xlsm
    170.8 KB · Affichages: 38
  • SOUMISSION BATIMENT TRICOLOR test 24-02-2015.xlsm
    170.8 KB · Affichages: 42

camarchepas

XLDnaute Barbatruc
Re : comment crée un numéro de fascture automatique

Bonjour ,

rien que 4 posts différents pour la même application ......

et je n'ai pas été voir sur d'autres sites.


En fait tu essaies de coller des morceaux de codes les uns en dessous des autres , bien sur cela ne fonctionne pas , alors hop l'on reposte .

tu as des idées sur tous enfin surtout des idées , mais en courant dans tous les sens tu fini par nous y perdre et ton montage devient un chateau de cartes

Je ne bosse pas comme cela , donc pour ma part j'arrete ce sujet
 

patrick965

XLDnaute Impliqué
Re : comment crée un numéro de fascture automatique

Bonjour
je ne poste pas pour la même chose si tu regardes bien la première fois étais pour mettre Google map sur ma feuille ensuite changer mon code pour que celui-ci enregistre, mais soumission en pdf et en Excel avec le numéro de facture .
Mais comme j'ai continué a travaillé a cherché et a me débrouiller en attendant d'avoir de l'aide pour c'est post j'ais trouver comment faire pour Google map donc ça, c'est suer, mais lus tard j'ai remarquée que mon document était défectueux je ne peu plus enregistrer comme avant et pourtant je ne croie as avoir changer rien dans le code et j'ai cherché pendants des heurs sans trouver la raison et ce que je trouvais des lus bizarre c'est que c'est comme ca pour toute, mais document Excel et pourtant je nais pas travailler avec les autres.
Voilà ce que j'essaie de faire comprenez que je travaille sur ce projet depuis lu de 1 an et je chercher a apprendre, mais comprenez que dais foie on ce bute a un mur.

Merci de votre aide et Sacher que rien en moi ne cherche a mal faire les choses. Mais jais presque pleurer quand jais vu mon travail arrêter d'enregistrer et les autres aussi .

Merci de prendre du temps, pour moi j'en suis très reconnaissant.
 

Discussions similaires

Statistiques des forums

Discussions
315 088
Messages
2 116 089
Membres
112 657
dernier inscrit
jpb3