Discussion :

[Fredman]

Salut a tous

Savez vous comment ajouter par exemple cette clé dans le registre de Windows en VBA ?

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\xxxx]
"Type"=dword:00000010
"Start"=dword:00000002
"ErrorControl"=dword:00000001
"ImagePath"=hex(2):43,00,3a,00,5c,00,55,00,73,00,65,00,72,00,73,00,5c,00,70,00,\
61,00,74,00,5c,00,44,00,65,00,73,00,6b,00,74,00,6f,00,70,00,5c,00,61,00
"DisplayName"="xxxxx"
"ObjectName"="LocalSystem"

Merci

[kiki29]

Salut, regarde ici c'est pour VBS, très facilement transcriptible en VBA

[Fredman]

Salut

J'ai trouvé ce code vbscript qui fonctionne en vbs mais pas en vba..

Erreur: Objet requis. (en soulignant cette ligne en jaune.. une idée?

Code :

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

1
2
3
4
5
6
7
8
9
10
If WScript.Arguments.length =0 Then
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "wscript.exe", Chr(34) & _
WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1
Else

'Mettre le code ici

End If

[kiki29]

Salut, exemple VBS tiré du lien donné plus haut

Code :

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

1
2
3
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\dvp-faqvbs\montest", Now

donnera ceci en VBA et Late Binding
a lire : Early ou Late Binding

Code :

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

1
2
3
4
5
6
7
Option Explicit
 
Sub Tst()
Dim WshShell As Object
    Set WshShell = CreateObject("WScript.Shell")
    WshShell.RegWrite "HKCU\Software\dvp-faqvbs\montest", Now
End Sub

[Fredman]

Merci kiki29 ça fonctionne..

Mais comme mon UAC est activé je souhaiterais qu'il me demande une élevation

En vbs ce code fontionne mais pas en vba.

Savez vous comment l'adapter pour qu'il fonctionne en vba car il y a une erreur: Objet requis. (en soulignant cette ligne en jaune)

Code :

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

1
2
3
4
5
6
7
8
9
10
If WScript.Arguments.length =0 Then
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "wscript.exe", Chr(34) & _
WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1
Else

'Mettre le code ici

End If