Existe-t-il un moyen d'effectuer avec un macro la numération de facture (incrémentée) sur excel. Si quelqu'un peut m'aider, j'apprécirais beaucoup
JB
Bonsoir,
http://cjoint.com/?hywZxzFhfW
-Le compteur se trouve dans un onglet Compteur: 2006-04-007
-La macro affecte un numéro à la sauvegarde et incrémente le compteur de 1 -Le compteur est remis à 1 chaque mois -Le classeur est enregistré avec le nom Facturexxxx -Le bouton est caché après exécution pour que la macro ne puisse pas être exécutée 2 fois
Private Sub b_sauve_Click() compteur = Sheets("compteur").Range("a1") If Val(Mid(compteur, 6, 2)) = Month(Date) Then Sheets("compteur").Range("a1") = Left(compteur, 8) & Format(Val(Right(compteur, 3)) + 1, "000") Else Sheets("compteur").Range("a1") = Left(compteur, 5) & Format(Month(Date), "00") & "-001" End If ActiveWorkbook.Save ' sauvegarde modèle Me.b_sauve.Visible = False Range("E1") = Sheets("compteur").Range("a1") Range("E1").Interior.ColorIndex = 4 ActiveWorkbook.SaveAs Filename:="Facture" & Sheets("compteur").Range("a1") End Sub
Cordialement JB
Existe-t-il un moyen d'effectuer avec un macro la numération de facture (incrémentée) sur excel. Si quelqu'un peut m'aider, j'apprécirais beaucoup
Bonsoir,
http://cjoint.com/?hywZxzFhfW
-Le compteur se trouve dans un onglet Compteur: 2006-04-007
-La macro affecte un numéro à la sauvegarde et incrémente le
compteur de 1
-Le compteur est remis à 1 chaque mois
-Le classeur est enregistré avec le nom Facturexxxx
-Le bouton est caché après exécution pour que la macro ne puisse pas
être exécutée 2 fois
Private Sub b_sauve_Click()
compteur = Sheets("compteur").Range("a1")
If Val(Mid(compteur, 6, 2)) = Month(Date) Then
Sheets("compteur").Range("a1") = Left(compteur, 8) &
Format(Val(Right(compteur, 3)) + 1, "000")
Else
Sheets("compteur").Range("a1") = Left(compteur, 5) &
Format(Month(Date), "00") & "-001"
End If
ActiveWorkbook.Save ' sauvegarde modèle
Me.b_sauve.Visible = False
Range("E1") = Sheets("compteur").Range("a1")
Range("E1").Interior.ColorIndex = 4
ActiveWorkbook.SaveAs Filename:="Facture" &
Sheets("compteur").Range("a1")
End Sub
Cordialement JB
Existe-t-il un moyen d'effectuer avec un macro la numération de facture
(incrémentée) sur excel.
Si quelqu'un peut m'aider, j'apprécirais beaucoup
-Le compteur se trouve dans un onglet Compteur: 2006-04-007
-La macro affecte un numéro à la sauvegarde et incrémente le compteur de 1 -Le compteur est remis à 1 chaque mois -Le classeur est enregistré avec le nom Facturexxxx -Le bouton est caché après exécution pour que la macro ne puisse pas être exécutée 2 fois
Private Sub b_sauve_Click() compteur = Sheets("compteur").Range("a1") If Val(Mid(compteur, 6, 2)) = Month(Date) Then Sheets("compteur").Range("a1") = Left(compteur, 8) & Format(Val(Right(compteur, 3)) + 1, "000") Else Sheets("compteur").Range("a1") = Left(compteur, 5) & Format(Month(Date), "00") & "-001" End If ActiveWorkbook.Save ' sauvegarde modèle Me.b_sauve.Visible = False Range("E1") = Sheets("compteur").Range("a1") Range("E1").Interior.ColorIndex = 4 ActiveWorkbook.SaveAs Filename:="Facture" & Sheets("compteur").Range("a1") End Sub
Cordialement JB
Existe-t-il un moyen d'effectuer avec un macro la numération de facture (incrémentée) sur excel. Si quelqu'un peut m'aider, j'apprécirais beaucoup
Clément Marcotte
http://dj.joss.free.fr/faq.htm#numFacture
"Madeleine Boulianne" a écrit dans le message de news: %G9xg.85333$
Existe-t-il un moyen d'effectuer avec un macro la numération de facture (incrémentée) sur excel. Si quelqu'un peut m'aider, j'apprécirais beaucoup
http://dj.joss.free.fr/faq.htm#numFacture
"Madeleine Boulianne" <madeleine.boulianne@cgocable.ca> a écrit dans le
message de news: %G9xg.85333$hp.21297@read2.cgocable.net...
Existe-t-il un moyen d'effectuer avec un macro la numération de facture
(incrémentée) sur excel.
Si quelqu'un peut m'aider, j'apprécirais beaucoup