Reply to thread

Message

<blockquote data-quote="gnoacco" data-source="post: 435748">bien sûr... je vais mettre ci dessous l'intégralité du fichier...par contre, si quelqu'un pouvait me dire où trouver un moteur de recon. voc en français, je suis preneur !fichier (pour afficher le code, fermez le formulaire, et appuyez sur Alt+F11, puis allez sur UserForm1, cliquez droit, puis sur code):Option ExplicitPrivate Declare Function ShellExecute Lib &quot;shell32.dll&quot; _Alias &quot;ShellExecuteA&quot; (ByVal hwnd As Long, ByVal _lpOperation As String, ByVal lpFile As String, ByVal _lpParameters As String, ByVal lpDirectory As String, _ByVal nShowCmd As Long) As LongPrivate Sub CommandButton1_Click()Dim cheminDim sFile As StringDim noth As Longchemin = ActiveWorkbook.Pathnoth = ShellExecute(0, &quot;OPEN&quot;, chemin &amp; &quot;\motsclés.txt&quot;, &quot;&quot;, &quot;C:&quot;, 1)End SubPrivate Sub UserForm_Activate()&nbsp; &nbsp;&nbsp; Dim SpeechGrammer As String&nbsp; &nbsp;&nbsp; SpeechGrammer = &quot;[Grammar]&quot; &amp; vbCrLf &amp; _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; &quot;langid = 1033&quot; &amp; vbCrLf &amp; _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; &quot;type=cfg&quot; &amp; vbCrLf &amp; _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; &quot;[&lt;Start&gt;]&quot; &amp; vbCrLf &amp; _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; &quot;&lt;start&gt;=O K &quot; &amp; vbCrLf &amp; _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; &quot;&lt;start&gt;=next song&quot; &amp; vbCrLf &amp; _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; &quot;&lt;start&gt;=precedent song&quot; &amp; vbCrLf &amp; _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; &quot;&lt;start&gt;=last page&quot; &amp; vbCrLf &amp; _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; &quot;&lt;start&gt;=down&quot; &amp; vbCrLf &amp; _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; &quot;&lt;start&gt;=right&quot; &amp; vbCrLf &amp; _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; &quot;&lt;start&gt;=left&quot; &amp; vbCrLf &amp; _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; &quot;&lt;start&gt;=up&quot; &amp; vbCrLf &amp; _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; &quot;&lt;start&gt;=wait&quot; &amp; vbCrLf &amp; _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; &quot;&lt;start&gt;=media portal&quot; &amp; vbCrLf &amp; _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; &quot;&lt;start&gt;=exit media portal&quot; &amp; vbCrLf &amp; _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; &quot;&lt;start&gt;=show menu &quot; &amp; vbCrLf &amp; _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; &quot;&lt;start&gt;=Tom Jones is a&quot; &amp; vbCrLf &amp; _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; &quot;&lt;start&gt;=sex bomb&quot; &amp; vbCrLf &amp; _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; &quot;&lt;start&gt;=select item &quot; &amp; vbCrLf &amp; _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; &quot;&lt;start&gt;=open Notepad&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; &nbsp; &nbsp;&nbsp; vcrVoice.GrammarFromString SpeechGrammer&nbsp; &nbsp;&nbsp; vcrVoice.Activate&nbsp; &nbsp;&nbsp; End SubPrivate Sub vcrVoice_PhraseFinish(ByVal flags As Long, ByVal beginhi As Long, ByVal beginlo As Long, ByVal endhi As Long, ByVal endlo As Long, ByVal Phrase As String, ByVal parsed As String, ByVal results As Long)Dim sFile As StringDim noth As LongLabel1.Caption = PhraseSelect Case PhraseCase Is = &quot;Tom Jones is a&quot;MsgBox (&quot;Sex Bomb !!&quot;)Case Is = &quot;open Notepad&quot;sFile = &quot;\system32\notepad.exe&quot;noth = ShellExecute(0, &quot;OPEN&quot;, Environ(&quot;SystemRoot&quot;) &amp; sFile, &quot;&quot;, &quot;&quot;, 1)Case Is = &quot;next song&quot; 'I use this one as an example : you can use the word you want, it still works !SendKeys (&quot;{F4}&quot;) 'F4 I use it to play the next song in a playlistCase Is = &quot;precedent song&quot;SendKeys (&quot;{F3}&quot;) 'F3Case Is = &quot;last page&quot;SendKeys (&quot;{ESC}&quot;) 'ESCAPECase Is = &quot;wait&quot;SendKeys Chr(32) 'SPACE BARCase Is = &quot;O K&quot;SendKeys (&quot;{ENTER}&quot;) ' ENTERCase Is = &quot;left&quot;SendKeys (&quot;{LEFT}&quot;) 'LEFT ARROWCase Is = &quot;right&quot;SendKeys (&quot;{RIGHT}&quot;) 'RIGHT ARROWCase Is = &quot;down&quot;SendKeys (&quot;{DOWN}&quot;) 'DOWN ARROWCase Is = &quot;up&quot;SendKeys (&quot;{UP}&quot;) 'UP ARROWCase Is = &quot;show menu&quot; 'I use this one to display the context menu associated with a file/song/videoSendKeys (&quot;{F9}&quot;)Case Is = &quot;select item&quot; 'I use this one to put the selected folder/artist/album in the playlist (normally y in mediaportal)SendKeys (&quot;{F8}&quot;) 'F8Case Is = &quot;media portal&quot; 'I use this one to open MediaPortal ! Change the address if yours is differentnoth = ShellExecute(0, &quot;OPEN&quot;, &quot;C:\Media Center\MediaPortal.exe&quot;, &quot;&quot;, &quot;C:&quot;, 1)Case Is = &quot;exit media portal&quot;SendKeys (&quot;%{F4}&quot;) ' = ALT+F4 I use this one to close MediaPortalEnd SelectEnd Sub</blockquote>

[QUOTE="gnoacco, post: 435748"] bien sûr... je vais mettre ci dessous l'intégralité du fichier... par contre, si quelqu'un pouvait me dire où trouver un moteur de recon. voc en français, je suis preneur ! fichier (pour afficher le code, fermez le formulaire, et appuyez sur Alt+F11, puis allez sur UserForm1, cliquez droit, puis sur code): Option Explicit Private Declare Function ShellExecute Lib "shell32.dll" _ Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal _ lpOperation As String, ByVal lpFile As String, ByVal _ lpParameters As String, ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long Private Sub CommandButton1_Click() Dim chemin Dim sFile As String Dim noth As Long chemin = ActiveWorkbook.Path noth = ShellExecute(0, "OPEN", chemin & "\motsclés.txt", "", "C:", 1) End Sub Private Sub UserForm_Activate() Dim SpeechGrammer As String SpeechGrammer = "[Grammar]" & vbCrLf & _ "langid = 1033" & vbCrLf & _ "type=cfg" & vbCrLf & _ "[<Start>]" & vbCrLf & _ "<start>=O K " & vbCrLf & _ "<start>=next song" & vbCrLf & _ "<start>=precedent song" & vbCrLf & _ "<start>=last page" & vbCrLf & _ "<start>=down" & vbCrLf & _ "<start>=right" & vbCrLf & _ "<start>=left" & vbCrLf & _ "<start>=up" & vbCrLf & _ "<start>=wait" & vbCrLf & _ "<start>=media portal" & vbCrLf & _ "<start>=exit media portal" & vbCrLf & _ "<start>=show menu " & vbCrLf & _ "<start>=Tom Jones is a" & vbCrLf & _ "<start>=sex bomb" & vbCrLf & _ "<start>=select item " & vbCrLf & _ "<start>=open Notepad" vcrVoice.GrammarFromString SpeechGrammer vcrVoice.Activate End Sub Private Sub vcrVoice_PhraseFinish(ByVal flags As Long, ByVal beginhi As Long, ByVal beginlo As Long, ByVal endhi As Long, ByVal endlo As Long, ByVal Phrase As String, ByVal parsed As String, ByVal results As Long) Dim sFile As String Dim noth As Long Label1.Caption = Phrase Select Case Phrase Case Is = "Tom Jones is a" MsgBox ("Sex Bomb !!") Case Is = "open Notepad" sFile = "\system32\notepad.exe" noth = ShellExecute(0, "OPEN", Environ("SystemRoot") & sFile, "", "", 1) Case Is = "next song" 'I use this one as an example : you can use the word you want, it still works ! SendKeys ("{F4}") 'F4 I use it to play the next song in a playlist Case Is = "precedent song" SendKeys ("{F3}") 'F3 Case Is = "last page" SendKeys ("{ESC}") 'ESCAPE Case Is = "wait" SendKeys Chr(32) 'SPACE BAR Case Is = "O K" SendKeys ("{ENTER}") ' ENTER Case Is = "left" SendKeys ("{LEFT}") 'LEFT ARROW Case Is = "right" SendKeys ("{RIGHT}") 'RIGHT ARROW Case Is = "down" SendKeys ("{DOWN}") 'DOWN ARROW Case Is = "up" SendKeys ("{UP}") 'UP ARROW Case Is = "show menu" 'I use this one to display the context menu associated with a file/song/video SendKeys ("{F9}") Case Is = "select item" 'I use this one to put the selected folder/artist/album in the playlist (normally y in mediaportal) SendKeys ("{F8}") 'F8 Case Is = "media portal" 'I use this one to open MediaPortal ! Change the address if yours is different noth = ShellExecute(0, "OPEN", "C:\Media Center\MediaPortal.exe", "", "C:", 1) Case Is = "exit media portal" SendKeys ("%{F4}") ' = ALT+F4 I use this one to close MediaPortal End Select End Sub [/QUOTE]

Verification