Discussion :

[ghosty177]

Bonjour a tous,

j'aimerai savoir si c'est possible d'accéder à des variables globales du fichier Excel lui même.

Je m'explique, je voudrai pouvoir sauvegarder des informations dans des variables et que celles-ci soient conservées même lorsque l'on ferme le fichier.
Et par conséquent, ces variables seront accessibles à sa réouverture.

merci d'avance,

cordialement

[vpovpo]

Pourquoi ne pas créer une feuille (que tu pourrais rendre invisible, éventuellement la protéger) et mémoriser tes variables dans les cellules de cette feuille ? A l'ouverture tu commence par lire ces cellules et mettre leur contenu dans tes variables.

Cela repond à ton pb ?

[vpovpo]

Ou alors si tu tiens absolument à avoir des variables initialisées différemment, tu pourrais aussi utiliser la bibliothèque VBComponent (voir ça). Comment faire:
1. On crée un module spécial pour mémoriser les variables (c'est mieux).
2. On met dans ce module le code:

Code :

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

Const toto = valeur

3. A la sortie d'Excel, dans une macro, on recupère le texte de la macro du module avec VBComponent, on le remplace avec:

Code :

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

Const toto = autre_valeur

J'ai jamais fait ça, mais ça devrait marcher. Si tu le fait tu me donne des nouvelles...

[ghosty177]

merci pour ces informations

Pour ta première solution (enregistrer dans une feuille cachée) c'est ce que je fais actuellement, et ca marche relativement bien mais je recherché une solution non visible par l'utilisateur.

Pour ta deuxième solution, je vais regarder cela de plus près cette après midi, mais développant un addin VSTO je ne suis pas sur que je puisse programmer la macro. Je te tiens au courant sur ce point.

Mais n'existe t'il pas dans Excel un module auquel je pourrait accéder tel que celui pour les connexions externe mais pour des variables?

[Michel_M]

Bonjour,

Si tu reste sur le m^me poste, tu pourrais utiliser la base de registre

enregistrement de la variable

Code :

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

1
2
'écriture dans HKey_current_user/software / VB and VBA Program settings
  SaveSetting appname:="dvp", section:="truc", key:="nombre", setting:=Lavariable

A l’ouverture

Code :

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

1
2
' Lit la valeur dans la base de registre
       Lavariable = GetSetting(appname:="dvp", section:="truc", key:="Nombre")

[vpovpo]

Comme je disais, tu peux rendre ta feuille invisible avec:

Code :

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

maFeuilleParametres.Visible = xlSheetVeryHidden   'non pas xlSheetHidden

et avec ça on pourra pas la rendre visible sans les macro.

[ghosty177]

pour la propriété visible de la feuille je connaissais mais merci

et pour ce qui est du déploiement, mon addin sera distribuer a qui veux l'utiliser donc il il ne sera pas toujours utiliser sur le même poste.

Par contre je viens de tomber sur quelque chose qui a l'air de parfaitement convenir a savoir les "CustomProperties" qui sont des propriétées applicables pour chaque feuille.
En savez vous plus a ce sujet ?

Alors après un test rapide les customproperties ont l'air nikel comme solution.

en effet, cet élément permet d'ajouter des paramètres avec un nom et une variable

Code :

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

1
2
 
CustomProperties.Add("NAME", "VALUE");

elles s'enregistrent avec le document et la réouverture de celui ci, il suffit de les relire avec

Code :

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

1
2
3
 
CustomProperties.Item[1].Name 
CustomProperties.Item[1].Value

[Pierre Fauconnier]

Salut.

Je ne vois pas trop où résiderait le problème de stocker les informations dans une feuille très cachée (verryhidden) puisque tu ne pourras accéder à cette feuille que par macro.

L'utilisation des customproperties d'une feuille se faisant par macro, si ta peur réside dans le fait que l'on puisse accéder au code, les placer dans des customproperties de résoudra pas grand chose.

Tu peux cependant utiliser la procédure et la fonction suivantes pour écrire / lire une customproperty

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub SetCustomProperty(Feuille As Worksheet, nom As String, Valeur As Variant)
  ' Ecrit la valeur dans la propriété
 
  Dim oProperty As CustomProperty
  Dim blnProprieteExiste As Boolean
 
  For Each oProperty In Feuille.CustomProperties
    If oProperty.Name = nom Then
      blnProprieteExiste = True
      Exit For
    End If
  Next
  If blnProprieteExiste Then
    oProperty.Value = Valeur
    Else
    Feuille.CustomProperties.Add nom, Valeur
  End If
 
End Sub
 
Function GetCustomProperty(Feuille As Worksheet, nom As String) As Variant
  ' Lit la valeur de la customproperty passée en paramètres
  Dim oProperty As CustomProperty
 
  For Each oProperty In Feuille.CustomProperties
    If oProperty.Name = nom Then
      GetCustomProperty = oProperty.Value
      Exit For
    End If
  Next
End Function
 
Sub UtiliserCustomProperty()
  ' Test d'utilisation de customproperty
  SetCustomProperty Feuil1, "Nom", "Martine"
  Debug.Print GetCustomProperty(Feuil1, "Nom")
End Sub

[ghosty177]

C'est tout a fait juste,
seulement, comme je le dis plus haut, je développe un composant VSTO et je souhaite donc que tous le code concernant la gestion de celui ci soit compilé directement.

De plus j'ai déjà mis en place la solution proposée par vpovpo avec la feuille verryhidden. Cependant les données inscrites dedans peuvent variées d'une feuille a l'autre. Cela entraine donc du code supplémentaire afin d'organiser cette page.

C'est pourquoi, dans ma situation, les customproperties correspondent mieux à mon besoin.

ghosty