Commande VB Shell
geo trouve-tout
Messages postés
409
Statut
Membre
-
geo trouve-tout Messages postés 409 Statut Membre -
geo trouve-tout Messages postés 409 Statut Membre -
Bonjour,
J'ai cette commande pour ouvrir, une musique, et la jouer avec sndrec32 , sans qu'on la voye. Elle ne fonctionne pas. Pouvez vous m'aider svp merci.
son = "C:\DancingQueen.wav"
set shl = createobject("wscript.shell")
shl.Run & "sndrec32/play /embedding/close" & son , 1,true
Que ce soit des " ou des () c'est pareil ca ne fonctionne pas, le meilleur que ca me fait quand je change 2-3 truc c'est de m'ouvrir sndrec32 et de m'ouvrir la fenetre d'importation... Merci d'avance
J'ai cette commande pour ouvrir, une musique, et la jouer avec sndrec32 , sans qu'on la voye. Elle ne fonctionne pas. Pouvez vous m'aider svp merci.
son = "C:\DancingQueen.wav"
set shl = createobject("wscript.shell")
shl.Run & "sndrec32/play /embedding/close" & son , 1,true
Que ce soit des " ou des () c'est pareil ca ne fonctionne pas, le meilleur que ca me fait quand je change 2-3 truc c'est de m'ouvrir sndrec32 et de m'ouvrir la fenetre d'importation... Merci d'avance
A voir également:
- Commande VB Shell
- Invite de commande - Guide
- Classic shell - Télécharger - Personnalisation
- Commande terminal mac - Guide
- Commande dism - Guide
- Commande scannow - Guide
2 réponses
Bonjour,
Une autre manière d'écouter du .wav
Une autre manière d'écouter du .wav
Private Declare Function PlaySound32 Lib "winmm.dll" Alias "PlaySoundA" (ByVal IpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
'------------------------
' archives MPFE
Sub PlayWAV()
' snd_async: son asynchrone (la musique n'arrete pas le programme) snd_sync: arrete le prog
If Application.CanPlaySounds Then
WAVFile = ThisWorkbook.Path & "\" & "Tamusique.wav"
Call PlaySound32(WAVFile, 0&, SND_SYNC Or SND_FILENAME)
Else
Exit Sub
End If
End Sub
