Grâce à toutes vos pistes et à Bilou, j'ai enfin trouvé.
Voici la macro qui efface avec le son :
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA"
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Declare Function GetWindowsDirectoryA Lib "Kernel32" (ByVal lpBuffer
As String, ByVal nSize As Long) As Long
Sub PlayWav()
Call Gomme
Dim sBuf As String
Dim cSize As Long
Dim retval As Long
Dim Windir As String
'Create a variable large enough to store the Windows path.
sBuf = String(255, 0)
cSize = 255
'Get Windows Directory
retval = GetWindowsDirectoryA(sBuf, cSize)
'Strip buffer from Windows directory
Windir = Left(sBuf, retval)
'Load and Play the sound.
N = sndPlaySound(Windir + "\Media\Office97\Clear.wav", 0)
End Sub
Sub Gomme()
Selection.Delete
End Sub
Voila; c'est tout.
Fin de conversation
--
Cordialement
JL
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
Dom
Bonjour,
as-tu essayé les 2 macros que je t'ai proposées hier, autrement plus courtes que cette usine à gaz ?
Si elles ne fonctionnent pas chez toi, peux-tu l'indiquer pour qu'on ne reste pas sur une erreur ?
Merci d'avance,
Dom
Grâce à toutes vos pistes et à Bilou, j'ai enfin trouvé. Voici la macro qui efface avec le son : Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Declare Function GetWindowsDirectoryA Lib "Kernel32" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Sub PlayWav() Call Gomme Dim sBuf As String Dim cSize As Long Dim retval As Long Dim Windir As String 'Create a variable large enough to store the Windows path. sBuf = String(255, 0) cSize = 255 'Get Windows Directory retval = GetWindowsDirectoryA(sBuf, cSize) 'Strip buffer from Windows directory Windir = Left(sBuf, retval) 'Load and Play the sound. N = sndPlaySound(Windir + "MediaOffice97Clear.wav", 0) End Sub Sub Gomme() Selection.Delete End Sub
Voila; c'est tout. Fin de conversation -- Cordialement JL
Bonjour,
as-tu essayé les 2 macros que je t'ai proposées hier, autrement plus courtes
que cette usine à gaz ?
Si elles ne fonctionnent pas chez toi, peux-tu l'indiquer pour qu'on ne
reste pas sur une erreur ?
Merci d'avance,
Dom
Grâce à toutes vos pistes et à Bilou, j'ai enfin trouvé.
Voici la macro qui efface avec le son :
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA"
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Declare Function GetWindowsDirectoryA Lib "Kernel32" (ByVal lpBuffer
As String, ByVal nSize As Long) As Long
Sub PlayWav()
Call Gomme
Dim sBuf As String
Dim cSize As Long
Dim retval As Long
Dim Windir As String
'Create a variable large enough to store the Windows path.
sBuf = String(255, 0)
cSize = 255
'Get Windows Directory
retval = GetWindowsDirectoryA(sBuf, cSize)
'Strip buffer from Windows directory
Windir = Left(sBuf, retval)
'Load and Play the sound.
N = sndPlaySound(Windir + "MediaOffice97Clear.wav", 0)
End Sub
Sub Gomme()
Selection.Delete
End Sub
Voila; c'est tout.
Fin de conversation
--
Cordialement
JL
as-tu essayé les 2 macros que je t'ai proposées hier, autrement plus courtes que cette usine à gaz ?
Si elles ne fonctionnent pas chez toi, peux-tu l'indiquer pour qu'on ne reste pas sur une erreur ?
Merci d'avance,
Dom
Grâce à toutes vos pistes et à Bilou, j'ai enfin trouvé. Voici la macro qui efface avec le son : Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Declare Function GetWindowsDirectoryA Lib "Kernel32" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Sub PlayWav() Call Gomme Dim sBuf As String Dim cSize As Long Dim retval As Long Dim Windir As String 'Create a variable large enough to store the Windows path. sBuf = String(255, 0) cSize = 255 'Get Windows Directory retval = GetWindowsDirectoryA(sBuf, cSize) 'Strip buffer from Windows directory Windir = Left(sBuf, retval) 'Load and Play the sound. N = sndPlaySound(Windir + "MediaOffice97Clear.wav", 0) End Sub Sub Gomme() Selection.Delete End Sub
Voila; c'est tout. Fin de conversation -- Cordialement JL
La Poste
Salut Dom, La première, je ne l'ai pas essayée. La deuxième fonctionne mais supprime le son de la touche "Suppr". Je te l'ai d'ailleurs dit. "L'usine à gaz" vient de MS itself. Je vias essayer la 1° A+ JL
"Dom" a écrit dans le message de news:
Bonjour,
as-tu essayé les 2 macros que je t'ai proposées hier, autrement plus courtes que cette usine à gaz ?
Si elles ne fonctionnent pas chez toi, peux-tu l'indiquer pour qu'on ne reste pas sur une erreur ?
Merci d'avance,
Dom
Grâce à toutes vos pistes et à Bilou, j'ai enfin trouvé. Voici la macro qui efface avec le son : Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Declare Function GetWindowsDirectoryA Lib "Kernel32" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Sub PlayWav() Call Gomme Dim sBuf As String Dim cSize As Long Dim retval As Long Dim Windir As String 'Create a variable large enough to store the Windows path. sBuf = String(255, 0) cSize = 255 'Get Windows Directory retval = GetWindowsDirectoryA(sBuf, cSize) 'Strip buffer from Windows directory Windir = Left(sBuf, retval) 'Load and Play the sound. N = sndPlaySound(Windir + "MediaOffice97Clear.wav", 0) End Sub Sub Gomme() Selection.Delete End Sub
Voila; c'est tout. Fin de conversation -- Cordialement JL
Salut Dom,
La première, je ne l'ai pas essayée.
La deuxième fonctionne mais supprime le son de la touche "Suppr". Je te l'ai
d'ailleurs dit.
"L'usine à gaz" vient de MS itself.
Je vias essayer la 1°
A+
JL
"Dom" <Dom@discussions.microsoft.com> a écrit dans le message de
news:2B22E734-BDF4-4935-8DD5-181DC0C596EC@microsoft.com...
Bonjour,
as-tu essayé les 2 macros que je t'ai proposées hier, autrement plus
courtes
que cette usine à gaz ?
Si elles ne fonctionnent pas chez toi, peux-tu l'indiquer pour qu'on ne
reste pas sur une erreur ?
Merci d'avance,
Dom
Grâce à toutes vos pistes et à Bilou, j'ai enfin trouvé.
Voici la macro qui efface avec le son :
Private Declare Function sndPlaySound Lib "winmm.dll" Alias
"sndPlaySoundA"
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Declare Function GetWindowsDirectoryA Lib "Kernel32" (ByVal
lpBuffer
As String, ByVal nSize As Long) As Long
Sub PlayWav()
Call Gomme
Dim sBuf As String
Dim cSize As Long
Dim retval As Long
Dim Windir As String
'Create a variable large enough to store the Windows path.
sBuf = String(255, 0)
cSize = 255
'Get Windows Directory
retval = GetWindowsDirectoryA(sBuf, cSize)
'Strip buffer from Windows directory
Windir = Left(sBuf, retval)
'Load and Play the sound.
N = sndPlaySound(Windir + "MediaOffice97Clear.wav", 0)
End Sub
Sub Gomme()
Selection.Delete
End Sub
Voila; c'est tout.
Fin de conversation
--
Cordialement
JL
Salut Dom, La première, je ne l'ai pas essayée. La deuxième fonctionne mais supprime le son de la touche "Suppr". Je te l'ai d'ailleurs dit. "L'usine à gaz" vient de MS itself. Je vias essayer la 1° A+ JL
"Dom" a écrit dans le message de news:
Bonjour,
as-tu essayé les 2 macros que je t'ai proposées hier, autrement plus courtes que cette usine à gaz ?
Si elles ne fonctionnent pas chez toi, peux-tu l'indiquer pour qu'on ne reste pas sur une erreur ?
Merci d'avance,
Dom
Grâce à toutes vos pistes et à Bilou, j'ai enfin trouvé. Voici la macro qui efface avec le son : Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Declare Function GetWindowsDirectoryA Lib "Kernel32" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Sub PlayWav() Call Gomme Dim sBuf As String Dim cSize As Long Dim retval As Long Dim Windir As String 'Create a variable large enough to store the Windows path. sBuf = String(255, 0) cSize = 255 'Get Windows Directory retval = GetWindowsDirectoryA(sBuf, cSize) 'Strip buffer from Windows directory Windir = Left(sBuf, retval) 'Load and Play the sound. N = sndPlaySound(Windir + "MediaOffice97Clear.wav", 0) End Sub Sub Gomme() Selection.Delete End Sub
Voila; c'est tout. Fin de conversation -- Cordialement JL
Dom
Je parlais des 2 petites macros de mon message du 4 avril (pas de celle du 3 qui ne prend pas en compte le son).
Les exemples fournis par MS ne sont pas toujours exemplaires :)
Dom
Salut Dom, La première, je ne l'ai pas essayée. La deuxième fonctionne mais supprime le son de la touche "Suppr". Je te l'ai d'ailleurs dit. "L'usine à gaz" vient de MS itself. Je vias essayer la 1° A+ JL
"Dom" a écrit dans le message de news:
Bonjour,
as-tu essayé les 2 macros que je t'ai proposées hier, autrement plus courtes que cette usine à gaz ?
Si elles ne fonctionnent pas chez toi, peux-tu l'indiquer pour qu'on ne reste pas sur une erreur ?
Merci d'avance,
Dom
Grâce à toutes vos pistes et à Bilou, j'ai enfin trouvé. Voici la macro qui efface avec le son : Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Declare Function GetWindowsDirectoryA Lib "Kernel32" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Sub PlayWav() Call Gomme Dim sBuf As String Dim cSize As Long Dim retval As Long Dim Windir As String 'Create a variable large enough to store the Windows path. sBuf = String(255, 0) cSize = 255 'Get Windows Directory retval = GetWindowsDirectoryA(sBuf, cSize) 'Strip buffer from Windows directory Windir = Left(sBuf, retval) 'Load and Play the sound. N = sndPlaySound(Windir + "MediaOffice97Clear.wav", 0) End Sub Sub Gomme() Selection.Delete End Sub
Voila; c'est tout. Fin de conversation -- Cordialement JL
Je parlais des 2 petites macros de mon message du 4 avril (pas de celle du 3
qui ne prend pas en compte le son).
Les exemples fournis par MS ne sont pas toujours exemplaires :)
Dom
Salut Dom,
La première, je ne l'ai pas essayée.
La deuxième fonctionne mais supprime le son de la touche "Suppr". Je te l'ai
d'ailleurs dit.
"L'usine à gaz" vient de MS itself.
Je vias essayer la 1°
A+
JL
"Dom" <Dom@discussions.microsoft.com> a écrit dans le message de
news:2B22E734-BDF4-4935-8DD5-181DC0C596EC@microsoft.com...
Bonjour,
as-tu essayé les 2 macros que je t'ai proposées hier, autrement plus
courtes
que cette usine à gaz ?
Si elles ne fonctionnent pas chez toi, peux-tu l'indiquer pour qu'on ne
reste pas sur une erreur ?
Merci d'avance,
Dom
Grâce à toutes vos pistes et à Bilou, j'ai enfin trouvé.
Voici la macro qui efface avec le son :
Private Declare Function sndPlaySound Lib "winmm.dll" Alias
"sndPlaySoundA"
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Declare Function GetWindowsDirectoryA Lib "Kernel32" (ByVal
lpBuffer
As String, ByVal nSize As Long) As Long
Sub PlayWav()
Call Gomme
Dim sBuf As String
Dim cSize As Long
Dim retval As Long
Dim Windir As String
'Create a variable large enough to store the Windows path.
sBuf = String(255, 0)
cSize = 255
'Get Windows Directory
retval = GetWindowsDirectoryA(sBuf, cSize)
'Strip buffer from Windows directory
Windir = Left(sBuf, retval)
'Load and Play the sound.
N = sndPlaySound(Windir + "MediaOffice97Clear.wav", 0)
End Sub
Sub Gomme()
Selection.Delete
End Sub
Voila; c'est tout.
Fin de conversation
--
Cordialement
JL
Je parlais des 2 petites macros de mon message du 4 avril (pas de celle du 3 qui ne prend pas en compte le son).
Les exemples fournis par MS ne sont pas toujours exemplaires :)
Dom
Salut Dom, La première, je ne l'ai pas essayée. La deuxième fonctionne mais supprime le son de la touche "Suppr". Je te l'ai d'ailleurs dit. "L'usine à gaz" vient de MS itself. Je vias essayer la 1° A+ JL
"Dom" a écrit dans le message de news:
Bonjour,
as-tu essayé les 2 macros que je t'ai proposées hier, autrement plus courtes que cette usine à gaz ?
Si elles ne fonctionnent pas chez toi, peux-tu l'indiquer pour qu'on ne reste pas sur une erreur ?
Merci d'avance,
Dom
Grâce à toutes vos pistes et à Bilou, j'ai enfin trouvé. Voici la macro qui efface avec le son : Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Declare Function GetWindowsDirectoryA Lib "Kernel32" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Sub PlayWav() Call Gomme Dim sBuf As String Dim cSize As Long Dim retval As Long Dim Windir As String 'Create a variable large enough to store the Windows path. sBuf = String(255, 0) cSize = 255 'Get Windows Directory retval = GetWindowsDirectoryA(sBuf, cSize) 'Strip buffer from Windows directory Windir = Left(sBuf, retval) 'Load and Play the sound. N = sndPlaySound(Windir + "MediaOffice97Clear.wav", 0) End Sub Sub Gomme() Selection.Delete End Sub
Voila; c'est tout. Fin de conversation -- Cordialement JL