"TOOFA" <TOOFA @discussions.microsoft.com> a écrit dans le message de news:
j'aimerai avoir une numerotation automatique sur mes devis !!
je ne sais pas faire
JB
Bonjour,
http://cjoint.com/?iAqVOWgmna
Incrémente un numéro de facture Peut être utilisé en réseau(compteur.xls sur le serveur)
-Le compteur se trouve dans un classeur Compteur.xls dans la cellule A1: 5 -La macro affecte un numéro à la sauvegarde seulement et incrémente le compteur de 1 -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
Sub sauvegarde() ChDir ActiveWorkbook.Path Workbooks.Open Filename:="Compteur.xls" [A1] = [A1] + 1 ' incrémente le compteur compteur = [A1] ActiveWorkbook.Save ' sauvegarde compteur ActiveWorkbook.Close ActiveSheet.Buttons(1).Visible = False [E1] = compteur [E1].Interior.ColorIndex = 4 ActiveWorkbook.SaveAs Filename:="Facture" & compteur End Sub
JB
j'aimerai avoir une numerotation automatique sur mes devis !!
je ne sais pas faire
Bonjour,
http://cjoint.com/?iAqVOWgmna
Incrémente un numéro de facture
Peut être utilisé en réseau(compteur.xls sur le serveur)
-Le compteur se trouve dans un classeur Compteur.xls dans la cellule
A1: 5
-La macro affecte un numéro à la sauvegarde seulement et incrémente
le compteur de 1
-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
Sub sauvegarde()
ChDir ActiveWorkbook.Path
Workbooks.Open Filename:="Compteur.xls"
[A1] = [A1] + 1 ' incrémente le compteur
compteur = [A1]
ActiveWorkbook.Save ' sauvegarde compteur
ActiveWorkbook.Close
ActiveSheet.Buttons(1).Visible = False
[E1] = compteur
[E1].Interior.ColorIndex = 4
ActiveWorkbook.SaveAs Filename:="Facture" & compteur
End Sub
JB
j'aimerai avoir une numerotation automatique sur mes devis !!
Incrémente un numéro de facture Peut être utilisé en réseau(compteur.xls sur le serveur)
-Le compteur se trouve dans un classeur Compteur.xls dans la cellule A1: 5 -La macro affecte un numéro à la sauvegarde seulement et incrémente le compteur de 1 -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
Sub sauvegarde() ChDir ActiveWorkbook.Path Workbooks.Open Filename:="Compteur.xls" [A1] = [A1] + 1 ' incrémente le compteur compteur = [A1] ActiveWorkbook.Save ' sauvegarde compteur ActiveWorkbook.Close ActiveSheet.Buttons(1).Visible = False [E1] = compteur [E1].Interior.ColorIndex = 4 ActiveWorkbook.SaveAs Filename:="Facture" & compteur End Sub
JB
j'aimerai avoir une numerotation automatique sur mes devis !!
