incrémentation sous excel 2007

Version imprimable

27/11/2009, 16h57
matthieu24

incrémentation sous excel 2007

bonjour à tous !!!

je cherche un code Vba pour créer une macro qui me permettrai de mettre à jour le numéro de facture sur une facture type (dont je vous fournis un exemple en pièce jointe)

je m'explique plus clairement, sur ce modèle qui est vierge et qui commence à 1 je rentre des données (noms, adresse, produits quantité ....) et j'enregistre sous un autre nom le fichier type ("facture_n° de facture), en l'occurence "facture 1".

ce que je voudrais c'est que quand je réouvre le classeur type, le numéro de facture se mette à jour automatiquement sur 2 et ainsi de suite à chaque fois que j'enregistre une facture et que je réouvre le fichier type après.

je pense être clair.

merci d'avance pour votre aide.

matthieu.

ps : je n'arrive pas a mettre la facture type en pièce jointe : c'est un fichier xlsm.
27/11/2009, 17h00
Invité

Bonjour et bienvenue sur le forum Office de DVP

Citation:

Envoyé par matthieu24

ps : je n'arrive pas a mettre la facture type en pièce jointe : c'est un fichier xlsm.

Il faut zipper ton fichier.

Philippe
27/11/2009, 17h49
matthieu24

1 pièce(s) jointe(s)

voila c'est fait !!!

Sans regarder le fichier :

Code:

1
2
3
4
5
6
Private Sub Workbook_Open()
    'Si le numéro de facture se trouve en A1
    Range("A1").Value = Range("A1").Value + 1
    'Ou [A1] = [A1] + 1
 
End Sub

ESVBA

28/11/2009, 14h35
matthieu24

merci beaucoup de ta réponse :)

le probleme c'est qu'elle ne tient pas compte du numéro de facture de la dernière facture enregistré.

Ce que je voudrais clairement, c'est qu'a l'ouverture de la facture type (et vierge) la cellule du n° de facture soit incrémenté de 1 (de facon automatique) par rapport au numéro de facture de la dernière facture enregistré.

Merci
28/11/2009, 14h47
pgz
Bonjour.

Si je comprends bien , tu n'as qu'un classeur qui fait office de modèle de facture et qui contient le code.
A mon avis, tu devrais couper en 2 :
- un classeur contenant le code = application outil
- un classeur qui contient le modèle de facture
D'ailleurs le modèle de facture pourrait aussi être un document Word.

Dans le classeur outil, dans une feuille de paramètres, éventuellement masquée, tu réserves une cellule au numéro de facture. Cette cellule oeut être nommée.

A chaque ouverture de facture (bouton 'nouvelle fature'), tu lis la cellule en question et tu l'écris dans la facture.
Quand tu enregistres la facture, tu incrémentes cette cellule d'1.

Nota : après édition, tu pourrais aussi enregistrer ta facture en pdf, non modifiable et passe les gestionnaires de messageries.

Cordialement,

PGZ
28/11/2009, 15h04
matthieu24

non j'ai en fait j'ai 1 classeur modèle (que tu peux regarder). ce classeur contient une macro nommé "enregistrer" (activable par un bouton du même nom).
Cette macro (enregistrer) permet "d'enregistrer sous" le modèle avec comme nom de fichier "facture_n° de facture". une fois cette macro executé je ferme donc excel completement. Et lorsque je réouvrirai le modèle, je voudrais que le contenu de la cellule numéro de facture soit incrémenté de 1 (automatiquement) par rapport au n° de facture du dernier fichier enregistré suite à l'utilisation de la macro "enregistrer".

j'espere etre clair.

merci de votre aide
28/11/2009, 15h10
ouskel'n'or

Dans ton modèle, que tu devras enregistrer après usage, ne peux-tu pas placer un compteur ?
Autre solution, un .txt que tu lis à l'ouverture du modèle et que tu incrémentes seulement lors de l'enregistrement ou de l'édition de la facture rédigée.
C'est d'ailleurs cette solution qui me paraît la plus pérenne.
28/11/2009, 15h23
matthieu24

merci de ton aide !!

en fait j'ai besoin d'un code vba qui me permettrai cette action !! comme un genre de macro qui s'execute a l'ouverture de la facture type et qui verifie automatiquement le numero de la dernière facture enregistré et qui rajoute +1 !!

merci

Bonjour,

A priori c'est normal avec votre code :
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub effacertout() Range("B9,A14:A24,E14:E24").ClearContents Range("B9").Select Range("B10") = Range("B10") + 1 ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\facture " & Range("b10") End Sub Sub enregistrer() ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\facture " & Range("b10") effacertout End Sub
Avec le code en bleu ci-dessus vous enregistrez votre fichier avec le N° de facture en cours, exemple "1".

Puis vous appelez la procédure "effacertout" dans laquelle vous incrémentez de +1 le N° de facture mais vous ne le sauvegardez pas ?

Sinon il faudrait ajouter la ligne en rouge dans cette procédure et le fichier à ouvrir serait toujours celui qui à le N° le plus élevé.

Il y a plusieurs solutions, comme par exemple dans :

Code:

Private Sub Workbook_Open()

Rechercher le fichier qui a le N° le plus élevé et là utiliser le code de la procédure "effacertout":
Code:

1 2 3 Range("B9,A14:A24,E14:E24").ClearContents Range("B9").Select Range("B10") = Range("B10") + 1
puisque vous écrivez :

Citation:

une fois cette macro exécutée je ferme donc excel complètement.

Si tu as fais le reste, créer un txt et incrémenter un n° de facture n'est pas le plus difficile

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
Sub FichierTexteLireAjouterEnregistrer()
Dim laderniere As String
    Close
    On Error Resume Next 'erreur si le fichier n'existe pas
    Do
        If Err <> 0 Then
            laderniere = "0"
            AjouterEnregistrer laderniere 'crée le fichier s'il n'existe pas
            On Error GoTo 0
        End If
        Open "c:\Numéro de facture.txt" For Input As #1
    Loop While Err <> 0
    While Not EOF(1)
        Line Input #1, laderniere
    Wend
    Close
    laderniere = Str(Val(laderniere) + 1)
    AjouterEnregistrer laderniere
 
    MsgBox laderniere 'et là tu récupères le N° incrémenté
End Sub
 
Sub AjouterEnregistrer(laderniere As String)
    Open "c:\Numéro de facture.txt" For Output As #1
    Print #1, laderniere
    Close
 
End Sub

Bon week-end

Edit
Le fait d'utiliser un fichier texte "annexe" évite d'avoir à enregistrer le modèle qui du coup peut être protégé en écriture afin de n'être pas enregistré avec la dernière facture réalisée.

Cette méthode évite en outre d'avoir à rechercher le N° de la dernière facture puisqu'il te donne le nouveau :mrgreen:

28/11/2009, 16h18
matthieu24

merci a vous deux pour votre aide !!

la reponse de jacques jean me convient mieux mais j'ai encore une question (désolé mais je suis un novice).

Je créé donc la ligne workbook_open (). jusque la ça va (si je me trompe pas c'est bien ce qui va permettre de déclencher cette macro à l'ouverture du classeur).
Ensuite tu me parle de "Rechercher le fichier qui a le N° le plus élevé" : c'est justement la que je bloque, comment lui faire rechercher le dernier fichier enregistré avec le numéro le plus élevé.

merci encore pour votre aide!!

En fait il y a une solution très simple, mais voir si elle vous convient :

Vous avez au départ un fichier "Facture_modele" qui correspond à votre fichier actuel, avec en B10 la valeur 1 et avec ces 2 procédures :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub effacertout() Application.DisplayAlerts = False Range("B9,A14:A24,E14:E24").ClearContents Range("B9").Select Range("B10") = Range("B10") + 1 ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\facture_modele" Application.DisplayAlerts = True End Sub Sub enregistrer() ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\facture " & Range("b10") effacertout End Sub
Vous ouvrez ce fichier et après mise à jour vous lancez la procédure.

Vous n'êtes même pas obligé de fermer le fichier, vous pouvez immédiatement créer une nouvelle facture, mais cela fonctionne évidemment aussi si vous fermez l'application et quand vous relancez.

29/11/2009, 02h38
matthieu24

Merci jacques jean !!! ta modif du code marche nikel !!!

juste une chose, peux tu m'expliquer ce que tu as rajouter : j'entends par la les "Application.DisplayAlerts = False" et les "Application.DisplayAlerts = true" !!

en attente d'explication ...

merci beaucoup ;) ;)
29/11/2009, 09h54
ouskel'n'or

Lors de la fermeture, de la création d'un classeur ou lors de plein d'autres événements, Excel pose des questions "Voulez-vous ? Oui/non... " etc.

Citation:

"Application.DisplayAlerts = False"

sert à suspendre ces questions. On utilise cette instruction quand on sait ce qu'on fait et qu'on ne veut pas qu'Excel s'en mêle ;)
Bonne journée
29/11/2009, 11h25
matthieu24

merci beaucoup pour votre aide !!!

le sujet est clos.

merci encore ;) ;)
01/12/2009, 08h27
matthieu24

Désolé les gars mais le sujet est réouvert car j'avais oublié une donnée lors de mon explication.

En effet avec la solution de jacques jean, mon fichier modèle est enregistré avec le prochain numéro de facture à utiliser (si la dernière facture créé est la 18 mon modèle s'enregistre avec le numéro 19, parfait !!)

par contre si je supprime la facture 18 de mon dossier, mon modèle restera numéroté 19, alors que je voudrais qu'il soit numéroté 18 en remplacement du fichier 18 supprimé. De même sorte que si je supprime la facture 15 et la facture 18 du dossier, j'aimerais bien qu'a l'ouverture du modèle, celui-ci me propose de partir sur la n°15 ou la N°18.

merci d'avance pour votre aide !!!

matthieu
01/12/2009, 11h07
Invité

Bonjour,

Bien sûr c'est faisable. Mais avant de vous proposer une des solutions :

A moins que les règles aient beaucoup changé j'avais connaissance de celles-ci :
Citation:

Citation:

La numérotation des factures est réglementée par la loi. On peut citer notamment le Code de Commerce et le Code Général des Impôts (textes sur la TVA qui s'appliquent à toutes les factures même celles des non assujettis).

On y parle d'une numérotation dans une suite ininterrompue (on dit aussi par itération). L'idée est de ne pas pouvoir ajouter de factures et de ne pas avoir de doubles.

Donc, à priori, les trous (factures annulées et détruites) ne devraient pas exister.

On établissait automatiquement un avoir, on dit aussi facture d'avoir, (partiel(le) ou total(e)).
01/12/2009, 11h43
aalex_38

Bonjour à tous,

Citation:

On établissait automatiquement un avoir, on dit aussi facture d'avoir, (partiel(le) ou total(e)).

Je rajouterai qu'en général on ne supprime pas une facture ni si elle est close ni si elle est modifiée, on fait une extourne.
01/12/2009, 13h31
matthieu24

je comprends vos messages mais je suis étudiant et je ne suis pas commerçant !!! je n'ai aucunement l'intention de magouiller ou de faire de fausse facture !!!

merci d'avance pour votre aide !!!

je veux pas aller en prison ...
01/12/2009, 13h34
aalex_38

Citation:

je n'ai aucunement l'intention de magouiller ou de faire de fausse facture !!!

Je ne répondais pas à cette question dans ce sens, il est en tout cas d'usage en comptabilité de remplacer une opération par une autre en "flagant" cette opération et sans la supprimer, c'est tout.

La réponse de jacques_jean me parait de plus judicieuse, car réutiliser les mêmes numéros pour 2 factures différentes, ça ne me semble pas très intéressant !
01/12/2009, 14h03
Invité

matthieu24

Citation:

je comprends vos messages mais je suis étudiant et je ne suis pas commerçant !!! je n'ai aucunement l'intention de magouiller ou de faire de fausse facture !!!

merci d'avance pour votre aide !!!

je veux pas aller en prison ...

Bien évidemment, que ce soit Aalex_38 ou moi-même, nous n'avons jamais pensé cela.

Mais comme vous êtes étudiant et non commerçant ou artisan, on peut donc penser que pour cette petite application vous ne serez pas l'utilisateur ?

Alors à qui va-t-elle servir ?

Mais je ne suis ni expert-comptable ni contrôleur fiscal, alors dès que je serais rentré, je regarde votre problème si vous n'avez pas d'autres réponses d'ici là.
01/12/2009, 15h55
matthieu24

Pour tout vous dire, c'est pour un exercice qui peut me rapporter des points au prochain partiel donc voila !!!

La solution la plus simple serait d'enregistrer le n° des factures annulées dans la feuille "Facture" du fichier "Facture_modele" et en colonne "I".

Pour que cela ne s'imprime pas vous définissez une zone d'impression par exemple "A1:G28".

En "I1" vous tapez : Factures annulées puis à partir de "I2" vous taperez les N° de factures annulées.

C'est une solution simple pour ne pas dire simpliste, mais comme en dehors de la numérotation tout est fait en manuel, je ne pense pas utile de compliquer.

Le code :

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
Option Explicit
Dim Numchg As Byte, Dl&
Sub effacertout()
Application.DisplayAlerts = False
    Range("B9,A14:A24,E14:E24").ClearContents
    Range("B9").Select
    Range("B10") = Range("B10") + 1
        If Numchg = 2 Then
        Range("I2").ClearContents
        ElseIf Numchg = 3 Then
        Range("I2").ClearContents
        Range("I3:I" & Dl).Select
        Selection.Copy
        Range("I2").Select
        ActiveSheet.Paste
        Range("I" & Dl).ClearContents
        End If
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\facture_modele"
Application.DisplayAlerts = True
End Sub
 
Sub enregistrer()
 
Dl = Cells(Columns(1).Cells.Count, 9).End(xlUp).Row
    If Dl = 1 Then
    ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\facture " & Range("b10")
    Numchg = 1
    effacertout
    Exit Sub
    ElseIf Dl = 2 Then
    ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\facture " & Range("i2")
    Numchg = 2
    Exit Sub
    Else
    ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\facture " & Range("i2")
    Numchg = 3
    End If
End Sub

01/12/2009, 19h19
matthieu24

merci jacques jean de votre réponse !!! votre solution fonctionne tout à fait et je vous en remercie !! n'y a t-il pas une solution qui permet de mettre à jour le numéro de facture automatiquement sans avoir à entrer moi-même les factures supprimées. Comme un genre de code qui verifie dans le dossier le numéro de facture le plus élevé et ajuste le numéro de facture du modèle en fonction (automatiquement bien sur)

désolé d'être chiant mais je cherche à rendre la chose la plus automatique possible.

merci d'avance.

Bonsoir,

Ci-dessous le code qui devrait fonctionner :

-remplacez éventuellement le contenu de la variable chemin
-les N° des factures seront enregistrés sous la forme :

Facture 0001, Facture 0002 .....Facture 00010 etc.
Car si on garde la numérotation que vous aviez prévue à l'origine, cela ne peut fonctionner :

Excel triera les noms : Facture 1, Facture 11, Facture 12, Facture 2 etc.

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
Option Explicit
Dim Fs, Chemin$, Fich$, num!, numt$, numpre!, lg As Byte
 
Sub Enregister()
Set Fs = Application.FileSearch
Chemin = "C:\Factures\"
With Fs
    .LookIn = Chemin
    .Filename = "Facture *.xls"
    If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) = 0 Then
    MsgBox "Aucun fichier correspondant trouvé dans le répertoire indiqué."
    Exit Sub
    End If
End With
Application.DisplayAlerts = False
Fich = Dir(Chemin & "Facture *.xls")
numpre = 0
    Do While Fich <> ""
    numpre = numpre + 1
    num = Mid(Fich, 9, 4)
    If num > numpre Then
    lg = Len(CStr(num))
    numt = Left("000", 4 - lg) & CStr(numpre)
    ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\facture " & numt
    Range("B9,A14:A24,E14:E24").ClearContents
    ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\facture_modele"
    Exit Sub
    End If
 
Fich = Dir
Loop
 
num = Range("b10")
lg = Len(CStr(num))
numt = Left("000", 4 - lg) & CStr(num)
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\facture " & numt
Range("B9,A14:A24,E14:E24").ClearContents
Range("B10") = Range("B10") + 1
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\facture_modele"
Application.DisplayAlerts = True
End Sub

08/12/2009, 13h04
matthieu24

Merci beaucoup jacques jean de ta réponse. cela fonctionne parfaitement !!

merci encore