Clive est un ornithologue amateur et possède plus de 300 fichiers MP3 de sons d’oiseaux. Il souhaite créer une feuille de calcul Excel avec une seule colonne dans laquelle sont répertoriés les noms réels des fichiers MP3, par exemple « cormorant.mp3 ». Il souhaite créer un lien hypertexte à partir de chacune de ces quelque 300 cellules vers le fichier MP3 physique, de sorte que le lecteur ouvre et joue le son de l’oiseau. Il sait qu’il peut insérer individuellement le lien hypertexte, mais ce serait évidemment assez fastidieux. Donc, il se demande s’il existe un moyen de créer automatiquement un tel lien en fonction des noms de fichiers MP3 dans la feuille de calcul.

Cette question comporte en fait deux parties: obtenir les noms de fichiers dans une feuille de calcul Excel, puis créer un lien vers le fichier MP3 afin que le chant des oiseaux puisse être joué.

Commencez par vous assurer que tous les fichiers MP3 se trouvent dans le même dossier sur votre disque dur. La façon dont vous pouvez récupérer une liste de fichiers a été traitée dans d’autres numéros de ExcelTips; vous voudrez peut-être revoir les idées sur la façon de procéder, trouvées sur cette page ExcelTips:

http://excelribbon.tips.net/T011144

Une fois que les noms sont dans la feuille de calcul (supposons qu’ils sont dans la colonne A), vous pouvez facilement utiliser la fonction de feuille de calcul HYPERLINK pour créer le lien réel. Par exemple, vous pouvez placer ce qui suit dans la cellule B1:

=HYPERLINK("C:\Documents\Birdsongs\" & A1)

Cela suppose que le dossier dans lequel se trouvent les chansons est C: \ Documents \ Birdsongs \. Si le chemin est réellement différent, effectuez simplement la modification dans la fonction HYPERLINK.

Une fois que la formule correcte est dans la cellule B1, vous pouvez la copier pour le nombre de cellules dont vous avez besoin pour obtenir tous les liens hypertexte corrects.

Bien entendu, vous pouvez spécifier le « texte d’affichage » à utiliser par la fonction HYPERLINK. Si vos fichiers de chants d’oiseaux commencent par le nom de l’oiseau et se terminent par .mp3, vous pouvez ajouter le texte d’affichage à la fonction HYPERLINK de cette manière:

=HYPERLINK("C:\Documents\Birdsongs\" & A1, LEFT(A1, LEN(A1) - 4)

Cette utilisation supprime simplement les quatre derniers caractères (le point et « mp3 ») du nom de fichier et l’utilise ensuite comme texte d’affichage.

Si vous souhaitez utiliser une approche macro pour créer des hyperliens (sans utiliser la fonction HYPERLINK), alors un bon point de départ est la macro de capture de nom de fichier de la pointe mentionnée plus haut dans cette astuce. Il peut être modifié pour mettre non seulement les noms de fichiers dans la feuille de calcul, mais aussi pour créer les hyperliens nécessaires:

Sub MakeHyperlinks()

Dim sPath As String     Dim sFile As String     Dim iRow As Integer

'specify directory to use - must end in "\"

sPath = "C:\Documents\Birdsongs\"



iRow = 0     sFile = Dir(sPath)

While sFile <> ""

iRow = iRow + 1         Sheet1.Cells(iRow,1) = sFile         sBird = Left(sFile, Len(sFile)-4)

ActiveSheet.Hyperlinks.Add Anchor:=Sheet1.Cells(iRow,1), _           Address:=sPath & sFile, TextToDisplay:=sBird         sFile = Dir     ' Get next filename     Wend End Sub

Si vous décidez d’emprunter la voie des macros, assurez-vous qu’il n’y a rien dans la feuille de calcul actuelle. La macro s’exécute très rapidement et efface tout ce qui se trouve dans les cellules dans lesquelles elle écrit. Quand c’est fait, vous vous retrouvez avec le nom de fichier dans la colonne A et un lien hypertexte vers le fichier MP3 dans la colonne B.

Lorsque vous cliquez sur un lien hypertexte dans la feuille de calcul, Excel lance votre navigateur Web et charge le fichier MP3. Le navigateur lit ensuite le fichier.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (13127) s’applique à Microsoft Excel 2007, 2010, 2013, 2016, 2019 et Excel dans Office 365.