Re,
ci joint la démo:
http://cjoint.com/?jbjpuvxYsF
il s'agissait de compter et de montrer dans un userform le nombre de fois où on ouvrait le classeur, sans être obligé d'utiliser un fichier auxiliaire:
Option Explicit
Private Sub Workbook_Open()
Dim visit
' Lit la valeur dans la base de registre
visit = GetSetting(appname:="demo", section:="visiteurs", key:="Nombre")
' Si aucune valeur n'est présente dans la base de registre ...
If visit = "" Then
'on affecte la valeur 1 à la variable visit (première visite)
visit = 1
Else
' sinon, on incrémente le Nbre de visites
visit = visit + 1
End If
' Ecrit la nouvelle valeur visit dans la base de registre
SaveSetting appname:="demo", section:="visiteurs", key:="Nombre", setting:=visit
' indique le nombre de visites dans userform
With visites
.compteur.Caption = visit
.Show
End With
End Sub
A toi d'adapter à ton besoin
Cordialement
Michel