Discussion :

[iBenny]

Bonjour à tous ,

On sais qu'il est possible d'invoquer une variable d'environnement Windows dans VBA MAIS... est-il possible d'en créer une ou/et d'assigner une valeur à celle-ci

Merci infiniment pour votre aide.

Salutations distinguées,
iBenny

[Nain porte koi]

Hello

avec un peu de VBS dans le VBA
https://vb.developpez.com/faq/vbs?pa...-environnement

[iBenny]

Ce qui est suggéré est :

Code :

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

1
2
3
4
5
6
7
8
9
Dim WshShell, WshProcessEnv 
Set WshShell = WScript.CreateObject("WScript.Shell") 
Set WshProcessEnv = WshShell.Environment("Process") 
'Créer une variable d'environnement 
WshProcessEnv("DVP") = "developpez.com" 
'Affiche la variable 
WScript.Echo WshShell.ExpandEnvironmentStrings("La valeur de la variable DVP =    '%DVP%'") 
WshProcessEnv.Remove "DVP" 
WScript.Echo WshShell.ExpandEnvironmentStrings("Aprés l'avoir effacée :    '%DVP%'")

Peut-on réduire ça ainsi :

Code :

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

1
2
3
4
5
Dim Env1
Set Env1= WScript.CreateObject("WScript.Shell") 
 
'Créer une variable d'environnement 
Env1.Environment("Process").Item("DVP") = "developpez.com"

ou simplement :

Code :

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

1
2
'Créer une variable d'environnement 
WScript.CreateObject("WScript.Shell").Environment("Process").Item("DVP") = "developpez.com"

👀J'ai découvert tout à l'heure les mêmes instructions sans "WScript." devant :

Code :

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

1
2
3
Dim objUserEnvVars As Object
Set objUserEnvVars = CreateObject("WScript.Shell").Environment("User")
objUserEnvVars.item("Test") = "Blah"

qu'on pourrait peut-être réduire ainsi :

Code :

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

CreateObject("WScript.Shell").Environment("User").Item("VARIABLE") = "Valeur"

Qu'en pensez-vous ?



Salutations cordiales,
iBenny

[Nain porte koi]

Ben moi j'en pense ça

[iBenny]

Bien répondu ! J'me disais la même chose aussi...

XXXXXXX

[iBenny]

J'ai trouvé !

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub MaSub()
Dim EnVar as String
 
'définir une variable d'environnement "VARIABLE"
CreateObject("WScript.Shell").Environment("User").Item("VARIABLE") = "Valeur" 
 
'retourne la "Valeur" de la variable d'environnement "VARIABLE"
EnVar = CreateObject("WScript.Shell").Environment("User").Item("VARIABLE")  
 
End Sub

Salutations cordiales,
iBenny