Incrémentation automatique d'un devis vb excel [Résolu]

Messages postés
75
Date d'inscription
samedi 2 avril 2005
Dernière intervention
16 juin 2006
- - Dernière réponse : erti1711
Messages postés
75
Date d'inscription
samedi 2 avril 2005
Dernière intervention
16 juin 2006
- 22 juin 2005 à 17:42
Bonjour,dans le cadre de mon stage j'effectue des devis,j'ai un classeur1 pour faire mes devis et un autre classeur Archives_Devis dans lakel j'enregistre a l'"aide d'une macro les devis effectuées.Ce que je voudrais faire c'est qu'à chaque foi que j'enregistre un devis le numéro s'incrémente automatiquement de 1.
Par exemple le devis je vais le faire commencer au numéro DEV1500 puis à chaque fois qu'un nouveau devis est enregistrer ça l'incrémente.
Le principe est simple je le sais mais c'est le code vb.
Kelkun pourrait me mettre sur la piste SVP ou me donner un bout de code
Merci
Afficher la suite 

6 réponses

Meilleure réponse
Messages postés
402
Date d'inscription
jeudi 25 novembre 2004
Dernière intervention
7 juin 2009
3
Merci
C'était juste pour te montrer comment utiliser les propriétés du document en VBA

Je repars de la création de ta nouvelle feuille dans ton classeur Archive_Devis :

Dim l_Workbook as Workbook
Dim l_WorkSheet as Worksheet

'Ouvre Archive_Devis
Set l_workbook = workbooks.Open("Archive_Devis.xls")
'Copie la feuille de Classeur2 vers Archive_Devis
Workbooks("Classeur2").Worksheets("Feuil1").Copy After:=l_Workbook.Worksheets(l_Workbook.Worksheets.Count)
'Récupère la feuille qui vient d'être copiée (dernière feuille du classeur)
Set l_WorkSheet = l_Workbook.Worksheets(l_Workbook.Worksheets.Count)
'Renomme la feuille
l_WorkSheet.Name = "DEV" & l_Workbook.CustomDocumentProperties("NumDevis").Value
'Incrémente la valeur de NumDevis pour la prochaine fois
l_Workbook.CustomDocumentProperties("NumDevis").Value = l_Workbook.CustomDocumentProperties("NumDevis").Value + 1
'Ferme Archive_Devis en sauvegardant
l_Workbook.Close True

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 106 internautes ce mois-ci

Messages postés
402
Date d'inscription
jeudi 25 novembre 2004
Dernière intervention
7 juin 2009
0
Merci
Le mieux je pense est de stocker le dernier numéro de devis réalisé dans ton fichier Archives_Devis.

Pour ça je te conseille d'aller dans le menu Fichier, Propriétés
Onglet Personnalisation.
J'ai créé une propriété NumDevis de type Nombre et en valeur 1500

Ensuite tu peux manipuler la valeur comme ceci :
Range("a1") = ThisWorkbook.CustomDocumentProperties("NumDevis").Value
ThisWorkbook.CustomDocumentProperties("NumDevis").Value = ThisWorkbook.CustomDocumentProperties("NumDevis").Value + 1
Messages postés
75
Date d'inscription
samedi 2 avril 2005
Dernière intervention
16 juin 2006
0
Merci
Pourrait tu me détailler ces lignes STP:
Range("a1") = ThisWorkbook.CustomDocumentProperties("NumDevis").Value
ThisWorkbook.CustomDocumentProperties("NumDevis").Value = ThisWorkbook.CustomDocumentProperties("NumDevis").Value + 1
merci
Messages postés
75
Date d'inscription
samedi 2 avril 2005
Dernière intervention
16 juin 2006
0
Merci
Merci de ton aide, je vais tester immédiatement.
Messages postés
1490
Date d'inscription
mercredi 5 février 2003
Dernière intervention
3 décembre 2007
0
Merci
Et si ça marche, n'oubli pas de cliquer sur le bouton "Accepter" de mrdep1978 ok!
Messages postés
75
Date d'inscription
samedi 2 avril 2005
Dernière intervention
16 juin 2006
0
Merci
C'est bon mrdep1978 le code que tu m'as fournis marche nikel,j'ai ajouter une ligne pour que le nom de la feuille soit égale au numéro du devis enregistrer (en vert):


l_WorkSheet.Name = "DEV" & l_Workbook.CustomDocumentProperties("NumDevis").Value

l_WorkSheet.Range("AB2").Value = l_WorkSheet.Name

Ceux que j'arrive pas encore c'est commment incrémenter de 1 le numéro du devis qui se trouve dans le classeur2 là où je fais mes devis.Y a til pas une fonction sous Excel pour incrémenter automatiquement sans passer par le vba???
Disons que l'entreprise dans lakel je fais mon stage décide de faire démarrer le numéro a DEV1500.Aprè comment faire pour que ça incrémente?SVP
MERCI qd meme si j'ai pas de réponse

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.