Activation de lien hypertexte

Bonjour,

Je recherche comment activer de façon multiples des liens hyper texte récupérés d'une extraction csv. Je me retrouve avec une colonne avec des lignes correspondantes à un lien hyper texte vers un fichier pdf. Cependant le lien n'est pas actif dans la cellule. Je peux activer le lien un par un mais je voudrais savoir si il existe une possibilité de les activer en une seule fois (plus de 200 lignes).

merci

Bonjour et

Avec la fonction Lien_Hypertexte en colonne C, tu peux avoir un truc comme ça.

LIEN_HYPERTEXTE(B1;A1)

Pour vérifier que tes liens fonctionnent par macro on indique "Lien OK" en colonne D si le fichier est trouvé

Sub LienOK()
Dim Ligne, DerLigne As Integer
DerLigne = Cells(Rows.Count, 2).End(xlUp).Row
For Ligne = 1 To DerLigne
    If Dir(Cells(Ligne, 2).Value, vbDirectory) <> vbNullString Then Cells(Ligne, 4).Value = "Lien OK"
Next Ligne
End Sub

A+

Bonjour à tous !

Je vous propose d'utiliser cette astuce glanée sur le web :

• Lire la source csv dans Power Query
• Ajouter une colonne supplémentaire avec le code : "'=LIEN_HYPERTEXTE(""" & [Lien] & """; """ & "Nom convivial !" & """)"
• charger le tableau dans Excel
• Via le ruban, "Accueil, rechercher et remplacer" :
  
  

Remarques :

1/ Le [Lien] correspond au champ issu du fichier csv. A adapter éventuellement.
2/ Le "' placé en tête du code est un guillemet associé une apostrophe.

Merci