re tout le monde
bravo josé
un petit code pour lister ces variables :
Citation:
Sub Bouton1_QuandClic()
Dim toto As Object
Dim enviro, item
On ErrorResumeNext
ligne = 1
Set toto = CreateObject('WScript.Shell')
Set enviro = toto.environment('process')
For Each item In enviro
Cells(ligne, 1) = item
ligne = ligne + 1
Next item
MsgBox Environ('OS') 'pour exemple
End Sub
|
adapté d'un code VB trouvé sur le net.
salut