Discussion :

[Daejung]

Bonjour,

Dans une macro complémentaire Powerpoint 2003, je voudrais personnaliser une variable déclarée en constante, suivant le poste :

Code :

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

Public Const Toto As String ="blala"

Est-il possible de modifier cette ligne de code par VBA ?

Merci

[JackOuYA]

je dirai non ..

mais plutôt qu'utiliser une constante tu pourrai simplement utiliser une variable chaine...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim toto As String
Sub yaInit()
  Select Case Environ("computername")
    Case "PC-JacKouya"
       toto = "YopYop"
    Case "PC-DaeJung"
       toto = "blabla"
    Case Else
       toto = "N/A"
  End Select
End Sub

puis choisir le bon événement pour l'appel de yaInit, au lancement de ton code ...

[Daejung]

En fait, c'est pour laisser la possibilité à l'utilisateur de choisir cette variable lui-même.

Dans une autre macro j'avais mis cela dans une zone texte cachée mais j'aurais voulu faire quelque chose de plus propre, d'où ma question.

[JackOuYA]

ok, dans ce cas la tu peu utiliser les fonctions GetSetting et SaveSetting pour récupérer ou sauver ce paramétre dans la base de registre .

[Daejung]

et je peux utiliser GetSetting dans la déclaration des variables?

[JackOuYA]

non,

tu modifie la fonction yaInit précédente :

Code :

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

1
2
3
4
5
 
Dim toto As String
Sub yaInit()
  toto = GetSetting("AppAJack", "yaSection", "toto", "blalbla")
End Sub

et pour modifier la valeur du paramétre :

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub yaParam()
  Dim yaInput As String
  yaInput = InputBox("Nouveau paramétre toto : ")
  If yaInput <> "" Then
    toto = yaInput
    SaveSetting "AppAJack", "yaSection", "toto", toto
  End If
End Sub