Numérotation Model Facture automatique-Enregistrement

[avekash]

Bonjour à Tous,

Certains me diront que ce sujet a été maintes fois traités. Mais rassurez vous j'ai passé deux jours a écumé le forum sans m'en sortir véritablement. Raison pour laquelle je sollicite une fois de plus votre expertise.

J'ai un classeur Proforma V0.01 avec plusieurs Feuilles Dont PROFORMA qui en tant que model devrait a chaque ouverture présenter une numérotation différente de cette forme 0001/0305-12

Le code VBA suivant ne donne pas le résultat escompté :

----------------------------------------------------------------------------------
Private Sub Workbook_Open()
Dim Jour As String, Mois As String, Annee As String, Num As Long
Jour = Format(Date, "dd")
Mois = Format(Date, "mm")
Annee = Format(Date, "yy")
Num = Sheets("PROFORMA").Range("NumProforma").Value
Sheets("PROFORMA").Range("NumProforma").Value = Num + 1 & "/" & Jour & Mois & "-" & Annee
ThisWorkbook.Save
End Sub
-----------------------------------------------------------------------------------

Aussi, je souhaiterais enregistrer en tant que fichier xls chaque PROFORMA créé à partir du Model dans un répertoire spécifique nommé par exemple Prospects en combinant les plages NomClient & NumProforma.

Merci d'avance pour toute votre attention

 

[phlaurent55]

Re : Numérotation Model Facture automatique-Enregistrement

bonjour evekash,

ton fichier en retour (uniquement pour l'incrémentation du N° )

Private Sub Workbook_Open()
Dim Jour As String, Mois As String, Annee As String, Num As Long
Jour = Format(Date, "dd")
Mois = Format(Date, "mm")
Annee = Format(Date, "yy")
Num = CDbl(Left(Sheets("PROFORMA").Range("F6").Value, 4))
Sheets("PROFORMA").Range("NumProforma").Value = Format(Num + 1, "0000") & "/" & Jour & Mois & "-" & Annee
ThisWorkbook.Save
End Sub

à+
Philippe

 

[avekash]

Re : Numérotation Model Facture automatique-Enregistrement

Bonsoir M. Philippe

Merci pour l'intérêt que vous m'accordez. Votre solution fonctionne à merveille.
Cependant, j'ai un autre souci Je souhaiterais une décrémentation du model au cas où celui-ci n'aurait pas été utilisé (Rempli) pour revenir au numéro précédant.

Merci pour toute votre attention.

 

[phlaurent55]

Re : Numérotation Model Facture automatique-Enregistrement

Re,

le fichier en retour

à+
Philippe

 

[avekash]

Re : Numérotation Model Facture automatique-Enregistrement

Bonsoir Philippe,

j'ai pas encore ouvert le fichier que tu me proposes (Je faisais un peu de paperasse) mais déjà je te remercie pour ton attention. Bon week end. Je te tiens informer de la suite dès que je teste.

 

[avekash]

Re : Numérotation Model Facture automatique-Enregistrement

Bonsoir Philippe,

Grâce a toi j'ai pu avancé sur mon projet avec la solution que tu m'as proposée. Cependant j'ai une autre contrainte.
Comment puis-je incrémenter de la même manière dans le même classeur un numéro dans la feuille FACTURE du même classeur à son ouverture.
J'ai tenté de modifier le code précédent de la manière suivante :

Private Sub Workbook_Open()
Dim Jour As String, Mois As String, Annee As String, Num As Long
Jour = Format(Date, "dd")
Mois = Format(Date, "mm")
Annee = Format(Date, "yy")
'
' Numéro de la Proforma
'
Num = CDbl(Left(Sheets("PROFORMA").Range("F6").Value, 4))
Sheets("PROFORMA").Range("NumProforma").Value = Format(Num + 1, "0000") & "-" & Jour & Mois & "-" & Annee
'
' Numéro de la Facture
'
Num = CDbl(Left(Sheets("FACTURE").Range("C4").Value, 4))
Sheets("FACTURE").Range("NumFacture").Value = Format(Num + 1, "0000") & "-" & Jour & Mois & "-" & Annee
ThisWorkbook.Save
End Sub

sans succes. Il me met le message d'erreur suivant : Erreur d'exécution 13

Merci de jeter un coup d'oeil sur le fichier Pour correction. (Je n'ai pas mis le code ci-dessus puisqu'il ne fonctionne pas. J'attends ta proposition avec impatience. Merci pour tout

 

[Pierrot93]

Re : Numérotation Model Facture automatique-Enregistrement

Re,

pas top la multiplication de fils pour un même sujet....
https://www.excel-downloads.com/thr...au-moins-2-feuilles-dun-meme-classeur.185209/

 

[avekash]

Re : Numérotation Model Facture automatique-Enregistrement

Au fait j'ai avancé dans l'élaboration de mon projet sur ce fil, raison pour laquelle j'y suis revenu en espérant avoir une réponse de Philippe qui m'y a aidé de manière particulière.
Alors autant pour moi si cela ne réponds pas à l'éthique du forum. Je m'en excuse.