Rapport de message :*
 

Re: Lancer un mp3 depuis Excel

Titre du sujet : Re: Lancer un mp3 depuis Excel
par Eric le 08/06/2010 11:27:23

Bonjour à tous

Peux tu essayer ceci :

Public Vocal As New SpVoice

Sub Parler(ByVal Phrase As String)
    Application.StatusBar = Phrase
    Vocal.Speak Phrase
End Sub

Sub lire()
Dim i As Integer
Dim mavar As Integer
  For i = 1 To 3
      mavar = Cells(5, i)
      Parler mavar
  Next
End Sub

Eric