Bonsoir Jack
Je t'envoie directemnt sur le fil de @Christophe@ (213.46.162.---) du 27-02-03 qui propose une petite macro que tu colles dans This workbook
Private Sub Workbook_Open()
Dim Compteur As Integer
Compteur = Range("A1").Value
Range("A1").Value = Compteur + 1
End Sub
Place 311999 dans la cellule A1, et tu obtiendras 312000 à la prochaine ouverture
Tu dois sauver le doc après chaque ouverture biensur.
Pour ajouter tu fais copie les quelques lignes ci-dessus, tu ouvres ton fichier, tu fais ATL + F11 dans la colonne de gauche tu devrais voir ThisWorkbook, tu double- cliques et tu colles le code dans la fenêtre de droite et le tour est joué
Ces explication sont de lui ... je n'ai modifié qu'en fonction de ta demande
Bonne soiré
Merci à @Christophe@ au passage
et Bon courage