Discussion :

[rondepierre]

Bonjour,

J'ai entré tous les morceaux de musique de mes CD dans un fichier Excel.
Puis, j'ai créé , pour chaque morceau ,un lien pour qu'il s'exécute lorsque je clique dessus.
Je souhaite maintenant créer une macro qui joue au hasard un ou plusieurs de ces
morceaux.
Voici mon problème: lorsque la macro a exécuté le premier lien, elle ne revient pas
pour exécuter le suivant.
Merci d'avance si quelqu'un a une solution.

[QuestVba]

Bonjour,

Aurais-tu un bout de code ?

[Invité]

Bonjour,
Ton fichier Excel serait le bienvenu.

[rondepierre]

Bonjour

Mon fichier excel contient 4163 lignes; il y a donc 4163 morceaux de musique
correspondant. Les liens sont dans la colonne E.
La macro suivante choisit un nombre au hasard entre 1 et 4163 puis exécute le lien
de la cellule correspondante de la colonne E.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
  Sub jouermorceau()
' jouermorceau Macro
' Touche de raccourci du clavier: Ctrl+a
'
   Randomize
 
     r = Int(Rnd * 4163) + 1: l = Len(r): s = Right$(r, l - 1)
   c = "E" + s
    Range(c).Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True       
End Sub

Ce que je souhaite, c'est que la macro s'arrête le temps que le morceau se joue,
puis que la macro reprenne le contrôle pour exécuter le lien suivant (non écrit dans
la macro ci-dessus) et ainsi de suite.
Merci pour vos réponses.

[Kitty01560]

Hello rondepierre,

Ton problème m'a intriqué ... et intéressé

Du coup, je te propose une solution en pièce jointe que tu pourras aisément adapter à tes besoin.

[rondepierre]

Bonjour Kitty01560.

Merci beaucoup pour ta réponse et ta solution que j'ai adapté à mon fichier excel et qui
fonctionne parfaitement.