[VBA] Exécuter un fichier reg

Bonjour

Shell ("D:progGIEO1.reg"), vbNormalFocus

Je mettrais plutôt la parenthèse à la fin :

Shell ("D:progGIEO1.reg", vbNormalFocus)

vous pouvez aussi essayer sans le deuxième argument qui est facultatif
:
Shell ("D:progGIEO1.reg")

Shell ("D:progGIEO1.reg"), vbNormalFocus

Je mettrais plutôt la parenthèse à la fin :
Shell ("D:progGIEO1.reg", vbNormalFocus)
vous pouvez aussi essayer sans le deuxième argument qui est facultatif
Shell ("D:progGIEO1.reg")

J'ai toujours le même message d'erreur.

@+
HD

Bonjour,
Peut-être :
Rep=Shell("D:progGIEO1.reg", vbNormalFocus)
Cordialement.
Daniel

Shell ("D:progGIEO1.reg"), vbNormalFocus

Je mettrais plutôt la parenthèse à la fin :
Shell ("D:progGIEO1.reg", vbNormalFocus)
vous pouvez aussi essayer sans le deuxième argument qui est
facultatif Shell ("D:progGIEO1.reg")

J'ai toujours le même message d'erreur.

@+
HD

Bonjour,

1) Puisque la fonction SHELL prévoit un retour
(qui est l'ID du processus, je crois)
il faut aussi le prévoir.

2) La commande REG est bien plus riche et pratique que regedit.

3) On peut mettre le chemin vers l'extrait (*.reg) en argument
de cette sub ... Ainsi, cela peut servir à plusieurs choses.

Testé et qui marche :

Sub MetREG(CheminREG As String)
Dim LIGNECOMMANDE As String
Dim Bidon As Variant
LIGNECOMMANDE = "REG import " & Chr(34) & CheminREG & Chr(34)
Bidon = Shell(LIGNECOMMANDE, vbNormalNoFocus)
End Sub

Sub TEST()
MetREG "D:TempTruc Bidon.reg"
End Sub


Cordialement,

HB


Le 12/10/2016 à 14:25, HD a écrit :

Shell ("D:progGIEO1.reg"), vbNormalFocus

Je mettrais plutôt la parenthèse à la fin :
Shell ("D:progGIEO1.reg", vbNormalFocus)
vous pouvez aussi essayer sans le deuxième argument qui est facultatif
Shell ("D:progGIEO1.reg")

J'ai toujours le même message d'erreur.

@+
HD

---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
https://www.avast.com/antivirus

Rep=Shell("D:progGIEO1.reg", vbNormalFocus)

Cela ne change rien. D'après mes recherches, cela pourrait être lié au
fait qu'en ligne de commande regedit aurait besoin d'une élévation de
privilège... Lorsque l'on

Shell("regedit.exe")
ne fonctionne pas alors que

Shell("notepad.exe")
fonctionne parfaitement.

@+
HD

Parfait !!!

Si regedit ne fonctionne pas en VBA... REG lui permet effectivement de
fonctionner et ce sans aucun message de confirmation.

Merci à vous tous pour votre aide,

@+
HD

Bonjour,

Je crois qu'il y a aussi ceci, évidemment je n'ai pas testé!

'----------------------------------------------------------
Sub test()
Dim X As WshShell.Shell
Dim MyFile As String
Dim WshShell As Object

MyFile = "C:UsersMichDDocumentsMyFile.Reg"

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Run "Regedit.exe /s "" & MyFile & """, 0, True
'OU
WshShell.Run "regedit /s C:UsersMichDDocumentsMyFile.Reg", 0, True

End Sub
'----------------------------------------------------------

MichD