base de registre

[Silene]

Bonjour,
Je voudrai faire un petit programme pour que mon fichier ne soit pas ouvert plus de 5 fois sur un autre ordinateur en utilisant la base de registre:

if Application.OrganizationName <> "FR"
cpt = GetSetting(appname:="LFO_APP", _
section:="nom du fichier", key:="1")
SaveSetting "LFO_APP", "GestPlanningCondi", "1", 5
End If
If cpt <= 0 Then
...

J'ai essayé de la façon que j'ai décrite au dessus mais cela ne fonctionne pas correctement.
existe t-il un exemple?
Merci de me répondre.
Silene

 

[Zon]

Salut,

Const Appli$ = "LFO_APP"
Const Section$ = "GestPlanningCondi"
Const CleF$ = "NombreOuverture"

à mattre dans workbook_open

if Application.OrganizationName <> "FR" then
Dim Cpt
Cpt = GetAllSettings(Appli, Section)
Debug.Print Cpt(0, 1)
If Not IsArray(Cpt) Then
SaveSetting Appli, Section, CleF, 1
Exit Sub
End If
If Cpt(0, 1) > 5 Then ThisWorkbook.Close
SaveSetting Appli, Section, CleF, Cpt(0, 1) + 1

Pour effacer toute entrée dans la bdr deletesetting appli,section

A+++

Lien supprimé

Lien supprimé

 

[Zon]

Re ,

oups le debug.print est en trop.

A+++