Incrémentation automatique

Bonjour !

Je ne suis pas un grand pro, mais j'ai utilisé cette méthode :
initialiser le compteur dans une cellule inutilisée (p.e. ZZ100)
Puis dans une macro Workbook_Open
Range("ZZ100).value=Range("ZZ100)+1

Thierryp

Bonjour,

quelle est le code VBA nécessaire à l'Incrémentation automatique d'un
compteur à l'ouverture du fichier.

Merci
Bye bye

Bonjour !

J'ai eu ce problème et voici ma soluce (pas d'un grand pro mais ça marche!)
Initialiser la valeur du compteur dans une cellule inutilisée (p.e. ZZ100)
Puis dans un WorkBook_Open :
range("ZZ100").value=range("ZZ100").value+1

@+ thierryp :-))

Bonjour,

quelle est le code VBA nécessaire à l'Incrémentation automatique d'un
compteur à l'ouverture du fichier.

Merci
Bye bye

Bonjour,

Une piste en utilisant un nom caché.
Vous pouvez changer le nom "PMO_increment" par un nom
de votre choix mais je vous conseille, pour éviter un conflit
avec un nom existant, de lui trouver un nom bien chinois.

'***************
Private Sub Workbook_Open()
Dim N As Name
On Error Resume Next
Set N = Names("PMO_increment")
If N Is Nothing Then
Set N = ThisWorkbook.Names.Add( _
Name:="PMO_increment", _
RefersTo:=0, _
Visible:úlse)
End If
Set N = ThisWorkbook.Names.Add( _
Name:="PMO_increment", _
RefersTo:=CLng(Mid(N.Value, 2)) + 1, _
Visible:úlse)
MsgBox "Compteur= " & Mid(N.Value, 2)
End Sub
'***************

Cordialement.
--
PMO
Patrick Morange

Bonjour,

quelle est le code VBA nécessaire à l'Incrémentation automatique d'un
compteur à l'ouverture du fichier.

Merci
Bye bye

Bonjour

Est ce que ce code convient ?

Public Const ouverture As Integer = 1

Sub auto_open()
' Affiche le compteur
MsgBox ouverture
' incrémente la valeur du compteur
ActiveWorkbook.VBProject.VBComponents("Module1").CodeModule.ReplaceLine
1, "Public const ouverture as integer = " & ouverture + 1
End Sub

Bonjour,

quelle est le code VBA nécessaire à l'Incrémentation automatique d'un
compteur à l'ouverture du fichier.

Merci
Bye bye

Salut
une autre solution encore
après la cellule non utilisée ( encore qu'en utilisant une case trop loin
dans le bas tu vas augmenter inutilement la taille de ton fichier
car tu ajoute en même temps les ligne et les colonnes qui la séparent de A1)
Après le Nom caché...
Après la ligne de code dans l'éditeur visual basic

Je te propose les propriétés personnalisées du document.

La procédure peut être choisie entre le détournement d'une Builtinproperties
(à choisir dans la liste de l'aide)

Moi, je préfere la création d'une propriété personnalisée
ici nommée "Projet"
Attention il faut la créer à la Main avec une valeur = 0
ebnsuite tu y accède à chaques ouverture par :

ThisWorkbook.CustomDocumentProperties("Projet").Value
C'est juste une autre possibilité...

Crdlmt
Red Rick


"JLR" <JLR@discussions.microsoft.com> a écrit dans le message de news:
153A8865-16EB-4E9A-A601-3AAEC2778700@microsoft.com...

Bonjour,

quelle est le code VBA nécessaire à l'Incrémentation automatique d'un
compteur à l'ouverture du fichier.

Merci
Bye bye