Sub List_MP3()
Dim Liste(1000, 1), Nom As String, Repertoire As String, Nb As Long
Application.ScreenUpdating = False
Range("a2:a2002").ClearContents
Repertoire = ThisWorkbook.Path & "\Chansons\"
Nom = Dir$(Repertoire & "*.wav")
Do While Nom <> ""
Liste(Nb, 0) = Nom
Nom = Dir$
Nb = Nb + 1
Loop
Nb = 0
While Liste(Nb, 0) <> tom
Range("a2").Offset(Nb, 0).Value = Replace(Liste(Nb, 0), ".wav", "")
Nb = Nb + 1
Range("a:a").Columns.AutoFit
Wend
End Sub
Sub Lien_Hypertext()
For Each Cell In Selection
Cell.select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
Cell.Value, TextToDisplay _
:=Cell.Value
Next
End Sub
Si je peux abuser, y a-t-il moyen de faire une routine pour qu'elle s'applique à toutes les cellules-sources jusqu'à ce qu'elle trouve une cellule vide par exemple? Ce serait vraiment l'idéal. Sinon ce n'est pas grave vous m'avez bien aidé.
Bon W-E
Sub Lien_Hypertext()
Derl=cells(rows.count, 3).end(xlup).row
Range(cells(2,3),cells(derl,3).select
For Each Cell In Selection
Cell.select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
Cell.Value, TextToDisplay _
:=Cell.Value
Next
End Sub
Sub Lien_Hypertext_V2()
derl = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(2, 1), Cells(derl, 1)).Select
For Each Cell In Selection
Cell.Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
Cell.Value, TextToDisplay _
:=Split(Cell, "\")(UBound(Split(Cell, "\"))) 'Cell.Value
Next
End Sub