[VBA Excel] Mémoire qui tienne à l'enregistr. Fermé

Question

Bonjour,

J'aimerai savoir s'il existe sur Excel, une manière de lui laisser une information, par le biais de VBA, qui restera sauvegardée malgré l'enregistrement du fichier et sa fermeture ? 

... ou bien est-on obligé de rentrer notre donnée dans une cellule afin qu'Excel puisse la réutiliser?

Merci d'avance aux connaisseurs :)

lermite222 · Answer

Bonjour,
... ou bien est-on obligé de rentrer notre donnée dans une cellule afin qu'Excel puisse la réutiliser? 
J'ai bien peur que ce ne soit la seule solution valable, reste un fichier à part mais un peu tirer par les cheveux.
A+

michel_m · Answer

Bonjour Saian, lermite,

Saian, dommage de t'être précipité en cochant "résolu" sans attendre d'autres avis toujours possibles, surtout quand on te dit "pas sûr de moi" (on ne peut pas tout savoir: demain ce sera moi!)
 cela est possible en utilisant la base de registre!
pour écrire, lire, effacer, on pêut utiliser cette clé: HKey_current_user/software / VB and VBA Program settings 

si tu repasses dans le coin, fais signe, j'enverrais une démo.

michel_m · Answer

Re,

ci joint la démo:

https://www.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

saian-sugus · Answer

trouvé :) merci michel...