macro recherche d'un numéro

Version imprimable

1 pièce(s) jointe(s)

Bonjour je suis nouveau sur ce forum, j'ai un problème avec un macro.
Je vous explique mon problème je dois réaliser une facture de base avec un bouton qui active une macro.

Cette macro doit enregistrer la facture sous "Facture JJMMAA – N°" puis passer à la facture suivante. Le numéro de facture doit repartir à 1 lorsque je change de jour.
J'ai réussi à réaliser cela, mais lorsque je lance la facture de base, le fichier excel doit afficher le numéro de la dernière facture +1 dans la cellule numéro de facture. Alors qu'actuellement lorsque je relance ce fichier je redémarre à 1. Je n'ai aucune idée comment réaliser cela.

Un exemple pour illustrer:
J'ai réaliser 10 factures ce matin, je pars en pause, je lance à nouveau ma facture de base je dois avoir le numéro 11 qui s'affiche dans la cellule n° de facture.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub save2() ActiveWorkbook.SaveAs Filename:="C:\Users\Victor\Documents\BIWI\info\exercice\entrainement maison" & Range("E4") Range("B9,A14:A24,E14:E24").ClearContents If Range("i1") = Date Then Range("b8") = Range("b8") + 1 Else Range("b8") = 1 End If Range("b9").Select Range("i1") = Date End Sub
N'hésitez pas à me demander de plus ample information, si mon explication n'est pas très claire.

En pièce jointe vous trouverai la facture de base.
Merci d'avance

06/02/2009, 23h12
PPz78

Deux solutions possible:
1- Mémoriser le dernier numéro de facture dans la feuille pour le retrouver à la prochaine ouverture

2- Analyser le contenu du répertoire des factures pour retrouver la numéro qui est dans le nom de la facture.

A+
07/02/2009, 10h16
Fouine47

Bonjour et merci pour votre réponse, je suis intéressé par les 2 solutions mais je n'ai aucune idée comment les réaliser.

Pourriez vous m'indiquer comment y arriver.

Merci.
07/02/2009, 11h53
ouskel'n'or

Dans l'enregistrement de tes factures, respectes-tu la chronologie ?
- La facture 4 d'aujourd'hui suit-elle la facture 3 d'aujourd'hui ?
- La facture 1 d'aujourd'hui suit-elle la facture 25 d'hier ?
- Peux-tu avoir des lignes vides entre les factures ?
Bref, les factures se suivent-elles ?
07/02/2009, 12h35
Fouine47

J'ai un fichier de base appelé facture, je le rempli, j'active la macro, un fichier excel se crée facture 070209 1.xls ainsi de suite... le numéro de la facture est dans la cellule B8 qui à chaque activation de la macro augmente d'un. Cette cellule permet de nommer le fichier avec la date.

Je souhaites lorsque je relance mon fichier de base retrouver le numéro de la dernière facture +1 en cellule B8 si je relance ce fichier le même jour si je lance le fichier un autre jour le compte de facture redémarre à 1.
07/02/2009, 13h20
ouskel'n'or

Donc, le rôle de la macro est de vérifier la date du dernier enregistrement puis, soit d'incrémenter le N° de facture si la date n'a pas changé, soit ré-initialiser le N° de facture à 1
Dans B8 tu n'as que le n° ou as-tu aussi la date ? Le mieux serait que tu aies les deux, soit dans la même cellule, soit dans des cellules différentes.
- On lit la date
- On la compare avec "aujourdhui"
Si elle n'a pas changé on incrémente B8,
Sinon on met 1 dans B8
Tu nous dis ce qu'il te manque ? ;)
07/02/2009, 14h08
Fouine47

Cette macro marche bien mais je n'arrive pas à avoir le dernier numéro d'enregistrement incrémenté qui s'affiche sur ma facture de base.

Si je quitte excel après avoir enregistré le fichier 070209 25.xls, je fais autre chose, je relance le même jour ma facture de base (et non le fichier 070209 25.xls) je souhaites que le dernier numéro d'enregistrement incrémenté s'affiche en cellule B8 pour reprendre mon travail. Lorsque que j'effectue cela j'ai ma facture de base typique qui s'ouvre et qui démarre à 1.

Merci pour tout
07/02/2009, 14h18
PPz78

Pour retrouver la dernière facture éditée, il serait préférable de les numéroter de la façon suivante : aaaammjj nn.xls: 20090125 nn.xls

De cette façon la dernière facture a le numéro le plus grand.
Est-ce acceptable pour toi ?
07/02/2009, 14h25
Fouine47

oui il n'y a aucun problème, tant que j'arrive à trouver une solution. après avoir modifier la nomination du fichier que dois je faire?

Si tu enregistres ta facture "de base", tu as en B8 le N° de la facture précédente. Si tu relis ce N°, tu peux l'incrémenter.
Si à cela tu ajoutes la date de la dernière facture dans la même facture "de base", tu peux vérifier s'il faut incrémenter ou ré-initialiser le compteur.
Quelle est la difficulté que tu rencontres ?
Relire la cellule B8 ? C'est "NoFacture = Range("B8").value" mais ça tu le sais puisque tu donnes ce N° à la facture que tu enregistres.
Incrémenter le N° lu ? C'est Range("B8").value = Range("B8").value + 1
Vérifier la date de la dernière facture (si elle est placée quelque part) ?
Je suppose la date de la dernière facture en B9
Code:

1 2 3 4 5 6 7 8 Sub test() If Date > CDbl(CDate(Range("b9"))) Then 'si aujourd'hui > Date enregistrée Range("B8") = 1 'on ré-initialise B8 Range("B9") = Date 'on enregistre la nouvelle date Else 'c'est le même jour que la facture précédente Range("B8").Value = Range("B8").Value + 1 'on incrémente B8 End If End Sub
Bon après-midi

Bonjour,
Si je lis bien to code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub save2()
 
ActiveWorkbook.SaveAs Filename:="C:\Users\Victor\Documents\BIWI\info\exercice\entrainement maison" & Range("E4")
Range("B9,A14:A24,E14:E24").ClearContents
    If Range("i1") = Date Then
        Range("b8") = Range("b8") + 1
    Else
        Range("b8") = 1
    End If
        Range("b9").Select
        Range("i1") = Date
End Sub

Tu vérifies la date en "I1" mais sur la feuille-facture que tu fournis cette date est en "F1" !!
Modifie ton code en conséquence.
A+

Voici une solution qui trouve la dernière facture dans le répertoire de stockage des factures.
Cela suppose que ce répertoire ne contient que des factures.
Comme les noms des fichiers ont été normalisés "Facture - aaaammjj nn.xls" la dernière est celle qui se classe en dernier par ordre alphabétique.
Il suffit ensuite de faire un traitement sue le nom du fichier pour en extraire les informations pertinentes.

Nota : cette routine a été testée sur un Mac, il convient d'adapter le chemin d'accès au répertoire

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
Sub Derniere_facture()
 
    Facture = Dir("iMac HD:Users:Pierre:Desktop:Factures:")
    Last_Facture = Facture
 
    Do Until Facture = ""
        If Facture > Last_Facture Then Last_Facture = Facture
        'MsgBox (Facture)
        Facture = Dir
    Loop
        'MsgBox ("Dernière facture : " & Last_Facture)
 
    ' Extraction de la date et du numéro
    ' Les noms des fichiers étant sous la forme "Facture - aaaammjj nn.xls"
    Année = Mid(Last_Facture, 11, 4)
    Mois = Mid(Last_Facture, 15, 2)
    Jour = Mid(Last_Facture, 17, 2)
    numéro_len = Len(Last_Facture) - 4 - 19
    numéro = Mid(Last_Facture, 20, numéro_len)
    MsgBox ("Année  : " & Année & Chr(13) & _
            "Mois   : " & Mois & Chr(13) & _
            "Jour   : " & Jour & Chr(13) & _
            "Numéro : " & numéro)
    Date_DerFac = DateSerial(Année, Mois, Jour)
    MsgBox ("Ou encore au format date : " & Date_DerFac)
End Sub

Bon dimanche
A+

08/02/2009, 14h19
Fouine47

Merci, j'essaye d'appliquer cela et je vous informe si cela marche pour moi.

Encore merci et bon dimanche.
11/02/2009, 01h22
AlainTech

Je pense qu'il y a juste une erreur de logique.
Il faut faire les choses dans cet ordre:
Incrémenter B8
Important: Enregistrer le fichier de base
Enregistrer sous le nouveau nom
Entrer les données de la facture
Enregistrer la facture modifiée

Le seul problème, avec cette méthode, c'est que la macro se retrouve dans le nouveau fichier.
Pour ma part, je ferais une copie de la feuille de facture dans un nouveau fichier.