Entendre des Mp3 dans Excel

[Tatanka]

Bonjour,

Avec une macro de feuille, je peux entendre un toune mp3
en sélectionnant une cellule contenant son chemin complet.
Exemple :
C:\Documents and Settings\Serge Garneau\Mes documents\Dossier_MPFE
\1000 Eyes.mp3

Mais comment faire pour envoyer ce document à quelqu'un d'autre ?
Les chemins complets n'étant plus valides pour celui qui reçoit ledit
document.

Serge

[michdenis]

Bonjour,

Je ne saisis pas le sens de la question...

| Mais comment faire pour envoyer ce document � quelqu'un d'autre ?
| Les chemins complets n'�tant plus valides pour celui qui re�oit ledit
| document.

Si c'est une pi�ce jointe � un courriel, il n'a qu'� double-cliquer sur
le fichier joint du message pour lancer le fichier MP3. O� est le probl�me?
�videmment, le receveur doit avoir une application capable de
g�rer ce type de fichier...

MichD
--------------------------------------------
"Tatanka" a �crit dans le message de groupe de discussion :
4eb43ce6-002d-4e77...@y19g2000prb.googlegroups.com...

Bonjour,

Avec une macro de feuille, je peux entendre un toune mp3

en s�lectionnant une cellule contenant son chemin complet.

Exemple :
C:\Documents and Settings\Serge Garneau\Mes documents\Dossier_MPFE
\1000 Eyes.mp3

Mais comment faire pour envoyer ce document � quelqu'un d'autre ?
Les chemins complets n'�tant plus valides pour celui qui re�oit ledit
document.

Serge

[Tatanka]

Ce document ne fonctionne sûrement pas chez toi !?
http://cjoint.com/?3bkvwuGYB7
Erre-je ?

Serge

On 10 jan, 14:39, "michdenis" <michde...@hotmail.com> wrote:
> Bonjour,
>
> Je ne saisis pas le sens de la question...
>
> | Mais comment faire pour envoyer ce document quelqu'un d'autre ?
> | Les chemins complets n' tant plus valides pour celui qui re oit ledit
> | document.
>
> Si c'est une pi ce jointe un courriel, il n'a qu' double-cliquer sur
> le fichier joint du message pour lancer le fichier MP3. O est le probl me?
> videmment, le receveur doit avoir une application capable de
> g rer ce type de fichier...
>
> MichD
> --------------------------------------------
> "Tatanka"  a crit dans le message de groupe de discussion :

> 4eb43ce6-002d-4e77-a54e-8364df33b...@y19g2000prb.googlegroups.com...

[michdenis]

| Ce document ne fonctionne s�rement pas chez toi !?

�videmment, je dois avoir en premier lieu le fichier MP3 et
je dois informer le programme o� se trouve le fichier... Pour
ce faire, il est possible d'y aller d'une petite proc�dure pour
que l'usager choisisse le r�pertoire d�sign� ou qu'il �crive
en dur le chemin de tous ses fichiers MP3 dans une cellule.

Dans ton petit programme, tu utilises le chemin que
l'usager aura tap� � l'endroit indiqu�.

Cela ne m'en dit pas tr�s long sur ce que tu veux faire !

MichD
--------------------------------------------
"Tatanka" a �crit dans le message de groupe de discussion :

8af60c49-75c8-41dc...@f21g2000prn.googlegroups.com...

Ce document ne fonctionne s�rement pas chez toi !?

[Tatanka]

Comme tu peux t'en rendre compte, là je suis dans la mouise !

Est-ce possible d'envoyer un dossier contenant les mp3 et mon
document Excel contenant des adresses se référant aux mp3
dudit dossier et lisibles par celui ou celle qui reçoit mon dossier ?

Serge

On 10 jan, 16:09, "michdenis" <michde...@hotmail.com> wrote:
> | Ce document ne fonctionne s rement pas chez toi !?
>
> videmment, je dois avoir en premier lieu le fichier MP3 et
> je dois informer le programme o se trouve le fichier... Pour
> ce faire, il est possible d'y aller d'une petite proc dure pour
> que l'usager choisisse le r pertoire d sign ou qu'il crive
> en dur le chemin de tous ses fichiers MP3 dans une cellule.
>
> Dans ton petit programme,  tu utilises le chemin que
> l'usager aura tap l'endroit indiqu .
>
> Cela ne m'en dit pas tr s long sur ce que tu veux faire !
>
> MichD
> --------------------------------------------
> "Tatanka"  a crit dans le message de groupe de discussion :

> 8af60c49-75c8-41dc-89cf-0a8f6d6c4...@f21g2000prn.googlegroups.com...
>
> Ce document ne fonctionne s rement pas chez toi !?http://cjoint.com/?3bkvwuGYB7

> > Serge- Masquer le texte des messages précédents -
>
> - Afficher le texte des messages précédents -

[Modeste]

Bonsour�

ramanujan

> Avec une macro de feuille, je peux entendre un toune mp3

> en s�lectionnant une cellule contenant son chemin complet.

> Exemple :
> C:\Documents and Settings\Serge Garneau\Mes documents\Dossier_MPFE
> \1000 Eyes.mp3
>

> Mais comment faire pour envoyer ce document � quelqu'un d'autre ?
> Les chemins complets n'�tant plus valides pour celui qui re�oit ledit
> document.

il faut envoyer le document � ton correspondant
joindre les mp3
pr�ciser que ceux-ci doivent etre install�s dans le m�me r�pertoire

et la macro modifi�e :
Sub Jouer()
On Error Resume Next
UserForm1.WindowsMediaPlayer1.URL = ThisWorkbook.Path & "/" &
ActiveCell.Value
End Sub

[michdenis]

Modeste a raison... d'autant plus si tu zippes les fichiers MP3 avec ton fichier Excel.
Tous se retrouveront dans le m�me r�pertoire au moment de les d�compresser!

MichD
--------------------------------------------
"Modeste" a �crit dans le message de groupe de discussion : 4d2b8a45$0$4283$426a...@news.free.fr...

[Tatanka]

On 10 jan, 19:07, "michdenis" <michde...@hotmail.com> wrote:
> Modeste a raison... d'autant plus si tu zippes les fichiers MP3 avec ton fichier Excel.
> Tous se retrouveront dans le m me r pertoire au moment de les d compresser!
>
> MichD
> --------------------------------------------

> "Modeste"  a crit dans le message de groupe de discussion : 4d2b8a45$0$4283$426a7...@news.free.fr...

>
> Bonsour
>
> ramanujan
>
> > Avec une macro de feuille, je peux entendre un toune mp3
> > en s lectionnant une cellule contenant son chemin complet.
> > Exemple :
> > C:\Documents and Settings\Serge Garneau\Mes documents\Dossier_MPFE
> > \1000 Eyes.mp3
>
> > Mais comment faire pour envoyer ce document quelqu'un d'autre ?
> > Les chemins complets n' tant plus valides pour celui qui re oit ledit
> > document.
>
> il faut envoyer le document ton correspondant
> joindre les mp3
> pr ciser que ceux-ci doivent etre install s dans le m me r pertoire
>
> et la macro modifi e :
> Sub Jouer()
>     On Error Resume Next
>     UserForm1.WindowsMediaPlayer1.URL = ThisWorkbook.Path & "/" &
> ActiveCell.Value
> End Sub

Ai-je bien compris vos lumineuses explications ?
http://cjoint.com/?3blf7jGujJA

Serge

[Tatanka]

Simplification des macros de Georges :-)

Macro de feuille :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Jouer
End Sub

Macro standard :

Sub Jouer()
On Error Resume Next
UserForm1.WindowsMediaPlayer1.URL = ThisWorkbook.Path & "/" &
ActiveCell.Value
End Sub

Serge

[Tatanka]

Bonjour,

J'ai dix titres de chansons de Brassens en A1:A10. Comment faire
pour entendre les chansons l'une à la suite de l'autre ?

J'ai tenté des trucs du genre :
For i = 1 To 10
Cells(i,1).Select
Next i
avec ici et là des DoEvents et des Application.EnableEvents.
Mais je ne vois rien venir :-(
Avez-vous des suggestions ?

Serge

> > - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -

[Modeste]

Bonsour®

ramanujan a écrit

> Bonjour,
> J'ai dix titres de chansons de Brassens en A1:A10. Comment faire
> pour entendre les chansons l'une à la suite de l'autre ?

no Excel :
http://www.tropicalglen.com/Jukebox/1968Top/myjukeboxB.html
http://www.tropicalglen.com/Jukebox/1969Top/myjukeboxB.html
http://www.tropicalglen.com/Jukebox/1970Top/myjukeboxB.html
http://www.tropicalglen.com/Jukebox/1971Top/myjukeboxB.html

[michdenis]

À cette adresse, tu devrais trouver tout ce dont tu as besoin en VBA
pour gérer un contrôle Windows Media Player

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

Tu peux même télécharger les explications en français dans un fichier Pdf.

MichD
--------------------------------------------
"Tatanka" a écrit dans le message de groupe de discussion :
65958a5c-8344-423a...@v12g2000vbx.googlegroups.com...

[Tatanka]

Super ce site. En m'inspirant du paragraphe III-A, j'ai réussi
à obtenir ce que je voulais. Ça fait ma journée ;-) Merci.

Sub Album()
Dim Toune As IWMPMedia
With UserForm1
.WindowsMediaPlayer1.currentPlaylist.Clear
For i = 0 To 9
Set Toune
= .WindowsMediaPlayer1.newMedia(ThisWorkbook.Path & "/" & Cells(i + 1,
1).Value)
.WindowsMediaPlayer1.currentPlaylist.insertItem i, Toune
Next i
.WindowsMediaPlayer1.Controls.Play
End With
End Sub

Serge

[michdenis]

Tu vois, la programmation ce n'est pas si difficile...
il faut juste avoir une bonne source !
;-)

Merci du retour.

MichD
--------------------------------------------
"Tatanka" a écrit dans le message de groupe de discussion :

2bc5fed4-8457-4cda...@w29g2000vba.googlegroups.com...