Lire des fichiers son en VBA Excel

Résolu
Patrice -  
 Paf -
Bonjour,

je suis avec Excel 2007, je veux lire des fichiers son dans un répertoire, cependant je n'arrive pas à lire le fichier avec l'instruction ActiveWorkbook.Path.

j'arrive à entendre le fichier quand j'écris:

Application.ExecuteExcel4Macro "SOUND.PLAY(,""d:\Kisa\un.wav"")"

Cependant, si je remplace, comme ci-dessous, le path par AciveWorkbook.Path, la ligne est lue, sans erreur, mais je n'ai aucun son.

Application.ExecuteExcel4Macro "SOUND.PLAY(," & ActiveWorkbook.Path "\un.wav" & ")"

Comme je tourne en rond depuis un bon moment, j'espère que quelqu'un pourra me donner la bonne syntaxe.

Merci d'avance. Patrice

6 réponses

  1. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    Bonjour,

    il te manque les "", ce qui t'en fait 3 après le SOUND.PLAY(,
    On double une " si on veut qu'elle soit présente dans la chaine et non interprétée comme un début ou une fin de chaine

    Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\un.wav"")"

    eric
    5
  2. Paf
     
    bonjour

    question bête: le fichier son est-il dans le même répertoire que le classeur excel ?

    A+
    0
  3. Patrice
     
    Petite précision avant qu'on me pose la question. Le fichier excel est bien dans le répertoire d:\Kisa\ et la lecture de l'instruction ActiveWorkbook.Path par le débogage donne bien le répertoire d:\Kisa
    0
  4. Patrice
     
    Bonjour Paf
    Merci de répondre à ma question.

    J'étais juste entrain de le préciser quand tu as posé la question. La réponse est oui.

    Cordialement Patrice
    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. Patrice
     
    Bonjour Eriic

    C'est fonctionne. Effectivement, j'étais un peu perdu dans les quotes.
    Je te remercie pour le travail que tu fais, il m'arrive très souvent de repérer ton pseudo et de regarder les réponses que tu donnes. Ca m'a permis de progresser sur les formules et vba d'Excel.

    Merci également à Paf
    Bonne soirée
    0
  7. Paf
     
    re

    as tu essayé comme ceci:

    Application.ExecuteExcel4Macro "SOUND.PLAY(, "ActiveWorkbook.Path &"\un.wav" ")"


    a priori c'est une histoire de guillemet ...

    essaye de voir avec une Msgbox ce que donne les paramètres de SOUND.PLAY
    0
    1. Paf
       
      Trop tard
      0