probleme pour changer 1 chiffre dans une cellule

[jack]

bonjour

je susi entrain de chercher comment faire pour changer 1chiffre automatiquement a chaque ouverture du fichier
exemple; 312000 la 1 er ouverture
312001 a la deuxieme ouverture
312002 a la troisieme

ainsi de suite

je pense que l on peut le faire mais je n y arrive pas

merci de vos reponses

salutations jacques

 

[Gérard DEZAMIS]

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