Discussion :

[andromedor]

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.

[laetitia]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[andromedor]

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.

[aalex_38]

bonjour à tous,

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 ...

[Schlobax]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[JPierreM]

Bonjour,

Peut être une autre solution

dans le module Thisworbook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[kiki29]

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

[AlainTech]

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.

[andromedor]

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

[AlphaScorpi]

j'utilise ceci pour conserver une variable.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

et pour la récuperer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MaVariable = [VariableConservee]

[Sabubu]

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

Coridalement

[Nagel Tha]

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

[kingman29]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?