Astuces Excel
  1. Astuces Excel
  3. Lecture d'un file audio lorsque le path d'access est situé dans une cellule spécifique
Intereting Posts
Pas de données dans CSV: Erreur lors de l'import de CSV Excel VBA – Masquer les lignes pour le travail d'printing – Travailler pour certaines variables, mais pas pour toutes Fonction de sum Excel où certaines cellules sont ssortingng Définir le nom du file variable une fois pour être utilisé plusieurs endroits Référence de numéro de ligne de plage d'une autre cellule dans Excel Combinaison de contenu de certaines pages à partir de plusieurs documents Word utilisant VBA Changement de fonction de concaténation Modifiez RDBMerge afin de coller les "feuilles fusionnées" dans un woorkbook spécifique Comment utiliser VLOOKUP dans cette situation? get des coefficients de ligne logarithmique, EXCEL Format de la date jj: mm: yy: hh: mm: ss à jj / mm / aa hh: mm: ss login Excel oledb à l'access de verrou de database Ms-Access db drop down menu tkinter d'excel Scatter Graph avec quatre Quadrant pour l'parsing de données Comment exporter des images pour excel depuis gridview?

Lecture d'un file audio lorsque le path d'access est situé dans une cellule spécifique

Lors de l'exécution d'une macro, je voudrais jouer un son. Cependant, le son sera déterminé en fonction des conditions. Le file son se trouve dans la cellule A1. Pourquoi ne puis-je pas get la command pour lire le path du file dans la cellule? Toute aide serait appréciée. (Je me rends count que c'est très facile pour certains d'entre vous, alors ne me bloquez pas.) 

' COMMUNICATION: Play sound file located in cell a1 If Application.CanPlaySounds Then Call sndPlaySound32(Cells([a1]), 0) End If

sndPlaySound32 est une fonction API. Donc, vous devez le déclarer en premier. Mettez en haut de votre module VBA: 

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

Il semble que vous pourriez manquer la valeur de la propriété essayer 

 Call sndPlaySound32(Cells([a1]).value, 0)

Votre reference de cellule est erronée. 

 If Application.CanPlaySounds Then Call sndPlaySound32(Range("A1"), 0) End If