Numérotation automatique d'une facture

Soit la cellule A1 de la Feuil1 ayant le numéro
Mets dans le ThisWorkbook du classeur ce code :

Private Sub workbook_open()
Sheets("Feuil1").Range("A1") = Format(Date, "mm/yy") & "/" &
Split(Sheets("Feuil1").Range("A1"), "/")(2) + 1
End Sub

A chaque ouverture la cellule A1 s'incrémentera de 1 avec le mois et l'année
en cours

Celà devrait convenir

Dis moi !!!!

Merci de ta réponse, mais je teste et dès la première ligne j'ai une erreur
de syntaxe, "attendu une expression" ???

J'ai celle ci qui fonctionne super pour un nombre pur:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Range("no_facture").Value = Range("no_facture").Value + 1
End Sub

je ne dois pas être trop loin, il me manque ce format date...
Peut être cela peut-il t'orienter vers une autre piste???

NB:Je veux par contre de préférence rester sur du Workbook_Open et pas sur
du Before_Save

Merci Merci



"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de
news:84865102-FAD0-4AFC-9B54-E227A106B0EB@microsoft.com...

Soit la cellule A1 de la Feuil1 ayant le numéro
Mets dans le ThisWorkbook du classeur ce code :

Private Sub workbook_open()
Sheets("Feuil1").Range("A1") = Format(Date, "mm/yy") & "/" &
Split(Sheets("Feuil1").Range("A1"), "/")(2) + 1
End Sub

A chaque ouverture la cellule A1 s'incrémentera de 1 avec le mois et
l'année
en cours

Celà devrait convenir

Dis moi !!!!

bonjour Mamiwata,

m = Format(Date, "mm")
a = Format(Date, "yy")
no = Split(Range("no_facture"), "/")(2) + 1
Range("no_facture") = m & "/" & a & "/" & no

isabelle

Mamiwata a écrit :

Merci de ta réponse, mais je teste et dès la première ligne j'ai une
erreur de syntaxe, "attendu une expression" ???

J'ai celle ci qui fonctionne super pour un nombre pur:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Range("no_facture").Value = Range("no_facture").Value + 1
End Sub

je ne dois pas être trop loin, il me manque ce format date...
Peut être cela peut-il t'orienter vers une autre piste???

NB:Je veux par contre de préférence rester sur du Workbook_Open et pas
sur du Before_Save

Merci Merci



"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de
news:84865102-FAD0-4AFC-9B54-E227A106B0EB@microsoft.com...

Soit la cellule A1 de la Feuil1 ayant le numéro
Mets dans le ThisWorkbook du classeur ce code :

Private Sub workbook_open()
Sheets("Feuil1").Range("A1") = Format(Date, "mm/yy") & "/" &
Split(Sheets("Feuil1").Range("A1"), "/")(2) + 1
End Sub

A chaque ouverture la cellule A1 s'incrémentera de 1 avec le mois et
l'année
en cours

Celà devrait convenir

Dis moi !!!!

Désolée Isabelle, ce n'est pas assez clair pour moi...
Peux-tu préciser dans quel sens mettre quoi ou ne pas mettre?

Merci


"isabelle" <i@v> a écrit dans le message de
news:%23AFLI%23a9JHA.1252@TK2MSFTNGP04.phx.gbl...

bonjour Mamiwata,

m = Format(Date, "mm")
a = Format(Date, "yy")
no = Split(Range("no_facture"), "/")(2) + 1
Range("no_facture") = m & "/" & a & "/" & no

isabelle

Mamiwata a écrit :

Merci de ta réponse, mais je teste et dès la première ligne j'ai une
erreur de syntaxe, "attendu une expression" ???

J'ai celle ci qui fonctionne super pour un nombre pur:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Range("no_facture").Value = Range("no_facture").Value + 1
End Sub

je ne dois pas être trop loin, il me manque ce format date...
Peut être cela peut-il t'orienter vers une autre piste???

NB:Je veux par contre de préférence rester sur du Workbook_Open et pas
sur du Before_Save

Merci Merci



"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de
news:84865102-FAD0-4AFC-9B54-E227A106B0EB@microsoft.com...

Soit la cellule A1 de la Feuil1 ayant le numéro
Mets dans le ThisWorkbook du classeur ce code :

Private Sub workbook_open()
Sheets("Feuil1").Range("A1") = Format(Date, "mm/yy") & "/" &
Split(Sheets("Feuil1").Range("A1"), "/")(2) + 1
End Sub

A chaque ouverture la cellule A1 s'incrémentera de 1 avec le mois et
l'année
en cours

Celà devrait convenir

Dis moi !!!!

bonjour Mamiwata,

tu mets les lignes de code à l'intérieur de la macro événementielle,
si je reprend ton exemple :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Dim m As String, a As String, no As Integer
m = Format(Date, "mm")
a = Format(Date, "yy")
no = Split(Range("no_facture"), "/")(2) + 1
Range("no_facture") = m & "/" & a & "/" & no
End Sub

isabelle

Mamiwata a écrit :

Désolée Isabelle, ce n'est pas assez clair pour moi...
Peux-tu préciser dans quel sens mettre quoi ou ne pas mettre?

Merci


"isabelle" <i@v> a écrit dans le message de
news:%23AFLI%23a9JHA.1252@TK2MSFTNGP04.phx.gbl...

bonjour Mamiwata,

m = Format(Date, "mm")
a = Format(Date, "yy")
no = Split(Range("no_facture"), "/")(2) + 1
Range("no_facture") = m & "/" & a & "/" & no

isabelle

Mamiwata a écrit :

Merci de ta réponse, mais je teste et dès la première ligne j'ai une
erreur de syntaxe, "attendu une expression" ???

J'ai celle ci qui fonctionne super pour un nombre pur:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Range("no_facture").Value = Range("no_facture").Value + 1
End Sub

je ne dois pas être trop loin, il me manque ce format date...
Peut être cela peut-il t'orienter vers une autre piste???

NB:Je veux par contre de préférence rester sur du Workbook_Open et
pas sur du Before_Save

Merci Merci



"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de
news:84865102-FAD0-4AFC-9B54-E227A106B0EB@microsoft.com...

Soit la cellule A1 de la Feuil1 ayant le numéro
Mets dans le ThisWorkbook du classeur ce code :

Private Sub workbook_open()
Sheets("Feuil1").Range("A1") = Format(Date, "mm/yy") & "/" &
Split(Sheets("Feuil1").Range("A1"), "/")(2) + 1
End Sub

A chaque ouverture la cellule A1 s'incrémentera de 1 avec le mois
et l'année
en cours

Celà devrait convenir

Dis moi !!!!

ps/

la cellule "no_facture" doit être préalablement renseigner avec la
valeur 06/25/01

isabelle

Mamiwata a écrit :

Désolée Isabelle, ce n'est pas assez clair pour moi...
Peux-tu préciser dans quel sens mettre quoi ou ne pas mettre?

Merci


"isabelle" <i@v> a écrit dans le message de
news:%23AFLI%23a9JHA.1252@TK2MSFTNGP04.phx.gbl...

bonjour Mamiwata,

m = Format(Date, "mm")
a = Format(Date, "yy")
no = Split(Range("no_facture"), "/")(2) + 1
Range("no_facture") = m & "/" & a & "/" & no

isabelle

Mamiwata a écrit :

Merci de ta réponse, mais je teste et dès la première ligne j'ai une
erreur de syntaxe, "attendu une expression" ???

J'ai celle ci qui fonctionne super pour un nombre pur:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Range("no_facture").Value = Range("no_facture").Value + 1
End Sub

je ne dois pas être trop loin, il me manque ce format date...
Peut être cela peut-il t'orienter vers une autre piste???

NB:Je veux par contre de préférence rester sur du Workbook_Open et
pas sur du Before_Save

Merci Merci



"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de
news:84865102-FAD0-4AFC-9B54-E227A106B0EB@microsoft.com...

Soit la cellule A1 de la Feuil1 ayant le numéro
Mets dans le ThisWorkbook du classeur ce code :

Private Sub workbook_open()
Sheets("Feuil1").Range("A1") = Format(Date, "mm/yy") & "/" &
Split(Sheets("Feuil1").Range("A1"), "/")(2) + 1
End Sub

A chaque ouverture la cellule A1 s'incrémentera de 1 avec le mois
et l'année
en cours

Celà devrait convenir

Dis moi !!!!

Désolée, mais sans succés.
je retenterai plus tard..
Merci


"isabelle" <i@v> a écrit dans le message de
news:%23PrtBPb9JHA.1252@TK2MSFTNGP04.phx.gbl...

bonjour Mamiwata,

tu mets les lignes de code à l'intérieur de la macro événementielle,
si je reprend ton exemple :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Dim m As String, a As String, no As Integer
m = Format(Date, "mm")
a = Format(Date, "yy")
no = Split(Range("no_facture"), "/")(2) + 1
Range("no_facture") = m & "/" & a & "/" & no
End Sub

isabelle

Mamiwata a écrit :

Désolée Isabelle, ce n'est pas assez clair pour moi...
Peux-tu préciser dans quel sens mettre quoi ou ne pas mettre?

Merci


"isabelle" <i@v> a écrit dans le message de
news:%23AFLI%23a9JHA.1252@TK2MSFTNGP04.phx.gbl...

bonjour Mamiwata,

m = Format(Date, "mm")
a = Format(Date, "yy")
no = Split(Range("no_facture"), "/")(2) + 1
Range("no_facture") = m & "/" & a & "/" & no

isabelle

Mamiwata a écrit :

Merci de ta réponse, mais je teste et dès la première ligne j'ai une
erreur de syntaxe, "attendu une expression" ???

J'ai celle ci qui fonctionne super pour un nombre pur:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Range("no_facture").Value = Range("no_facture").Value + 1
End Sub

je ne dois pas être trop loin, il me manque ce format date...
Peut être cela peut-il t'orienter vers une autre piste???

NB:Je veux par contre de préférence rester sur du Workbook_Open et pas
sur du Before_Save

Merci Merci



"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de
news:84865102-FAD0-4AFC-9B54-E227A106B0EB@microsoft.com...

Soit la cellule A1 de la Feuil1 ayant le numéro
Mets dans le ThisWorkbook du classeur ce code :

Private Sub workbook_open()
Sheets("Feuil1").Range("A1") = Format(Date, "mm/yy") & "/" &
Split(Sheets("Feuil1").Range("A1"), "/")(2) + 1
End Sub

A chaque ouverture la cellule A1 s'incrémentera de 1 avec le mois et
l'année
en cours

Celà devrait convenir

Dis moi !!!!

bonjour Mamiwata,

le fichier qui sert à tester la macro contient t'il une cellule nommée
"no_facture" ?
est ce que tu as, au préalable, renseigner la cellule "no_facture" avec
la valeur 06/25/01 par exemple ?
as-tu copier la macro sur la page code de ThisWorkBook ?
si tu as répondu oui à ces 3 questions, que se passe t'il lorsque tu
enregistre le classeur ?
y a t'il un message d'erreur ?

isabelle

Mamiwata a écrit :

Désolée, mais sans succés.
je retenterai plus tard..
Merci


"isabelle" <i@v> a écrit dans le message de
news:%23PrtBPb9JHA.1252@TK2MSFTNGP04.phx.gbl...

bonjour Mamiwata,

tu mets les lignes de code à l'intérieur de la macro événementielle,
si je reprend ton exemple :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Dim m As String, a As String, no As Integer
m = Format(Date, "mm")
a = Format(Date, "yy")
no = Split(Range("no_facture"), "/")(2) + 1
Range("no_facture") = m & "/" & a & "/" & no
End Sub

isabelle

Mamiwata a écrit :

Désolée Isabelle, ce n'est pas assez clair pour moi...
Peux-tu préciser dans quel sens mettre quoi ou ne pas mettre?

Merci


"isabelle" <i@v> a écrit dans le message de
news:%23AFLI%23a9JHA.1252@TK2MSFTNGP04.phx.gbl...

bonjour Mamiwata,

m = Format(Date, "mm")
a = Format(Date, "yy")
no = Split(Range("no_facture"), "/")(2) + 1
Range("no_facture") = m & "/" & a & "/" & no

isabelle

Mamiwata a écrit :

Merci de ta réponse, mais je teste et dès la première ligne j'ai
une erreur de syntaxe, "attendu une expression" ???

J'ai celle ci qui fonctionne super pour un nombre pur:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel
As Boolean)
Range("no_facture").Value = Range("no_facture").Value + 1
End Sub

je ne dois pas être trop loin, il me manque ce format date...
Peut être cela peut-il t'orienter vers une autre piste???

NB:Je veux par contre de préférence rester sur du Workbook_Open et
pas sur du Before_Save

Merci Merci



"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de
news:84865102-FAD0-4AFC-9B54-E227A106B0EB@microsoft.com...

Soit la cellule A1 de la Feuil1 ayant le numéro
Mets dans le ThisWorkbook du classeur ce code :

Private Sub workbook_open()
Sheets("Feuil1").Range("A1") = Format(Date, "mm/yy") & "/" &
Split(Sheets("Feuil1").Range("A1"), "/")(2) + 1
End Sub

A chaque ouverture la cellule A1 s'incrémentera de 1 avec le mois
et l'année
en cours

Celà devrait convenir

Dis moi !!!!

Oui aux trois questions, il se passe effectivement quelque chose, mais le
format ne va pas il me donne 09/06/2001....je tourne en rond...

à quoi correspondent ces 06/25/01?

Rereremerci Isabelle


"isabelle" <i@v> a écrit dans le message de
news:OzH7tVc9JHA.5040@TK2MSFTNGP04.phx.gbl...

bonjour Mamiwata,

le fichier qui sert à tester la macro contient t'il une cellule nommée
"no_facture" ?
est ce que tu as, au préalable, renseigner la cellule "no_facture" avec la
valeur 06/25/01 par exemple ?
as-tu copier la macro sur la page code de ThisWorkBook ?
si tu as répondu oui à ces 3 questions, que se passe t'il lorsque tu
enregistre le classeur ?
y a t'il un message d'erreur ?

isabelle

Mamiwata a écrit :

Désolée, mais sans succés.
je retenterai plus tard..
Merci


"isabelle" <i@v> a écrit dans le message de
news:%23PrtBPb9JHA.1252@TK2MSFTNGP04.phx.gbl...

bonjour Mamiwata,

tu mets les lignes de code à l'intérieur de la macro événementielle,
si je reprend ton exemple :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Dim m As String, a As String, no As Integer
m = Format(Date, "mm")
a = Format(Date, "yy")
no = Split(Range("no_facture"), "/")(2) + 1
Range("no_facture") = m & "/" & a & "/" & no
End Sub

isabelle

Mamiwata a écrit :

Désolée Isabelle, ce n'est pas assez clair pour moi...
Peux-tu préciser dans quel sens mettre quoi ou ne pas mettre?

Merci


"isabelle" <i@v> a écrit dans le message de
news:%23AFLI%23a9JHA.1252@TK2MSFTNGP04.phx.gbl...

bonjour Mamiwata,

m = Format(Date, "mm")
a = Format(Date, "yy")
no = Split(Range("no_facture"), "/")(2) + 1
Range("no_facture") = m & "/" & a & "/" & no

isabelle

Mamiwata a écrit :

Merci de ta réponse, mais je teste et dès la première ligne j'ai une
erreur de syntaxe, "attendu une expression" ???

J'ai celle ci qui fonctionne super pour un nombre pur:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Range("no_facture").Value = Range("no_facture").Value + 1
End Sub

je ne dois pas être trop loin, il me manque ce format date...
Peut être cela peut-il t'orienter vers une autre piste???

NB:Je veux par contre de préférence rester sur du Workbook_Open et
pas sur du Before_Save

Merci Merci



"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de
news:84865102-FAD0-4AFC-9B54-E227A106B0EB@microsoft.com...

Soit la cellule A1 de la Feuil1 ayant le numéro
Mets dans le ThisWorkbook du classeur ce code :

Private Sub workbook_open()
Sheets("Feuil1").Range("A1") = Format(Date, "mm/yy") & "/" &
Split(Sheets("Feuil1").Range("A1"), "/")(2) + 1
End Sub

A chaque ouverture la cellule A1 s'incrémentera de 1 avec le mois et
l'année
en cours

Celà devrait convenir

Dis moi !!!!

Ça y est!!!!!!
ENFIN....
du coup je sais plus si si j'ai mis dans ma cellule 25/06/100 et ça
marche....
Je reessaye, je suis trop contente, merci Isabelle...


"Mamiwata" <Mamiwata@gmx.net> a écrit dans le message de
news:e32spfc9JHA.1380@TK2MSFTNGP02.phx.gbl...

Oui aux trois questions, il se passe effectivement quelque chose, mais le
format ne va pas il me donne 09/06/2001....je tourne en rond...

à quoi correspondent ces 06/25/01?

Rereremerci Isabelle


"isabelle" <i@v> a écrit dans le message de
news:OzH7tVc9JHA.5040@TK2MSFTNGP04.phx.gbl...

bonjour Mamiwata,

le fichier qui sert à tester la macro contient t'il une cellule nommée
"no_facture" ?
est ce que tu as, au préalable, renseigner la cellule "no_facture" avec
la valeur 06/25/01 par exemple ?
as-tu copier la macro sur la page code de ThisWorkBook ?
si tu as répondu oui à ces 3 questions, que se passe t'il lorsque tu
enregistre le classeur ?
y a t'il un message d'erreur ?

isabelle

Mamiwata a écrit :

Désolée, mais sans succés.
je retenterai plus tard..
Merci


"isabelle" <i@v> a écrit dans le message de
news:%23PrtBPb9JHA.1252@TK2MSFTNGP04.phx.gbl...

bonjour Mamiwata,

tu mets les lignes de code à l'intérieur de la macro événementielle,
si je reprend ton exemple :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Dim m As String, a As String, no As Integer
m = Format(Date, "mm")
a = Format(Date, "yy")
no = Split(Range("no_facture"), "/")(2) + 1
Range("no_facture") = m & "/" & a & "/" & no
End Sub

isabelle

Mamiwata a écrit :

Désolée Isabelle, ce n'est pas assez clair pour moi...
Peux-tu préciser dans quel sens mettre quoi ou ne pas mettre?

Merci


"isabelle" <i@v> a écrit dans le message de
news:%23AFLI%23a9JHA.1252@TK2MSFTNGP04.phx.gbl...

bonjour Mamiwata,

m = Format(Date, "mm")
a = Format(Date, "yy")
no = Split(Range("no_facture"), "/")(2) + 1
Range("no_facture") = m & "/" & a & "/" & no

isabelle

Mamiwata a écrit :

Merci de ta réponse, mais je teste et dès la première ligne j'ai une
erreur de syntaxe, "attendu une expression" ???

J'ai celle ci qui fonctionne super pour un nombre pur:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Range("no_facture").Value = Range("no_facture").Value + 1
End Sub

je ne dois pas être trop loin, il me manque ce format date...
Peut être cela peut-il t'orienter vers une autre piste???

NB:Je veux par contre de préférence rester sur du Workbook_Open et
pas sur du Before_Save

Merci Merci



"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de
news:84865102-FAD0-4AFC-9B54-E227A106B0EB@microsoft.com...

Soit la cellule A1 de la Feuil1 ayant le numéro
Mets dans le ThisWorkbook du classeur ce code :

Private Sub workbook_open()
Sheets("Feuil1").Range("A1") = Format(Date, "mm/yy") & "/" &
Split(Sheets("Feuil1").Range("A1"), "/")(2) + 1
End Sub

A chaque ouverture la cellule A1 s'incrémentera de 1 avec le mois
et l'année
en cours

Celà devrait convenir

Dis moi !!!!