Discussion :

[meddeb2001]

bonjour

comment je peux lire un fichier son a un emplacement donné?
exemple:
je veux lire le son à partir de la minute 3' j'usque la minute 7' d'un fichier son donné

[cafeine]

Hello,

une piste intéressante à suivre à mon avis :

http://silkyroad.developpez.com/VBA/WindowsMediaPlayer/

[meddeb2001]

merci

mais j'ai un probleme actuel.
je veux lire le son en commensant par la minute x et arreté à la minute y
comment je pourrai'je le faire.

[SilkyRoad]

bonjour...;o)

cet exemple permet de lancer la lecture et de se positionner directement à la 3eme minute

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    'Chargement fichier & lecture
    WindowsMediaPlayer1.URL = "C:\maMusique.mp3"
    'Positionnement à la 3eme minute
    WindowsMediaPlayer1.Controls.currentPosition = 180 'secondes

je n'ai pas trouvé d'evenement pour gérer l'arret de la lecture à un moment précis, mais tu pourrais par exemple ajouter un Timer pour définir la fin.


bon apres midi
michel

[meddeb2001]

bonjour
j'ai trouvé dans un document ceci:
"vous devez préalablement crée une forme dans votre projet et y ajouter un objet windows media player, nommé windowsmediaplayer1."
comment je peux le réalisé?

[meddeb2001]

merci Mr SilkyRoad

je sais pas comment implanté ce code, erreur d'execut "pas de module"

'Chargement fichier & lecture
WindowsMediaPlayer1.URL = "C:\maMusique.mp3"
'Positionnement à la 3eme minute
WindowsMediaPlayer1.Controls.currentPosition = 180 'secondes.

en plus je veux entrer la position de lecture au clavier.

[SilkyRoad]

message supprimé

[meddeb2001]

merci pour le code
mais je ne sait pas encore comment l'implanté
svp donner moi une methode pour le realiser
est ce qu'il doit etre dans une macro ou requette ou module ou quoi?

le code est
Code :
'Chargement fichier & lecture
WindowsMediaPlayer1.URL = "C:\maMusique.mp3"
'Positionnement à la 3eme minute
WindowsMediaPlayer1.Controls.currentPosition = 180 'secondes
a+

pour la securité de mon application j'ai eliminé la modification du menu d'access au demarrage
porbleme! , maint je veux introduire qq modification sur l'application comment faire réapparaitre le menu d'access à nouveau
merci à vous

[FreeAccess]

Bonjour,

j'ai trouvé dans un document ceci:
"vous devez préalablement crée une forme dans votre projet et y ajouter un objet windows media player, nommé windowsmediaplayer1."
comment je peux le réalisé?

Pour la réponse à cette question:
Sur ton formulaire en mode création, Menu Insertion > Contrôle ActiveX > dans la liste tu choisi "Windows Media Player" et nomme le "WindowsMediaPlayer1"

merci pour le code
mais je ne sait pas encore comment l'implanté
svp donner moi une methode pour le realiser
est ce qu'il doit etre dans une macro ou requette ou module ou quoi?

Pour la réponse à cette question....toi seul peux la déterminer en fonction de ce que tu veux réaliser .....
Si tu souhaite que la lecture de ton fichier débute dès l'ouverture du formulaire, alors mets le code sur l'événement "Sur chargement" du formulaire.
Si tu souhaite exécuter ton fichier sur un bouton de commande, alors mets ton code sur l'événement "Sur clic" de ce bouton de commande....

Voila , ce ne sont que quelques pistes........
Bonne continuation.

[FreeAccess]

Re,
En faisant quelques recherches, voici ce que l'on peut trouver......

Ici, sur le formulaire, ton contrôle ActiveX "WindowsMediaPlayer1" et un bouton de commande "cmdPlay" qui déclenchera la lecture à partir de la 3ème minute:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub cmdPlay_Click()
'Définit et lit un fichier
WindowsMediaPlayer1.URL = "C:\MUSIC\Fichier.mp3"
 
'Positionnement à la 3eme minute
WindowsMediaPlayer1.Object.Controls.currentPosition = 180
 
'Lecture fichier
WindowsMediaPlayer1.Object.Controls.play
End Sub

Voila, maintenant je pense qu'avec tout ceci et les différentes autres réponses qui t'on été donné, tu devrais t'en sortir......

[meddeb2001]

désolé

je n'arrive pas à l'implanter
il m'affiche erreur d'execution 424 objet requi
j'ai fait le debogage unhe ligne jaune sur l'instruction

WindowsMediaPlayer1.URL = "C:\4You-Dance_With_Me.mp3"
et qd j'enleve URL il passe l'erreur à la deusieme ligne

WindowsMediaPlayer1.Object.Controls.currentPosition = 180


WindowsMediaPlayer1.Object.Controls.play
----------------------------------------------
j'ai crée une procedure
prived sub WindowsMediaPlayer1_update( as integer)

end sub

ie vous envoi en pieces jointes le qq ligne

merci de m'avoir ecouter

[FreeAccess]

Bonjour,
Si tu veux que l'on t'aide il faut être un peu plus précis sur ce qui ne fonctionne pas.......

Dis nous exactement ce que tu as fais, le nom de tes contrôles, le code mis sur tel ou tel événements............

Sinon, pour faire simple, procède comme cela:
-1) Sur un formulaire, tu insère le contrôle ActiveX "WindowsMediaPlayer" et tu le nomme WindowsMediaPlayer1
-2) Sur le même formulaire, tu crée un bouton de contrôle que tu nomme cmdPlay
-3) Sur l'événement "Sur clic" de cmdPlay, tu tape ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub cmdPlay_Click()
'Définit et lit un fichier
WindowsMediaPlayer1.URL = "C:\NomFichier.mp3"
'Se positionne à la 1ère minute du fichier
Me.WindowsMediaPlayer1.Object.Controls.currentPosition = 60
 
'Lance la lecture du fichier
'Sinon, tu supprime cette ligne et tu te sert directement
'des commandes de Windows Média.
WindowsMediaPlayer1.Object.Controls.play
End Sub

Voila, c'est tout...et cela fonctionne correctement.....

[meddeb2001]

bonjour
enfin j'ai reussi à le faire fonctionner.
je vous remerci infinement pour votre patiense et votre aide presieuse
mille fois merci
a+

[felixismad]

Bonjour,

j'ai un petit problème avec cette discutions.
J'aimerais appeler dans une macro quelconque la sub : cmdPlay_Click

Est ce possible ?

J'essai de mettre le code dans la macro mais forcément, cela ne fonctionne pas.

Bonne soirée,