Numérotation auto de bon de commande

Bonsoir,

j'ai besoin de votre aide, j'ai créé un modèle de bon de commande avec Excel 2013 et j'aimerai que le numéro de commande s'incrémente à chaque fois que j'ouvre mon modèle. ( le numéro se trouve en H9;I10 voir le fichier joint )
J'aimerai également que lorsque j'ai terminé de remplir mon bon de commande, qu'il s'enregistre automatiquement dans un dossier avec comme nom de fichier le numéro de commande.
Pour cela j'ai besoin d'une macro, mais jusque maintenant je n'ai réussi à rien :cry:

Merci à toutes celles et ceux qui pourront éclairer ma lanterne ! :P

Salut

Voila peut-être une piste http://support.microsoft.com/kb/469850/fr

++
Qwaz

bonjour Qwazerty,

tout d'abord merci de ton aide, je viens de regarder l'article sur l’incrémentation de numéro, mais hélas celui-ci n'apporte pas plus de résultat à mes recherches.
Pour ce qui est de faire une macro pour un nombre entier, ça je sais faire ( par ex : commande N° 190 une fois fermé mon modèle et que je le ré-ouvre, il passe à 191 c'est acquis )
Mon problème ici est qu'il correspond à une série de nombre séparée par des slaches 2013/020/190 et pour réussir à passer à 2013/020/191 je ne sais pas faire... :? (voir la pièce jointe )
De plus la cellule ou se trouve le numéro de commande est fusionnée, je ne trouve pas la bonne formule à mettre dans range.
En tout cas merci de t'être penché sur le problème, c'est sympa de ta part, petit à petit, grâce à des vous, je finirai bien par trouver la bonne formules :ccool:
Cordialement,
Ragnart

Re- bonjour à tous,

voici exactement ce que je cherche mais il faut maintenant l'appliquer à mon modèle (pièce jointe) quelqu'un peut m'aider ? je suis vraiment limité en macros

sur cette macro le numéro de facture est 2013-101
quel formule utilisr pour 2013/020/190 ? en sachant que ma cellule ou se trouve mon numéro est fusionnée

merci de votre aide...

voici le code de la macro à modifier en fonction de mon bon de commande:
(pièce jointe)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56

'Pour créer le nom qui contient 'le numéro de facture utilise ceci :   Sub Créer_Nom_départ() 'Part le compteur où tu veux Names.Add "Compteur", "2013-100", False End Sub     Sub Nouvelle_Facture() Dim x As Long, Arr() 'à chaque facture toutes ces plages de 'cellules sont effacées, tu peux en ajouter 'ou en modifier l'étendue. Tu peux énumérer 'autant de cellules ou de plages de cellules 'que tu désires Arr = Array("A10:A20", "B20:C20", "C:C")   Application.ScreenUpdating = False Application.EnableEvents = False Application.DisplayAlerts = False   'Sauvegarde du fichier avec la valeur C5 comme nom 'dans le répertoire où est ce fichier With ThisWorkbook .SaveAs .Path & "\" & Me.Range("C5"), FileFormat:=xlOpenXMLWorkbookMacroEnabled End With Application.DisplayAlerts = True     With Me .Unprotect "MD" .EnableSelection = xlUnlockedCells .Cells.Locked = True For Each elt In Arr With .Range(elt) .ClearContents .Locked = False End With Next With .Range("C4") .NumberFormat = "DD MMMM YYYY" .Value = Date .Locked = True End With x = Split([Compteur], "/"/")(1) + 1 With .Range("C5") .Value = Year(Date) & "-" & x .Locked = True End With Names.Add "Compteur", .Range("C5").Value, False .Protect "MD" End With Application.EnableEvents = True Application.ScreenUpdating = True End Sub

---

Bonjour,
A quoi correspond ce numéro 2013/020/190.
2013 représente je suppose l'année en cours et 190 le compteur et 020, est-ce le n° de la semaine ?
Il ne faut pas confondre compteur et format du n° de commande
Le compteur à conserver est 190 et c'est également lui qui doit être incrémenté le reste c'est du formatage.
Donc il te suffit de prévoir une cellule dans une feuille nommée par exemple [Paramètre] où tu construis le format en concaténant le résultat des fonctions Texte et Date et celui de la fonction personnalisée qui incrémente le compteur.
Par exemple

Code:

---

=ANNEE(AUJOURDHUI()) & "/" & NO.SEMAINE(AUJOURDHUI();21) & "/" & Compteur

---

Où compteur est le nom de la fonction qui incrémente le n° de commande.
Une autre solution pour incrémenter un n° de commande ou facture sur cette contribution VBA / Fonction - Incrémentation de n°. Il y a un classeur téléchargeable qui illustre la fonction.

Bonjour Philippe,

alors le format de ce numéro 2013/020/190 correspond à ceci :

2013 correspond à l'année (il change qu'une fois par an :zoubi:)
020 correspond à un code de service, car la ou je travail nous sommes plusieurs services le mien est donc le 020 et il ne change jamais.
190 correspond au nombre de bon de commande effectué au long d'une année, actuellement nous sommes à 201.

voilà pour répondre à ta question.
J'ai bien regardé l'exemple quer tu donne dans ton lien, mais hélas, pardonne mon incompétence, je ne comprends vraiment pas grand chose...:cry:

Éventuellement, pourrais-tu me créer une macros avec le modèle de bon de commande joint ?
je souhaite enregistrer mon bon de commande comme modèle prenant en charge les macros. et être le seul classeur qui s'incrémente (pas les commandes que j'enregistre) avec la date qui se mets à jour également.
dans ce modèle je souhaiterai que le numéro s'incrémente à l'ouverture.
Disposer d'un bouton par exemple "nouvelle commande" qui incrémente le numéro de commande en cliquant dessus, qu'il efface les cellules de A à I de 14 à 31, ainsi que I 36 à I 41 et la parti fusionné Nom de la société également, tout en s'enregistrant avec comme nom de fichier : le numéro de commande 2013/020/191 par exemple
Je demande peut-être beaucoup...:oops:
mon soucis est que je suis responsable d'un un service technique, que je n'ai pas beaucoup de temps à consacrer à l'ordinateur, cette macros me ferai gagner énormément de temps.
Actuellement, je suis obliger de taper la date, le numéro de commande de l'enregistrer dans un dossier, d'ouvrir un autre classeur pour la gestion de mes numéros de commande, tout cela me prends un temps fou et je m'en sort pas.
je fais de la maintenance en électricité, dans plusieurs bâtiments publics d’où
mon désir d'obtenir cette macro voilà des semaines que je galère... :cry:
Help !

Salut

Dans le lien que je t'ai donné, modifie

Code:

---

1 2	Range("A2").Value = GetSetting(appname:="MyApp", section:="Startup", key:="Top", Default:="=5"") + 1

---

par

Code:

---

1 2	Range("A2").Value = year(date) & "/020/" & GetSetting(appname:="MyApp", section:="Startup", key:="Top", Default:="=5"") + 1

---

Par rapport au message de Philippe T., je me demande si une valeur stocké en paramètre avec la méthode proposé dans le lien, peut-être récupéré dans une formule sans passer par une macro.
Là je vais me coucher, mais je regarderais demain ;)

++
Qwaz

Merci t'es génial quazerty :ccool: :lol: :lol: :lol:

à demain et je vais faire comme tu dis dans ta réponse merci encore