bundy_al012
Messages postés lundi 23 mai 2016Date d'inscription
23 mai 2016
Dernière intervention
-
23 mai 2016 à 21:04 - Dernière réponse : bundy_al01
- 24 mai 2016 à 21:24
jordane4522049
Messages postés mercredi 22 octobre 2003Date d'inscriptionModérateurStatut
14 août 2018
Dernière intervention
>
bundy_al012
Messages postés lundi 23 mai 2016Date d'inscription
23 mai 2016
Dernière intervention -23 mai 2016 à 22:54
Tu peux montrer ton code corrigé ?
(En utilisant les balises de code ! )
Autre question.. as tu testé cette ligne de commande directement sous DOS pour voir si elle fonctionne ?
bundy_al01
>
jordane4522049
Messages postés mercredi 22 octobre 2003Date d'inscriptionModérateurStatut
14 août 2018
Dernière intervention -24 mai 2016 à 12:35
Bonjour,
le voici :
Set wsh = VBA.CreateObject("WScript.Shell")
wsh.Run "C:\Windows\System32\cmd.exe /K C:\Users\omeskine\Documents\Visual Studio 2010\Projects\DrafterZMQBLOOM\DrafterZMQ\Drafter\bin\Debug\RTGenBloom.exe AUTOMATIC", 1, False
ce qui est en fait équivalent à :
Shell "C:\Windows\System32\cmd.exe /K C:\Users\omeskine\Documents\Visual Studio 2010\Projects\DrafterZMQBLOOM\DrafterZMQ\Drafter\bin\Debug\RTGenBloom.exe AUTOMATIC"
Les 2 versions me donnent la même erreur.
J'ai lancé la commande directement dans un cmd et c'est toujours la même chose.
jordane4522049
Messages postés mercredi 22 octobre 2003Date d'inscriptionModérateurStatut
14 août 2018
Dernière intervention
>
bundy_al01-24 mai 2016 à 15:52
J'ai lancé la commande directement dans un cmd et c'est toujours la même chose.
Si c'est la même chose en la lançant directement dans un CMD .. c'est que le souci ne vient pas du code VBA que tu as écris ..... mais bien de celle ligne de code elle même....
Option Explicit
'http://www.office-loesung.de/ftopic619862_0_0_asc.php
Private Declare Function Wow64DisableWow64FsRedirection Lib "kernel32.dll" ( _
ByRef oldvalue As Long) As Boolean
Private Declare Function Wow64RevertWow64FsRedirection Lib "kernel32.dll" ( _
ByVal oldvalue As Long) As Boolean
Public Sub prcStartMSConfig64()
Const MS_CONFIG As String = "C:\Windows\system32\msconfig.exe"
Const WND_SHOWNORMAL As Variant = 1
Dim lngWow64RedirectReturn As Long
Dim objShell As Object
Set objShell = CreateObject("Shell.Application")
lngWow64RedirectReturn = 0
Wow64DisableWow64FsRedirection lngWow64RedirectReturn
objShell.ShellExecute MS_CONFIG, vbNullString, vbNullString, "open", WND_SHOWNORMAL
Wow64RevertWow64FsRedirection lngWow64RedirectReturn
Set objShell = Nothing
End Sub
'ouvre le programme de capture
Private Sub CommandButton1_Click()
Shell "C:\Windows\SysNative\SnippingTool.exe", vbNormalFocus 'adapter le chemin de l'exe
End Sub
je viens de les retirer et j'ai toujours un message d'erreur :
'C:\Users\Public\Documents\Visual' is not recognised as an intern operable program or batch file
Cordialement.
(En utilisant les balises de code ! )
Autre question.. as tu testé cette ligne de commande directement sous DOS pour voir si elle fonctionne ?
le voici :
Set wsh = VBA.CreateObject("WScript.Shell")ce qui est en fait équivalent à :
Les 2 versions me donnent la même erreur.
J'ai lancé la commande directement dans un cmd et c'est toujours la même chose.
Cordialement.
Si c'est la même chose en la lançant directement dans un CMD .. c'est que le souci ne vient pas du code VBA que tu as écris ..... mais bien de celle ligne de code elle même....