N° de devis automatisé

Bonjour à tous,

Une fois encore je fais appel à vos lumières concernant un problème de VBA.

Je cherche à créer un modèle de devis automatisé au maximum ; je bute sur un point de détail :

  • je souhaiterai incrémenté mon n° de devis par rapport aux précédents déjà créés.
  • par convention mon n° de devis est construit comme tel : date du jour (en format annéemois) - n° de devis
Exemple : 1er devis du mois de juillet =

201707-001

Pour se faire, je suis parti du principe suivant :

  • Il me faut d'une part récupérer la date du jour sous le format "aaaamm"
  • Il me faut récupérer le dernier n° de devis créé
  • Puis il me faut concaténer l'ensemble pour obtenir mon n° de devis automatiquement.

J'ai une macro qui m'affiche en feuille 2 - colonne A - la liste des fichiers déjà créés dans un dossier spécifié.

Depuis cette liste une formule m'affiche en colonne B le n° de devis

(Exemple : - Colonne A = 201707-001 - Devis UNTEL / - Colonne B = 001)

Maintenant je souhaiterais qu'en feuille 1, cellule B5, mon n° s'affiche automatiquement (à savoir "201707-002").

Pensez-vous que ma méthode soit la bonne ? Si oui auriez vous un code à me proposer ?

Si non, comment feriez-vous ?

Je vous remercie d'avance pour vos retours et reste à votre disposition si mon problème ne vous parait pas clair.

Bonjour Twister, bonjour le forum,

Peut-être comme ça (si j'ai bien compris) :

Worksheets(1).Range("B5").Value = CStr(Year(Date)) & CStr(Format(Month(Date), "00")) & "-" & CStr(Format(Application.WorksheetFunction.Max(Worksheets(2).Columns(2)) + 1, "000"))

Bonjour ThauThème,

Tout d'abord, je te remercie pour ta réponse.

Ton code à l'air de fonction partiellement ;

Un n° se créé bien automatiquement, sous le bon format.

Toutefois il n'incrémente pas le n° et reste désespérément sur "201707-001".

J'ai créé des fichiers dans mon dossier source :

2017-001 - Devis Machin Test.xlsx

2017-002 - Devis Machin Test.xlsx

2017-003 - Devis Machin Test.xlsx

Je retrouve bien ces 3 fichiers dans ma Feuille 2 ; ma formule en Feuille 2 - Colonne B donne donc les résultats suivants :

B1 = 001

B2 = 002

B3 = 003

Malgré tout, mon n° de devis reste "201707-001".

N'étant pas assez avertis sur le sujet, je ne vois pas où cela pourrait coincer.

Une idée ?

D'avance merci.

Re,

Twister_Tkd a écrit :

Une idée ?

Un fichier ?

Et hop, un fichier !

En te remerciant.

bonjour

la macro est bonne

mes il lui des chiffre dans la feuil2 colonne B

A+

Maurice

Bonsoir le fil, bonsoir le forum,

Oui comme le pointe notre Archer il suffit qu'il y ait des numéros dans la colonne B et non du texte...

par exemple, remplace la formule :

=SI(ESTVIDE(A1);"";STXT(A1;8;3))

par :

=SI(ESTVIDE(A1);"";STXT(A1;8;3)*1)

Est là, le code fonctionne...

Bonjour, bonjour,

En effet, ce n'était qu'un problème de format ... Autant pour moi !

Merci pour vos lumières à bientôt pour de nouveaux problèmes !

Rechercher des sujets similaires à "devis automatise"