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é