Liens hypertextes et VBA
Bonjour à tous !
voilà j'ai une feuille excel contenant dans la colonne B des noms de pistes audio (il s'agit d'enregistrements).
j'ai en parallèle mon fichier contenant ces pistes audio (avec les memes noms que dans le classeur excel)
j'aimerais creer des liens hypertexte dans ma feuille excel ce qui me permettrait de faire mes analyses des pistes directement a partir d excel où je n'aurais plus qu'a cliquer sur le nom de piste pour ouvrir le fichier.
J'ai un code qui me permet d'importer des liens hypertextes. Le problème est qu'il ne me permet de sélectionner les liens hypertexte en fonction des noms de pistes. En gros il y a 700 pistes dans ecxel mais 20000 fichiers audio dans le dossier contenant ces pistes. Je n'arrive pas integrer dans le code une sorte de "creation de lien hyper lorsque le nom de piste est identique"...
voici le code :
Sub ListeDesDocDansDossier()
Liste.TextBox1.Value = 7
Liste.TextBox2.Value = 3
Liste.Show
N = Val(Liste.TextBox1.Value)
C = Val(Liste.TextBox2.Value)
Lien = Liste.CheckBox1.Value
FàOuvrir = Application.GetOpenFilename(, , , , True)
'N = 1
'C = 1
Num = 1
Do
On Error GoTo Fin
Cells(N, C).Value = FàOuvrir(Num)
If Lien = True Then
ActiveSheet.Hyperlinks.Add Anchor:=Cells(N, C), Address:=FàOuvrir(Num)
End If
Num = Num + 1
N = N + 1
Loop
Exit Sub
Fin:
'Range(Columns(C), Columns(C)).Select
Range(Cells(N - Num + 1, C), Cells(N - 1, C)).Select
Selection.Replace what:="*\", replacement:="", lookat:=xlPart, searchorder:=xlByRows, MatchCase:=False
Selection.Sort Key1:=Cells(N - Num + 1, C), Order1:=xlAscending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Call EcrireLaListe.animation
End
Resume
End SubIl s'agit d'un code que m'avait fournit un membre du forum, autant dire que je n'ai pas autant d'exp en VBA pour le peaufiner et avoir ce que je veux...en tout cas je n'ai pas trouvé
en PIECE JOINTE une illustration de la situation
merci !