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
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
Hello
avec un peu de VBS dans le VBA
https://vb.developpez.com/faq/vbs?pa...-environnement
Ce qui est suggéré est :
Peut-on réduire ça ainsi :
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%'")
ou simplement :
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"
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 :
qu'on pourrait peut-être réduire ainsi :
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'en pensez-vous ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part CreateObject("WScript.Shell").Environment("User").Item("VARIABLE") = "Valeur"
Salutations cordiales,
iBenny
Bien répondu ! J'me disais la même chose aussi...
XXXXXXX
J'ai trouvé !
Salutations cordiales,
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
iBenny
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager