OVH Cloud OVH Cloud

Comment créer une incrémentation automatique à l'ouverture d'exc e.

2 réponses
Avatar
Karamasof
Bonjour,

Je cherche à incrémenter une valeur (un nombre ex: 00001) à chaque ouverture
du fichier excel.. Y'a t'il un moyen de faire cela??

Merci d'avance

2 réponses

Avatar
poy-poy
Bonjour Karamasol,

une solution serait de mettre ton nombre dans une des cellules de ton
fichier et de faire en Vba dans l'objet this_workbook une procédure
Worbook_open() avec comme seule instruction ajouter 1 à ta cellule. Toutefois
si le fichier est fermé sans être sauvé, le +1 disparaît, si tu veux le
garder même dans ce cas, il te faut une deuxième instruction dans ton code
pour sauver le ficher juste aprés.

Cordialement
Benjamin


Bonjour,

Je cherche à incrémenter une valeur (un nombre ex: 00001) à chaque ouverture
du fichier excel.. Y'a t'il un moyen de faire cela??

Merci d'avance


Avatar
Bouzou Le Clone
Hello

Dans le module ThisWorkbook de ton classeur :

Private Sub Workbook_Open()

With Range("Feuil1!A1")
.Value = .Value + 1
End With

End Sub

"Karamasof" a écrit dans le message de
news:
Bonjour,

Je cherche à incrémenter une valeur (un nombre ex: 00001) à chaque
ouverture

du fichier excel.. Y'a t'il un moyen de faire cela??

Merci d'avance