Conserver valeur variable en fin d´exécution de code VBA excel

Bonjour,

Dans le cadre d´une petite programmation dans VBA excel que je suis en train de faire, je souhaiterais qu´en fin d´éxécution de mes codes une variable reste conservée et ceci même après fermeture du classeur excel. Ainsi quand j´ouvre le classeur cette variable détient la valeur qu´elle avait lors de la dernière utilisation du programme.
Je me suis rendu compte que la declaration: Static nom_de_variable As Type ne permet de conserver la dernière valeur de la variable que lorsque le classeur n´a pas été fermé. Lorsque je réouvre le classeur la variable s´initialise automatiquement a 0 :~).

Quelqu´un a-t-il une solution?

Merci beaucoup pour votre aide.

bonjour andromedor le forum tu peus faire un truc comme cela tu l'ecris dans une cellule avant de fermer ton classeur & sauve puis a l'open de ton classseur tu la récuperes

Code:

---

1 2 3 4 5 6 7

Sub es() Dim mavar As Long mavar = 10 [a1] = mavar 'et l 'inverse pour la recuperer mavar = [a1] End Sub

---

Ok merci laetitia. J´avais pensé a une solution de ce type mais je cherchais quelque chose plus rigoureux au niveau de la programmation car je suppose que ca doit exister.

bonjour à tous,

Citation:

---

Ok merci laetitia. J´avais pensé a une solution de ce type mais je cherchais quelque chose plus rigoureux au niveau de la programmation car je suppose que ca doit exister.

---

Je ne vois pas ce qu'il n'y a pas de rigoureux dans la solution proposée par Laetitia, c'est une solution comme une autre et à mon avis une bonne solution.

Il en existe d'autres : ecrire dans la base de registre, ecrire dans une cellule dans une feuille cachée par exemple, ecrire dans un fichier et le lire ...

Bonjour,

Citation:

---

Envoyé par aalex_38

Je ne vois pas ce qu'il n'y a pas de rigoureux dans la solution proposée par Laetitia, c'est une solution comme une autre et à mon avis une bonne solution.
Il en existe d'autres : ecrire dans la base de registre, ecrire dans une cellule dans une feuille cachée par exemple, ecrire dans un fichier et le lire ...

---

Ce que andromedor semble rechercher, c'est donner à son code VBA une mémoire permanente pour ses variables, indépendamment du classeur Excel, permettant de conserver leur valeur même si la macro a terminé de s'exécuter, si le classeur est fermé puis ré-ouvert, ou si le PC éteint puis rallumé.

C'est dommage, aalex_38 a évoqué une solution mais ne l'a pas expliquée afin qu'elle soit utilisable, du coup son commentaire ne fait pas avancer le sujet.

Tu peux écrire dans la base de registre de Windows en utilisant les fonctions VBA :
- SaveSetting (AppName As String, Section As String, Key As String, Setting As String)
- GetSetting (AppName As String, Section As String, Key As String)

Exemple :

Code:

---

1 2 3 4 5 6 7

Dim sauvegarde_nom As String sauvegarde_nom = "Saucisse cocktail" SaveSetting "Excel", "Module_de_Code", "Nom Conservé", sauvegarde_nom   Dim lecture_nom As String lecture_nom = GetSetting("Excel", "Module_de_Code", "Nom Conservé") MsgBox lecture_nom

---

Cordialement

Bonjour,

Peut être une autre solution

dans le module Thisworbook

Code:

---

1 2 3 4 5 6 7 8

Private Sub Workbook_BeforeClose(Cancel As Boolean) laValeur = Application.InputBox("Saississez une valeur quelconque", , , , , , , 1 + 2) ActiveWorkbook.Save End Sub   Private Sub Workbook_Open() test End Sub

---

dans un module standard

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Public Property Get laValeur() As Variant laValeur = [Essai] End Property   Public Property Let laValeur(ByVal maValeur As Variant) ThisWorkbook.Names.Add "Essai", maValeur, False End Property   Sub test() On Error Resume Next MsgBox laValeur End Sub

---

A adapter

JP

Salut, on peut passer par un fichier ini, voir ici

Bonjour Schlobax, JPierreM et kiki29,

Je doute qu'après plus de 2 ans la question soit toujours d'actualité.
Ceci dit, vos réponses serviront peut-être à d'autres qui cherchent dans les anciennes discussions.

Merci quand même pour vos réponses. Je pesne que ça servira toujours ;)

j'utilise ceci pour conserver une variable.

Code:

---

Names.Add Name:="VariableConservee", RefersTo:=MaVariable

---

et pour la récuperer

Code:

---

MaVariable = [VariableConservee]

---

Même 6ans plus tard, ces commentaires m'ont bien servit AlainTech. Merci à tous!!

Coridalement

Je viens de penser à un problème de gestion des évènements dans le temps en ayant recours à des valeurs booléennes pour désactiver les évènements dans certaines conditions et dès la première recherche je tombe sur cet ancien post qui propose de nombreuses possibilités. (Au passage si quelqu'un a d'autres propositions que mon idée pour gérer les évènements dans le temps je suis preneur)

Merci aux utilisateurs qui consacrent du temps à répondre aux questions ! :)

J'en profite aussi pour rappeler que rechercher permet souvent de trouver des perles donc il ne faut pas négliger cet aspect :)

Citation:

---

Envoyé par Schlobax

Bonjour,



Ce que andromedor semble rechercher, c'est donner à son code VBA une mémoire permanente pour ses variables, indépendamment du classeur Excel, permettant de conserver leur valeur même si la macro a terminé de s'exécuter, si le classeur est fermé puis ré-ouvert, ou si le PC éteint puis rallumé.

C'est dommage, aalex_38 a évoqué une solution mais ne l'a pas expliquée afin qu'elle soit utilisable, du coup son commentaire ne fait pas avancer le sujet.

Tu peux écrire dans la base de registre de Windows en utilisant les fonctions VBA :
- SaveSetting (AppName As String, Section As String, Key As String, Setting As String)
- GetSetting (AppName As String, Section As String, Key As String)

Exemple :

Code:

---

1 2 3 4 5 6 7

Dim sauvegarde_nom As String sauvegarde_nom = "Saucisse cocktail" SaveSetting "Excel", "Module_de_Code", "Nom Conservé", sauvegarde_nom   Dim lecture_nom As String lecture_nom = GetSetting("Excel", "Module_de_Code", "Nom Conservé") MsgBox lecture_nom

---

Cordialement

---

bonjour
j'ai créer une fonction sur Excel
est ce que je peux utiliser ce code pour enregistrer les resultats ?
Et ect ce que je dois ecrire ce code dans le Module de la Fonction ?
ou bien dans le Workbook ?