Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Fonctions API (?) et versions de Windows

Fonctions API (?) et versions de Windows

35 réponses
Avatar
ManBas
Bonjour à tous,
Selon une solution d'Excelabo j'ai recopié le code suivant pour émettre un
son wav:

Declare Function sndPlaySound32 Lib "C:\WINDOWS\SYSTEM32\winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long

Sub SonEssai_wav()
Call sndPlaySound32(ThisWorkbook.Path & "\SonEssai.Wav", 0)
End Sub

C'est génial et tout baigne...dans WinXP.
Echec de la ligne:
Call sndPlaySound32(ThisWorkbook.Path & "\SonEssai.Wav", 0)
...dans 98 et NT2000.
Que puis-je faire pour corriger l'anomalie ? (restons cool, mon niveau ne
dépasse guère le mimétisme).
Merci d'avance.
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3 4
Avatar
michdenis
fichier exemple : http://cjoint.com/?citCEJeRaS


Salutations!


"ManBas" a écrit dans le message de news:
Le son en question c'est WinXP Ding.
(Mais il se produit aussi dans win98)


"michdenis" a écrit dans le message de news:

| le son renvoyé demeure un son système et pas le SonEssai...

Qu'est-ce que cela veut dire ? Que ton fichier .Wav ne s'exécute pas ?

Peux-tu faire jouer un fichier .Wav de Windows avec une ligne de
code similaire ?


Salutations!



"michdenis" a écrit dans le message de news:
%23W$
Bonjour Manbas,

'----------------------
Sub JouerSon()
Dim File As String
File = ThisWorkbook.Path & "SonEssai.Wav"
PlaySound File, ByVal 0&, SND_FILENAME Or SND_ASYNC
End Sub
'----------------------


Salutations!


"ManBas" a écrit dans le message de news:
%
Merci MichDenis. J'ai le même problème que pour la réponse de LSteph:
dans
la procédure je ne parviens plus à replacer mon "SonEssai".

"michdenis" a écrit dans le message de news:

Bonjour ManBas,

Cet API incluant les constantes devraient fonctionner je crois de
Windows
95 à windows XP

'Déclaration dans le haut du module : Source : URL:
http://www.allapi.net/
Private Const SND_APPLICATION = &H80 ' look for application specific
association
Private Const SND_ALIAS = &H10000 ' name is a WIN.INI [sounds] entry
Private Const SND_ALIAS_ID = &H110000 ' name is a WIN.INI [sounds] entry
identifier
Private Const SND_ASYNC = &H1 ' play asynchronously
Private Const SND_FILENAME = &H20000 ' name is a file name
Private Const SND_LOOP = &H8 ' loop the sound until next sndPlaySound
Private Const SND_MEMORY = &H4 ' lpszSoundName points to a memory file
Private Const SND_NODEFAULT = &H2 ' silence not default, if sound not
found
Private Const SND_NOSTOP = &H10 ' don't stop any currently playing sound
Private Const SND_NOWAIT = &H2000 ' don't wait if the driver is busy
Private Const SND_PURGE = &H40 ' purge non-static events for task
Private Const SND_RESOURCE = &H40004 ' name is a resource name or atom
Private Const SND_SYNC = &H0 ' play synchronously (default)
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA"
(ByVal lpszName As String, ByVal hModule As Long, ByVal
dwFlags As Long) As Long

Sub JouerSon()
PlaySound "C:WINDOWSMEDIATADA.WAV", ByVal 0&, SND_FILENAME Or
SND_ASYNC
End Sub


Salutations!



"ManBas" a écrit dans le message de news:

Bonjour MichDenis,
Effectivement ça marche bien dans 98. Demain je chercherai le fichier
dans
NT2000.
Merci de ton aide.
Pourrais-tu STP m'écrire les lignes qui introduisent "si le système
d'application est ..."?


"michdenis" a écrit dans le message de news:

Bonjour ManBas,

Sous toute réserve ...

Le répertoire "System32" n'existe pas sous Windows 98, tu devrais le
remplacer par "System"
dans la ligne de déclaration de l'API.

Mais la meilleure façon, est de rechercher le fichier "winmm.dll " dans
l'arborescence de
l'explorateur windows et d'adapter selon la version du système
d'opération
le chemin
dans la déclaration de l'API.


Salutations!


"ManBas" a écrit dans le message de news:

Bonjour à tous,
Selon une solution d'Excelabo j'ai recopié le code suivant pour émettre
un
son wav:

Declare Function sndPlaySound32 Lib "C:WINDOWSSYSTEM32winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long

Sub SonEssai_wav()
Call sndPlaySound32(ThisWorkbook.Path & "SonEssai.Wav", 0)
End Sub

C'est génial et tout baigne...dans WinXP.
Echec de la ligne:
Call sndPlaySound32(ThisWorkbook.Path & "SonEssai.Wav", 0)
...dans 98 et NT2000.
Que puis-je faire pour corriger l'anomalie ? (restons cool, mon niveau
ne
dépasse guère le mimétisme).
Merci d'avance.


















Avatar
ManBas
Idem http://cjoint.com/?citOofTY5T
A plus

"michdenis" a écrit dans le message de news:

fichier exemple : http://cjoint.com/?citCEJeRaS


Salutations!


"ManBas" a écrit dans le message de news:

Le son en question c'est WinXP Ding.
(Mais il se produit aussi dans win98)


"michdenis" a écrit dans le message de news:

| le son renvoyé demeure un son système et pas le SonEssai...

Qu'est-ce que cela veut dire ? Que ton fichier .Wav ne s'exécute pas ?

Peux-tu faire jouer un fichier .Wav de Windows avec une ligne de
code similaire ?


Salutations!



"michdenis" a écrit dans le message de news:
%23W$
Bonjour Manbas,

'----------------------
Sub JouerSon()
Dim File As String
File = ThisWorkbook.Path & "SonEssai.Wav"
PlaySound File, ByVal 0&, SND_FILENAME Or SND_ASYNC
End Sub
'----------------------


Salutations!


"ManBas" a écrit dans le message de news:
%
Merci MichDenis. J'ai le même problème que pour la réponse de LSteph:
dans
la procédure je ne parviens plus à replacer mon "SonEssai".

"michdenis" a écrit dans le message de news:

Bonjour ManBas,

Cet API incluant les constantes devraient fonctionner je crois de
Windows
95 à windows XP

'Déclaration dans le haut du module : Source : URL:
http://www.allapi.net/
Private Const SND_APPLICATION = &H80 ' look for application specific
association
Private Const SND_ALIAS = &H10000 ' name is a WIN.INI [sounds] entry
Private Const SND_ALIAS_ID = &H110000 ' name is a WIN.INI [sounds]
entry
identifier
Private Const SND_ASYNC = &H1 ' play asynchronously
Private Const SND_FILENAME = &H20000 ' name is a file name
Private Const SND_LOOP = &H8 ' loop the sound until next sndPlaySound
Private Const SND_MEMORY = &H4 ' lpszSoundName points to a memory file
Private Const SND_NODEFAULT = &H2 ' silence not default, if sound not
found
Private Const SND_NOSTOP = &H10 ' don't stop any currently playing
sound
Private Const SND_NOWAIT = &H2000 ' don't wait if the driver is busy
Private Const SND_PURGE = &H40 ' purge non-static events for task
Private Const SND_RESOURCE = &H40004 ' name is a resource name or atom
Private Const SND_SYNC = &H0 ' play synchronously (default)
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA"
(ByVal lpszName As String, ByVal hModule As Long, ByVal
dwFlags As Long) As Long

Sub JouerSon()
PlaySound "C:WINDOWSMEDIATADA.WAV", ByVal 0&, SND_FILENAME Or
SND_ASYNC
End Sub


Salutations!



"ManBas" a écrit dans le message de news:

Bonjour MichDenis,
Effectivement ça marche bien dans 98. Demain je chercherai le fichier
dans
NT2000.
Merci de ton aide.
Pourrais-tu STP m'écrire les lignes qui introduisent "si le système
d'application est ..."?


"michdenis" a écrit dans le message de news:

Bonjour ManBas,

Sous toute réserve ...

Le répertoire "System32" n'existe pas sous Windows 98, tu devrais le
remplacer par "System"
dans la ligne de déclaration de l'API.

Mais la meilleure façon, est de rechercher le fichier "winmm.dll "
dans
l'arborescence de
l'explorateur windows et d'adapter selon la version du système
d'opération
le chemin
dans la déclaration de l'API.


Salutations!


"ManBas" a écrit dans le message de
news:

Bonjour à tous,
Selon une solution d'Excelabo j'ai recopié le code suivant pour
émettre
un
son wav:

Declare Function sndPlaySound32 Lib "C:WINDOWSSYSTEM32winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long

Sub SonEssai_wav()
Call sndPlaySound32(ThisWorkbook.Path & "SonEssai.Wav", 0)
End Sub

C'est génial et tout baigne...dans WinXP.
Echec de la ligne:
Call sndPlaySound32(ThisWorkbook.Path & "SonEssai.Wav", 0)
...dans 98 et NT2000.
Que puis-je faire pour corriger l'anomalie ? (restons cool, mon niveau
ne
dépasse guère le mimétisme).
Merci d'avance.























Avatar
michdenis
Ton fichier s'exécute sans aucune difficulté sur ma machine et ce, sans aucune intervention de ma part.


Salutations!


"ManBas" a écrit dans le message de news:
Idem http://cjoint.com/?citOofTY5T
A plus

"michdenis" a écrit dans le message de news:

fichier exemple : http://cjoint.com/?citCEJeRaS


Salutations!


"ManBas" a écrit dans le message de news:

Le son en question c'est WinXP Ding.
(Mais il se produit aussi dans win98)


"michdenis" a écrit dans le message de news:

| le son renvoyé demeure un son système et pas le SonEssai...

Qu'est-ce que cela veut dire ? Que ton fichier .Wav ne s'exécute pas ?

Peux-tu faire jouer un fichier .Wav de Windows avec une ligne de
code similaire ?


Salutations!



"michdenis" a écrit dans le message de news:
%23W$
Bonjour Manbas,

'----------------------
Sub JouerSon()
Dim File As String
File = ThisWorkbook.Path & "SonEssai.Wav"
PlaySound File, ByVal 0&, SND_FILENAME Or SND_ASYNC
End Sub
'----------------------


Salutations!


"ManBas" a écrit dans le message de news:
%
Merci MichDenis. J'ai le même problème que pour la réponse de LSteph:
dans
la procédure je ne parviens plus à replacer mon "SonEssai".

"michdenis" a écrit dans le message de news:

Bonjour ManBas,

Cet API incluant les constantes devraient fonctionner je crois de
Windows
95 à windows XP

'Déclaration dans le haut du module : Source : URL:
http://www.allapi.net/
Private Const SND_APPLICATION = &H80 ' look for application specific
association
Private Const SND_ALIAS = &H10000 ' name is a WIN.INI [sounds] entry
Private Const SND_ALIAS_ID = &H110000 ' name is a WIN.INI [sounds]
entry
identifier
Private Const SND_ASYNC = &H1 ' play asynchronously
Private Const SND_FILENAME = &H20000 ' name is a file name
Private Const SND_LOOP = &H8 ' loop the sound until next sndPlaySound
Private Const SND_MEMORY = &H4 ' lpszSoundName points to a memory file
Private Const SND_NODEFAULT = &H2 ' silence not default, if sound not
found
Private Const SND_NOSTOP = &H10 ' don't stop any currently playing
sound
Private Const SND_NOWAIT = &H2000 ' don't wait if the driver is busy
Private Const SND_PURGE = &H40 ' purge non-static events for task
Private Const SND_RESOURCE = &H40004 ' name is a resource name or atom
Private Const SND_SYNC = &H0 ' play synchronously (default)
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA"
(ByVal lpszName As String, ByVal hModule As Long, ByVal
dwFlags As Long) As Long

Sub JouerSon()
PlaySound "C:WINDOWSMEDIATADA.WAV", ByVal 0&, SND_FILENAME Or
SND_ASYNC
End Sub


Salutations!



"ManBas" a écrit dans le message de news:

Bonjour MichDenis,
Effectivement ça marche bien dans 98. Demain je chercherai le fichier
dans
NT2000.
Merci de ton aide.
Pourrais-tu STP m'écrire les lignes qui introduisent "si le système
d'application est ..."?


"michdenis" a écrit dans le message de news:

Bonjour ManBas,

Sous toute réserve ...

Le répertoire "System32" n'existe pas sous Windows 98, tu devrais le
remplacer par "System"
dans la ligne de déclaration de l'API.

Mais la meilleure façon, est de rechercher le fichier "winmm.dll "
dans
l'arborescence de
l'explorateur windows et d'adapter selon la version du système
d'opération
le chemin
dans la déclaration de l'API.


Salutations!


"ManBas" a écrit dans le message de
news:

Bonjour à tous,
Selon une solution d'Excelabo j'ai recopié le code suivant pour
émettre
un
son wav:

Declare Function sndPlaySound32 Lib "C:WINDOWSSYSTEM32winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long

Sub SonEssai_wav()
Call sndPlaySound32(ThisWorkbook.Path & "SonEssai.Wav", 0)
End Sub

C'est génial et tout baigne...dans WinXP.
Echec de la ligne:
Call sndPlaySound32(ThisWorkbook.Path & "SonEssai.Wav", 0)
...dans 98 et NT2000.
Que puis-je faire pour corriger l'anomalie ? (restons cool, mon niveau
ne
dépasse guère le mimétisme).
Merci d'avance.























Avatar
ManBas
Y compris avec les "nouveaux codes"?
ça c'est fort!
"michdenis" a écrit dans le message de news:

Ton fichier s'exécute sans aucune difficulté sur ma machine et ce, sans
aucune intervention de ma part.


Salutations!


"ManBas" a écrit dans le message de news:

Idem http://cjoint.com/?citOofTY5T
A plus

"michdenis" a écrit dans le message de news:

fichier exemple : http://cjoint.com/?citCEJeRaS


Salutations!


"ManBas" a écrit dans le message de news:

Le son en question c'est WinXP Ding.
(Mais il se produit aussi dans win98)


"michdenis" a écrit dans le message de news:

| le son renvoyé demeure un son système et pas le SonEssai...

Qu'est-ce que cela veut dire ? Que ton fichier .Wav ne s'exécute pas ?

Peux-tu faire jouer un fichier .Wav de Windows avec une ligne de
code similaire ?


Salutations!



"michdenis" a écrit dans le message de news:
%23W$
Bonjour Manbas,

'----------------------
Sub JouerSon()
Dim File As String
File = ThisWorkbook.Path & "SonEssai.Wav"
PlaySound File, ByVal 0&, SND_FILENAME Or SND_ASYNC
End Sub
'----------------------


Salutations!


"ManBas" a écrit dans le message de news:
%
Merci MichDenis. J'ai le même problème que pour la réponse de LSteph:
dans
la procédure je ne parviens plus à replacer mon "SonEssai".

"michdenis" a écrit dans le message de news:

Bonjour ManBas,

Cet API incluant les constantes devraient fonctionner je crois de
Windows
95 à windows XP

'Déclaration dans le haut du module : Source : URL:
http://www.allapi.net/
Private Const SND_APPLICATION = &H80 ' look for application specific
association
Private Const SND_ALIAS = &H10000 ' name is a WIN.INI [sounds] entry
Private Const SND_ALIAS_ID = &H110000 ' name is a WIN.INI [sounds]
entry
identifier
Private Const SND_ASYNC = &H1 ' play asynchronously
Private Const SND_FILENAME = &H20000 ' name is a file name
Private Const SND_LOOP = &H8 ' loop the sound until next sndPlaySound
Private Const SND_MEMORY = &H4 ' lpszSoundName points to a memory file
Private Const SND_NODEFAULT = &H2 ' silence not default, if sound not
found
Private Const SND_NOSTOP = &H10 ' don't stop any currently playing
sound
Private Const SND_NOWAIT = &H2000 ' don't wait if the driver is busy
Private Const SND_PURGE = &H40 ' purge non-static events for task
Private Const SND_RESOURCE = &H40004 ' name is a resource name or atom
Private Const SND_SYNC = &H0 ' play synchronously (default)
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA"
(ByVal lpszName As String, ByVal hModule As Long, ByVal
dwFlags As Long) As Long

Sub JouerSon()
PlaySound "C:WINDOWSMEDIATADA.WAV", ByVal 0&, SND_FILENAME Or
SND_ASYNC
End Sub


Salutations!



"ManBas" a écrit dans le message de
news:

Bonjour MichDenis,
Effectivement ça marche bien dans 98. Demain je chercherai le fichier
dans
NT2000.
Merci de ton aide.
Pourrais-tu STP m'écrire les lignes qui introduisent "si le système
d'application est ..."?


"michdenis" a écrit dans le message de news:

Bonjour ManBas,

Sous toute réserve ...

Le répertoire "System32" n'existe pas sous Windows 98, tu devrais le
remplacer par "System"
dans la ligne de déclaration de l'API.

Mais la meilleure façon, est de rechercher le fichier "winmm.dll "
dans
l'arborescence de
l'explorateur windows et d'adapter selon la version du système
d'opération
le chemin
dans la déclaration de l'API.


Salutations!


"ManBas" a écrit dans le message de
news:

Bonjour à tous,
Selon une solution d'Excelabo j'ai recopié le code suivant pour
émettre
un
son wav:

Declare Function sndPlaySound32 Lib "C:WINDOWSSYSTEM32winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long

Sub SonEssai_wav()
Call sndPlaySound32(ThisWorkbook.Path & "SonEssai.Wav", 0)
End Sub

C'est génial et tout baigne...dans WinXP.
Echec de la ligne:
Call sndPlaySound32(ThisWorkbook.Path & "SonEssai.Wav", 0)
...dans 98 et NT2000.
Que puis-je faire pour corriger l'anomalie ? (restons cool, mon
niveau
ne
dépasse guère le mimétisme).
Merci d'avance.




























Avatar
LSteph
chez moi
(2003) le tien n'emet aucun son celui de MichDenis oui!

"ManBas" a écrit dans le message de news:

Y compris avec les "nouveaux codes"?
ça c'est fort!
"michdenis" a écrit dans le message de news:

Ton fichier s'exécute sans aucune difficulté sur ma machine et ce, sans
aucune intervention de ma part.


Salutations!


"ManBas" a écrit dans le message de news:

Idem http://cjoint.com/?citOofTY5T
A plus

"michdenis" a écrit dans le message de news:

fichier exemple : http://cjoint.com/?citCEJeRaS


Salutations!


"ManBas" a écrit dans le message de news:

Le son en question c'est WinXP Ding.
(Mais il se produit aussi dans win98)


"michdenis" a écrit dans le message de news:

| le son renvoyé demeure un son système et pas le SonEssai...

Qu'est-ce que cela veut dire ? Que ton fichier .Wav ne s'exécute pas ?

Peux-tu faire jouer un fichier .Wav de Windows avec une ligne de
code similaire ?


Salutations!



"michdenis" a écrit dans le message de news:
%23W$
Bonjour Manbas,

'----------------------
Sub JouerSon()
Dim File As String
File = ThisWorkbook.Path & "SonEssai.Wav"
PlaySound File, ByVal 0&, SND_FILENAME Or SND_ASYNC
End Sub
'----------------------


Salutations!


"ManBas" a écrit dans le message de
news:
%
Merci MichDenis. J'ai le même problème que pour la réponse de LSteph:
dans
la procédure je ne parviens plus à replacer mon "SonEssai".

"michdenis" a écrit dans le message de news:

Bonjour ManBas,

Cet API incluant les constantes devraient fonctionner je crois de
Windows
95 à windows XP

'Déclaration dans le haut du module : Source : URL:
http://www.allapi.net/
Private Const SND_APPLICATION = &H80 ' look for application specific
association
Private Const SND_ALIAS = &H10000 ' name is a WIN.INI [sounds] entry
Private Const SND_ALIAS_ID = &H110000 ' name is a WIN.INI [sounds]
entry
identifier
Private Const SND_ASYNC = &H1 ' play asynchronously
Private Const SND_FILENAME = &H20000 ' name is a file name
Private Const SND_LOOP = &H8 ' loop the sound until next sndPlaySound
Private Const SND_MEMORY = &H4 ' lpszSoundName points to a memory
file
Private Const SND_NODEFAULT = &H2 ' silence not default, if sound not
found
Private Const SND_NOSTOP = &H10 ' don't stop any currently playing
sound
Private Const SND_NOWAIT = &H2000 ' don't wait if the driver is busy
Private Const SND_PURGE = &H40 ' purge non-static events for task
Private Const SND_RESOURCE = &H40004 ' name is a resource name or
atom
Private Const SND_SYNC = &H0 ' play synchronously (default)
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA"
(ByVal lpszName As String, ByVal hModule As Long, ByVal
dwFlags As Long) As Long

Sub JouerSon()
PlaySound "C:WINDOWSMEDIATADA.WAV", ByVal 0&, SND_FILENAME Or
SND_ASYNC
End Sub


Salutations!



"ManBas" a écrit dans le message de
news:

Bonjour MichDenis,
Effectivement ça marche bien dans 98. Demain je chercherai le fichier
dans
NT2000.
Merci de ton aide.
Pourrais-tu STP m'écrire les lignes qui introduisent "si le système
d'application est ..."?


"michdenis" a écrit dans le message de news:

Bonjour ManBas,

Sous toute réserve ...

Le répertoire "System32" n'existe pas sous Windows 98, tu devrais le
remplacer par "System"
dans la ligne de déclaration de l'API.

Mais la meilleure façon, est de rechercher le fichier "winmm.dll "
dans
l'arborescence de
l'explorateur windows et d'adapter selon la version du système
d'opération
le chemin
dans la déclaration de l'API.


Salutations!


"ManBas" a écrit dans le message de
news:

Bonjour à tous,
Selon une solution d'Excelabo j'ai recopié le code suivant pour
émettre
un
son wav:

Declare Function sndPlaySound32 Lib "C:WINDOWSSYSTEM32winmm.dll"
_
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long

Sub SonEssai_wav()
Call sndPlaySound32(ThisWorkbook.Path & "SonEssai.Wav", 0)
End Sub

C'est génial et tout baigne...dans WinXP.
Echec de la ligne:
Call sndPlaySound32(ThisWorkbook.Path & "SonEssai.Wav", 0)
...dans 98 et NT2000.
Que puis-je faire pour corriger l'anomalie ? (restons cool, mon
niveau
ne
dépasse guère le mimétisme).
Merci d'avance.
































Avatar
LSteph
je parle du dernier avec sndplaysound32 c'est surement pour cela!
"ManBas" a écrit dans le message de news:

Y compris avec les "nouveaux codes"?
ça c'est fort!
"michdenis" a écrit dans le message de news:

Ton fichier s'exécute sans aucune difficulté sur ma machine et ce, sans
aucune intervention de ma part.


Salutations!


"ManBas" a écrit dans le message de news:

Idem http://cjoint.com/?citOofTY5T
A plus

"michdenis" a écrit dans le message de news:

fichier exemple : http://cjoint.com/?citCEJeRaS


Salutations!


"ManBas" a écrit dans le message de news:

Le son en question c'est WinXP Ding.
(Mais il se produit aussi dans win98)


"michdenis" a écrit dans le message de news:

| le son renvoyé demeure un son système et pas le SonEssai...

Qu'est-ce que cela veut dire ? Que ton fichier .Wav ne s'exécute pas ?

Peux-tu faire jouer un fichier .Wav de Windows avec une ligne de
code similaire ?


Salutations!



"michdenis" a écrit dans le message de news:
%23W$
Bonjour Manbas,

'----------------------
Sub JouerSon()
Dim File As String
File = ThisWorkbook.Path & "SonEssai.Wav"
PlaySound File, ByVal 0&, SND_FILENAME Or SND_ASYNC
End Sub
'----------------------


Salutations!


"ManBas" a écrit dans le message de
news:
%
Merci MichDenis. J'ai le même problème que pour la réponse de LSteph:
dans
la procédure je ne parviens plus à replacer mon "SonEssai".

"michdenis" a écrit dans le message de news:

Bonjour ManBas,

Cet API incluant les constantes devraient fonctionner je crois de
Windows
95 à windows XP

'Déclaration dans le haut du module : Source : URL:
http://www.allapi.net/
Private Const SND_APPLICATION = &H80 ' look for application specific
association
Private Const SND_ALIAS = &H10000 ' name is a WIN.INI [sounds] entry
Private Const SND_ALIAS_ID = &H110000 ' name is a WIN.INI [sounds]
entry
identifier
Private Const SND_ASYNC = &H1 ' play asynchronously
Private Const SND_FILENAME = &H20000 ' name is a file name
Private Const SND_LOOP = &H8 ' loop the sound until next sndPlaySound
Private Const SND_MEMORY = &H4 ' lpszSoundName points to a memory
file
Private Const SND_NODEFAULT = &H2 ' silence not default, if sound not
found
Private Const SND_NOSTOP = &H10 ' don't stop any currently playing
sound
Private Const SND_NOWAIT = &H2000 ' don't wait if the driver is busy
Private Const SND_PURGE = &H40 ' purge non-static events for task
Private Const SND_RESOURCE = &H40004 ' name is a resource name or
atom
Private Const SND_SYNC = &H0 ' play synchronously (default)
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA"
(ByVal lpszName As String, ByVal hModule As Long, ByVal
dwFlags As Long) As Long

Sub JouerSon()
PlaySound "C:WINDOWSMEDIATADA.WAV", ByVal 0&, SND_FILENAME Or
SND_ASYNC
End Sub


Salutations!



"ManBas" a écrit dans le message de
news:

Bonjour MichDenis,
Effectivement ça marche bien dans 98. Demain je chercherai le fichier
dans
NT2000.
Merci de ton aide.
Pourrais-tu STP m'écrire les lignes qui introduisent "si le système
d'application est ..."?


"michdenis" a écrit dans le message de news:

Bonjour ManBas,

Sous toute réserve ...

Le répertoire "System32" n'existe pas sous Windows 98, tu devrais le
remplacer par "System"
dans la ligne de déclaration de l'API.

Mais la meilleure façon, est de rechercher le fichier "winmm.dll "
dans
l'arborescence de
l'explorateur windows et d'adapter selon la version du système
d'opération
le chemin
dans la déclaration de l'API.


Salutations!


"ManBas" a écrit dans le message de
news:

Bonjour à tous,
Selon une solution d'Excelabo j'ai recopié le code suivant pour
émettre
un
son wav:

Declare Function sndPlaySound32 Lib "C:WINDOWSSYSTEM32winmm.dll"
_
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long

Sub SonEssai_wav()
Call sndPlaySound32(ThisWorkbook.Path & "SonEssai.Wav", 0)
End Sub

C'est génial et tout baigne...dans WinXP.
Echec de la ligne:
Call sndPlaySound32(ThisWorkbook.Path & "SonEssai.Wav", 0)
...dans 98 et NT2000.
Que puis-je faire pour corriger l'anomalie ? (restons cool, mon
niveau
ne
dépasse guère le mimétisme).
Merci d'avance.
































Avatar
michdenis
Bonjour vous deux,

Il y a toujours moyen de récupérer vos vieux ordinateurs
pour en faire des neufs pour les pays en voie de développement !!!

Celui de JPS a été cependant refusé.... il était trop vieux !!!

;-))))


Salutations!



"LSteph" a écrit dans le message de news: %
chez moi
(2003) le tien n'emet aucun son celui de MichDenis oui!

"ManBas" a écrit dans le message de news:

Y compris avec les "nouveaux codes"?
ça c'est fort!
"michdenis" a écrit dans le message de news:

Ton fichier s'exécute sans aucune difficulté sur ma machine et ce, sans
aucune intervention de ma part.


Salutations!


"ManBas" a écrit dans le message de news:

Idem http://cjoint.com/?citOofTY5T
A plus

"michdenis" a écrit dans le message de news:

fichier exemple : http://cjoint.com/?citCEJeRaS


Salutations!


"ManBas" a écrit dans le message de news:

Le son en question c'est WinXP Ding.
(Mais il se produit aussi dans win98)


"michdenis" a écrit dans le message de news:

| le son renvoyé demeure un son système et pas le SonEssai...

Qu'est-ce que cela veut dire ? Que ton fichier .Wav ne s'exécute pas ?

Peux-tu faire jouer un fichier .Wav de Windows avec une ligne de
code similaire ?


Salutations!



"michdenis" a écrit dans le message de news:
%23W$
Bonjour Manbas,

'----------------------
Sub JouerSon()
Dim File As String
File = ThisWorkbook.Path & "SonEssai.Wav"
PlaySound File, ByVal 0&, SND_FILENAME Or SND_ASYNC
End Sub
'----------------------


Salutations!


"ManBas" a écrit dans le message de
news:
%
Merci MichDenis. J'ai le même problème que pour la réponse de LSteph:
dans
la procédure je ne parviens plus à replacer mon "SonEssai".

"michdenis" a écrit dans le message de news:

Bonjour ManBas,

Cet API incluant les constantes devraient fonctionner je crois de
Windows
95 à windows XP

'Déclaration dans le haut du module : Source : URL:
http://www.allapi.net/
Private Const SND_APPLICATION = &H80 ' look for application specific
association
Private Const SND_ALIAS = &H10000 ' name is a WIN.INI [sounds] entry
Private Const SND_ALIAS_ID = &H110000 ' name is a WIN.INI [sounds]
entry
identifier
Private Const SND_ASYNC = &H1 ' play asynchronously
Private Const SND_FILENAME = &H20000 ' name is a file name
Private Const SND_LOOP = &H8 ' loop the sound until next sndPlaySound
Private Const SND_MEMORY = &H4 ' lpszSoundName points to a memory
file
Private Const SND_NODEFAULT = &H2 ' silence not default, if sound not
found
Private Const SND_NOSTOP = &H10 ' don't stop any currently playing
sound
Private Const SND_NOWAIT = &H2000 ' don't wait if the driver is busy
Private Const SND_PURGE = &H40 ' purge non-static events for task
Private Const SND_RESOURCE = &H40004 ' name is a resource name or
atom
Private Const SND_SYNC = &H0 ' play synchronously (default)
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA"
(ByVal lpszName As String, ByVal hModule As Long, ByVal
dwFlags As Long) As Long

Sub JouerSon()
PlaySound "C:WINDOWSMEDIATADA.WAV", ByVal 0&, SND_FILENAME Or
SND_ASYNC
End Sub


Salutations!



"ManBas" a écrit dans le message de
news:

Bonjour MichDenis,
Effectivement ça marche bien dans 98. Demain je chercherai le fichier
dans
NT2000.
Merci de ton aide.
Pourrais-tu STP m'écrire les lignes qui introduisent "si le système
d'application est ..."?


"michdenis" a écrit dans le message de news:

Bonjour ManBas,

Sous toute réserve ...

Le répertoire "System32" n'existe pas sous Windows 98, tu devrais le
remplacer par "System"
dans la ligne de déclaration de l'API.

Mais la meilleure façon, est de rechercher le fichier "winmm.dll "
dans
l'arborescence de
l'explorateur windows et d'adapter selon la version du système
d'opération
le chemin
dans la déclaration de l'API.


Salutations!


"ManBas" a écrit dans le message de
news:

Bonjour à tous,
Selon une solution d'Excelabo j'ai recopié le code suivant pour
émettre
un
son wav:

Declare Function sndPlaySound32 Lib "C:WINDOWSSYSTEM32winmm.dll"
_
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long

Sub SonEssai_wav()
Call sndPlaySound32(ThisWorkbook.Path & "SonEssai.Wav", 0)
End Sub

C'est génial et tout baigne...dans WinXP.
Echec de la ligne:
Call sndPlaySound32(ThisWorkbook.Path & "SonEssai.Wav", 0)
...dans 98 et NT2000.
Que puis-je faire pour corriger l'anomalie ? (restons cool, mon
niveau
ne
dépasse guère le mimétisme).
Merci d'avance.
































Avatar
ManBas
Moi je suis en winXP et 2000, puis en win98 et XL 2000.
Celui de MichDenis fonctionne normalement sur XP avec le sonEssai, mais en
win98 le son Ding persiste à la place du sonEssai.
L'ancienne version fonctionne sur les deux à condition de donner le bon
chemin de la dll (system32 ou system).
Une histoire de ouf!

"LSteph" a écrit dans le message de news:
%
chez moi
(2003) le tien n'emet aucun son celui de MichDenis oui!

"ManBas" a écrit dans le message de news:

Y compris avec les "nouveaux codes"?
ça c'est fort!
"michdenis" a écrit dans le message de news:

Ton fichier s'exécute sans aucune difficulté sur ma machine et ce, sans
aucune intervention de ma part.


Salutations!


"ManBas" a écrit dans le message de news:

Idem http://cjoint.com/?citOofTY5T
A plus

"michdenis" a écrit dans le message de news:

fichier exemple : http://cjoint.com/?citCEJeRaS


Salutations!


"ManBas" a écrit dans le message de news:

Le son en question c'est WinXP Ding.
(Mais il se produit aussi dans win98)


"michdenis" a écrit dans le message de news:

| le son renvoyé demeure un son système et pas le SonEssai...

Qu'est-ce que cela veut dire ? Que ton fichier .Wav ne s'exécute pas ?

Peux-tu faire jouer un fichier .Wav de Windows avec une ligne de
code similaire ?


Salutations!



"michdenis" a écrit dans le message de news:
%23W$
Bonjour Manbas,

'----------------------
Sub JouerSon()
Dim File As String
File = ThisWorkbook.Path & "SonEssai.Wav"
PlaySound File, ByVal 0&, SND_FILENAME Or SND_ASYNC
End Sub
'----------------------


Salutations!


"ManBas" a écrit dans le message de
news:
%
Merci MichDenis. J'ai le même problème que pour la réponse de LSteph:
dans
la procédure je ne parviens plus à replacer mon "SonEssai".

"michdenis" a écrit dans le message de news:

Bonjour ManBas,

Cet API incluant les constantes devraient fonctionner je crois de
Windows
95 à windows XP

'Déclaration dans le haut du module : Source : URL:
http://www.allapi.net/
Private Const SND_APPLICATION = &H80 ' look for application specific
association
Private Const SND_ALIAS = &H10000 ' name is a WIN.INI [sounds] entry
Private Const SND_ALIAS_ID = &H110000 ' name is a WIN.INI [sounds]
entry
identifier
Private Const SND_ASYNC = &H1 ' play asynchronously
Private Const SND_FILENAME = &H20000 ' name is a file name
Private Const SND_LOOP = &H8 ' loop the sound until next
sndPlaySound
Private Const SND_MEMORY = &H4 ' lpszSoundName points to a memory
file
Private Const SND_NODEFAULT = &H2 ' silence not default, if sound
not
found
Private Const SND_NOSTOP = &H10 ' don't stop any currently playing
sound
Private Const SND_NOWAIT = &H2000 ' don't wait if the driver is busy
Private Const SND_PURGE = &H40 ' purge non-static events for task
Private Const SND_RESOURCE = &H40004 ' name is a resource name or
atom
Private Const SND_SYNC = &H0 ' play synchronously (default)
Private Declare Function PlaySound Lib "winmm.dll" Alias
"PlaySoundA"
(ByVal lpszName As String, ByVal hModule As Long, ByVal
dwFlags As Long) As Long

Sub JouerSon()
PlaySound "C:WINDOWSMEDIATADA.WAV", ByVal 0&, SND_FILENAME Or
SND_ASYNC
End Sub


Salutations!



"ManBas" a écrit dans le message de
news:

Bonjour MichDenis,
Effectivement ça marche bien dans 98. Demain je chercherai le
fichier
dans
NT2000.
Merci de ton aide.
Pourrais-tu STP m'écrire les lignes qui introduisent "si le système
d'application est ..."?


"michdenis" a écrit dans le message de news:

Bonjour ManBas,

Sous toute réserve ...

Le répertoire "System32" n'existe pas sous Windows 98, tu devrais
le
remplacer par "System"
dans la ligne de déclaration de l'API.

Mais la meilleure façon, est de rechercher le fichier "winmm.dll "
dans
l'arborescence de
l'explorateur windows et d'adapter selon la version du système
d'opération
le chemin
dans la déclaration de l'API.


Salutations!


"ManBas" a écrit dans le message de
news:

Bonjour à tous,
Selon une solution d'Excelabo j'ai recopié le code suivant pour
émettre
un
son wav:

Declare Function sndPlaySound32 Lib "C:WINDOWSSYSTEM32winmm.dll"
_
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long

Sub SonEssai_wav()
Call sndPlaySound32(ThisWorkbook.Path & "SonEssai.Wav", 0)
End Sub

C'est génial et tout baigne...dans WinXP.
Echec de la ligne:
Call sndPlaySound32(ThisWorkbook.Path & "SonEssai.Wav", 0)
...dans 98 et NT2000.
Que puis-je faire pour corriger l'anomalie ? (restons cool, mon
niveau
ne
dépasse guère le mimétisme).
Merci d'avance.




































Avatar
isabelle
;-)
heu.. juste une balise pour ceusse moin présent ces temps ci.

isabelle

Bonjour vous deux,

Il y a toujours moyen de récupérer vos vieux ordinateurs
pour en faire des neufs pour les pays en voie de développement !!!

Celui de JPS a été cependant refusé.... il était trop vieux !!!

;-))))


Salutations!



"LSteph" a écrit dans le message de news: %
chez moi
(2003) le tien n'emet aucun son celui de MichDenis oui!

"ManBas" a écrit dans le message de news:


Y compris avec les "nouveaux codes"?
ça c'est fort!
"michdenis" a écrit dans le message de news:


Ton fichier s'exécute sans aucune difficulté sur ma machine et ce, sans
aucune intervention de ma part.


Salutations!


"ManBas" a écrit dans le message de news:

Idem http://cjoint.com/?citOofTY5T
A plus

"michdenis" a écrit dans le message de news:


fichier exemple : http://cjoint.com/?citCEJeRaS


Salutations!


"ManBas" a écrit dans le message de news:

Le son en question c'est WinXP Ding.
(Mais il se produit aussi dans win98)


"michdenis" a écrit dans le message de news:


| le son renvoyé demeure un son système et pas le SonEssai...

Qu'est-ce que cela veut dire ? Que ton fichier .Wav ne s'exécute pas ?

Peux-tu faire jouer un fichier .Wav de Windows avec une ligne de
code similaire ?


Salutations!



"michdenis" a écrit dans le message de news:
%23W$

Bonjour Manbas,

'----------------------
Sub JouerSon()
Dim File As String
File = ThisWorkbook.Path & "SonEssai.Wav"
PlaySound File, ByVal 0&, SND_FILENAME Or SND_ASYNC
End Sub
'----------------------


Salutations!


"ManBas" a écrit dans le message de
news:
%
Merci MichDenis. J'ai le même problème que pour la réponse de LSteph:
dans
la procédure je ne parviens plus à replacer mon "SonEssai".

"michdenis" a écrit dans le message de news:


Bonjour ManBas,

Cet API incluant les constantes devraient fonctionner je crois de
Windows
95 à windows XP

'Déclaration dans le haut du module : Source : URL:
http://www.allapi.net/
Private Const SND_APPLICATION = &H80 ' look for application specific
association
Private Const SND_ALIAS = &H10000 ' name is a WIN.INI [sounds] entry
Private Const SND_ALIAS_ID = &H110000 ' name is a WIN.INI [sounds]
entry
identifier
Private Const SND_ASYNC = &H1 ' play asynchronously
Private Const SND_FILENAME = &H20000 ' name is a file name
Private Const SND_LOOP = &H8 ' loop the sound until next sndPlaySound
Private Const SND_MEMORY = &H4 ' lpszSoundName points to a memory
file
Private Const SND_NODEFAULT = &H2 ' silence not default, if sound not
found
Private Const SND_NOSTOP = &H10 ' don't stop any currently playing
sound
Private Const SND_NOWAIT = &H2000 ' don't wait if the driver is busy
Private Const SND_PURGE = &H40 ' purge non-static events for task
Private Const SND_RESOURCE = &H40004 ' name is a resource name or
atom
Private Const SND_SYNC = &H0 ' play synchronously (default)
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA"
(ByVal lpszName As String, ByVal hModule As Long, ByVal
dwFlags As Long) As Long

Sub JouerSon()
PlaySound "C:WINDOWSMEDIATADA.WAV", ByVal 0&, SND_FILENAME Or
SND_ASYNC
End Sub


Salutations!



"ManBas" a écrit dans le message de
news:

Bonjour MichDenis,
Effectivement ça marche bien dans 98. Demain je chercherai le fichier
dans
NT2000.
Merci de ton aide.
Pourrais-tu STP m'écrire les lignes qui introduisent "si le système
d'application est ..."?


"michdenis" a écrit dans le message de news:


Bonjour ManBas,

Sous toute réserve ...

Le répertoire "System32" n'existe pas sous Windows 98, tu devrais le
remplacer par "System"
dans la ligne de déclaration de l'API.

Mais la meilleure façon, est de rechercher le fichier "winmm.dll "
dans
l'arborescence de
l'explorateur windows et d'adapter selon la version du système
d'opération
le chemin
dans la déclaration de l'API.


Salutations!


"ManBas" a écrit dans le message de
news:

Bonjour à tous,
Selon une solution d'Excelabo j'ai recopié le code suivant pour
émettre
un
son wav:

Declare Function sndPlaySound32 Lib "C:WINDOWSSYSTEM32winmm.dll"
_
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long

Sub SonEssai_wav()
Call sndPlaySound32(ThisWorkbook.Path & "SonEssai.Wav", 0)
End Sub

C'est génial et tout baigne...dans WinXP.
Echec de la ligne:
Call sndPlaySound32(ThisWorkbook.Path & "SonEssai.Wav", 0)
...dans 98 et NT2000.
Que puis-je faire pour corriger l'anomalie ? (restons cool, mon
niveau
ne
dépasse guère le mimétisme).
Merci d'avance.
































Avatar
jps
et tu mets cette balise juste pour me faire partager cette nouvelle infâmie
du michel du québec, isabelle?
l'a pas intérêt à se pointer dans le beaujolais, çui-là, car je lui mettrais
la tête dans un tonneau et il devra me dire quel âge ont les douves....
bises quand même isabelle
jps

"isabelle" a écrit dans le message de news:

;-)
heu.. juste une balise pour ceusse moin présent ces temps ci.

isabelle

Bonjour vous deux,

Il y a toujours moyen de récupérer vos vieux ordinateurs
pour en faire des neufs pour les pays en voie de développement !!!

Celui de JPS a été cependant refusé.... il était trop vieux !!!

;-))))


Salutations!



"LSteph" a écrit dans le message de news:
%
chez moi
(2003) le tien n'emet aucun son celui de MichDenis oui!

"ManBas" a écrit dans le message de news:


Y compris avec les "nouveaux codes"?
ça c'est fort!
"michdenis" a écrit dans le message de news:


Ton fichier s'exécute sans aucune difficulté sur ma machine et ce, sans
aucune intervention de ma part.


Salutations!


"ManBas" a écrit dans le message de news:

Idem http://cjoint.com/?citOofTY5T
A plus

"michdenis" a écrit dans le message de news:


fichier exemple : http://cjoint.com/?citCEJeRaS


Salutations!


"ManBas" a écrit dans le message de news:

Le son en question c'est WinXP Ding.
(Mais il se produit aussi dans win98)


"michdenis" a écrit dans le message de news:


| le son renvoyé demeure un son système et pas le SonEssai...

Qu'est-ce que cela veut dire ? Que ton fichier .Wav ne s'exécute pas ?

Peux-tu faire jouer un fichier .Wav de Windows avec une ligne de
code similaire ?


Salutations!



"michdenis" a écrit dans le message de news:
%23W$

Bonjour Manbas,

'----------------------
Sub JouerSon()
Dim File As String
File = ThisWorkbook.Path & "SonEssai.Wav"
PlaySound File, ByVal 0&, SND_FILENAME Or SND_ASYNC
End Sub
'----------------------


Salutations!


"ManBas" a écrit dans le message de
news:
%
Merci MichDenis. J'ai le même problème que pour la réponse de LSteph:
dans
la procédure je ne parviens plus à replacer mon "SonEssai".

"michdenis" a écrit dans le message de news:


Bonjour ManBas,

Cet API incluant les constantes devraient fonctionner je crois de
Windows
95 à windows XP

'Déclaration dans le haut du module : Source : URL:
http://www.allapi.net/
Private Const SND_APPLICATION = &H80 ' look for application specific
association
Private Const SND_ALIAS = &H10000 ' name is a WIN.INI [sounds] entry
Private Const SND_ALIAS_ID = &H110000 ' name is a WIN.INI [sounds]
entry
identifier
Private Const SND_ASYNC = &H1 ' play asynchronously
Private Const SND_FILENAME = &H20000 ' name is a file name
Private Const SND_LOOP = &H8 ' loop the sound until next
sndPlaySound
Private Const SND_MEMORY = &H4 ' lpszSoundName points to a memory
file
Private Const SND_NODEFAULT = &H2 ' silence not default, if sound
not
found
Private Const SND_NOSTOP = &H10 ' don't stop any currently playing
sound
Private Const SND_NOWAIT = &H2000 ' don't wait if the driver is busy
Private Const SND_PURGE = &H40 ' purge non-static events for task
Private Const SND_RESOURCE = &H40004 ' name is a resource name or
atom
Private Const SND_SYNC = &H0 ' play synchronously (default)
Private Declare Function PlaySound Lib "winmm.dll" Alias
"PlaySoundA"
(ByVal lpszName As String, ByVal hModule As Long, ByVal
dwFlags As Long) As Long

Sub JouerSon()
PlaySound "C:WINDOWSMEDIATADA.WAV", ByVal 0&, SND_FILENAME Or
SND_ASYNC
End Sub


Salutations!



"ManBas" a écrit dans le message de
news:

Bonjour MichDenis,
Effectivement ça marche bien dans 98. Demain je chercherai le
fichier
dans
NT2000.
Merci de ton aide.
Pourrais-tu STP m'écrire les lignes qui introduisent "si le système
d'application est ..."?


"michdenis" a écrit dans le message de news:


Bonjour ManBas,

Sous toute réserve ...

Le répertoire "System32" n'existe pas sous Windows 98, tu devrais
le
remplacer par "System"
dans la ligne de déclaration de l'API.

Mais la meilleure façon, est de rechercher le fichier "winmm.dll "
dans
l'arborescence de
l'explorateur windows et d'adapter selon la version du système
d'opération
le chemin
dans la déclaration de l'API.


Salutations!


"ManBas" a écrit dans le message de
news:

Bonjour à tous,
Selon une solution d'Excelabo j'ai recopié le code suivant pour
émettre
un
son wav:

Declare Function sndPlaySound32 Lib "C:WINDOWSSYSTEM32winmm.dll"
_
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long

Sub SonEssai_wav()
Call sndPlaySound32(ThisWorkbook.Path & "SonEssai.Wav", 0)
End Sub

C'est génial et tout baigne...dans WinXP.
Echec de la ligne:
Call sndPlaySound32(ThisWorkbook.Path & "SonEssai.Wav", 0)
...dans 98 et NT2000.
Que puis-je faire pour corriger l'anomalie ? (restons cool, mon
niveau
ne
dépasse guère le mimétisme).
Merci d'avance.

































1 2 3 4