chrono excel help svp

Re : chrono excel help svp

Bonjour
Une petite aide pour le bruitage
Tu mets le code comme expliqué dans le fichier joint
Pour le bruit ( .wav) on peut pas mettre ici donc recepere le ci-dessous

http://www.archive-host.com/files/1...b2a95d287cf24d1b3af659c7e/klaxon_camion_1.wav

Re : chrono excel help svp

merci herve 62 pour l info !

Re : chrono excel help svp

bonjour le forum

personne a une petite idee pour mon histoire de remise a zero sur mon compte a rebourd ?merci par avance
phil 69

Re : chrono excel help svp

bonjour a toutes et tous

sur le fichier bruitage si dessous que je dois incorpore dans mon chrono la ligne declare n est pas accepter dans le vba ?

2 eme ou ce situe le repertoire pg?

A Mettre dans un module

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



Sub Play1()
chem = ThisWorkbook.Path Mettre le fichier .wav dans le repertoire du Pg
Call sndPlaySound32(chem & "\" & "choix1.wav", 0) > changer par le nom du fichier camion
End Sub

ou si il existe une autre solution pour indiquer la fin du temps par un bruit de klaxon( ou autre) tout en gardant le bip des trentes seconde

par avance merci

Re : chrono excel help svp

Bonjour
J'ai ces déclarations en tête d'un module qui me permet de jouer de la musique : Avec Z un String contenant une référence de fichier .wav : À +

Re : chrono excel help svp

merci pour l astuce

ou placer le fichier .wav il faut creer un repertoire?

merci phll69

Re : chrono excel help svp

Faire ChDir suivi du répertoire où vous l'aurez mis, auquel cas seul le nom du fichier suffira. Ce peut être Thisworkbook.Path
À +

Re : chrono excel help svp

re merci Dranreb

desoler mais je ne comprend pas l histoire de la valeur Z c est le repertoire ?ou il se situe ?

Re : chrono excel help svp

Z est la référence du fichier. Elle peut être munie du chemin si ce n'est pas le répertoire courant défini par le dernier ChDir ou GetOpenFilename exécuté.

chrono excel

bonjour a tous voici mon module pour mon emettre un son en fin de temps ,quand je lance le chrono un message apparait sur le vba pour m informer que pour Z une erreur de compilation:instruction incorrecte a l exterieur d une procedure

pouvez vous me renseigner svp ou me donner une autre astuce pour garder mes beeps des 30 secondes et emettre un son a la fin du chrono
cordialement

phil69





'***********************************************'

Const SIGNAL As Long = 30 'délai en secondes du beep avant la fin du chrono ///

'gestion chrono
Private Declare Function SetTimer Lib "User32" _
(ByVal hWnd As Long, ByVal nIDEvent As Long, _
ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long

Private Declare Function KillTimer Lib "User32" _
(ByVal hWnd As Long, ByVal nIDEvent As Long) As Long

Public Compteur As Long '///
Public LimiteStop As Long '###

Option Explicit
Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _
(ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Public Declare Function Beep Lib "kernel32.dll" _
(ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Declare Function GetTickCount Lib "kernel32.dll" () As Longng

If PlaySound(Z, 0, 1) = 0 Then MsgBox Z & " inexistant"

ChDir C: Users , Utilisateur, Music, camion.wav

Dim TimerID As Long

Sub TestChrono()
'lancement Userform
UserForm1.Show
End Sub

Sub TimerOff()
'arret du chrono
KillTimer 0, TimerID
End Sub

Sub TimerOn(Interval As Long)
' en relation avec le bouton start du chrono
TimerID = SetTimer(0, 0, Interval, AddressOf Chrono)
End Sub

Sub Chrono()
Dim H, DS
DS = CByte(UserForm1.Label2.Caption) + 1
UserForm1.Label2.Caption = CStr(DS)
If (DS Mod 10) = 0 Then
Compteur = Compteur + 1 '///
If Compteur + SIGNAL >= CLng(UserForm1.Label7) Then Beep '###

H = TimeValue(UserForm1.Label1.Caption) + TimeSerial(0, 0, 1)
UserForm1.Label1.Caption = Format(H, "hh:nn:ss")
UserForm1.Label2.Caption = "0"
If Compteur = CLng(UserForm1.Label7) Then '###
Compteur = 0 '///
Call TimerOff '///
End If '///

End If
End Sub


apparament Z ne ui convient

Re : chrono excel help svp

Bonjour.
Vous ne pouvez mettre une instruction exécutable qu'à l'intérieur d'une procédure.
Attention si vous utilisez la procédure Beep de l'API vous devez préciser la fréquence et la durée.
Mettez votre If PlaySound("C:\Users\Utilisateur\Music\camion.wav", 0, 1) = 0 Then MsgBox "Fichier Wav inexistant"
à l'endroit où vous voulez jouer le wav.
À +

Re : chrono excel help svp

re bonjour Dranreb

et d abord merci pour l info mais je n y arrive toujours pas a croire que je suis nul...

sans abuser de vous pourriez vous me corrigez mon module avec l acces au repertoire et le pb de frequence

merci par avance
phil69

Re : chrono excel help svp

Ben joignez ce que vous avez fait.
À +

Re : chrono excel help svp

encore merci.....