lien vers page web avec ID depuis Excel

Question

Bonjour,

J'ai un petit soucis sur mon fichier Excel.
J'ai une premiere colonne qui est un "ID" jusque là je peux mettre cete ID en lien hypertexte vers une page web lui étant propre:

par exemple si dans ma colonne j'ai l'ID :1392
je mets en lien hypertexte l'adresse :
http://xxx.yyyy.abcd.com/xxx/ccc.php?chr_id=1392&action=report

serait t-il possible que lorsque une ligne est ajouté automatiquement à mon Excel le lien se crée vers l'ID correspondant?

un truc du genre à la place de mettre 1392 dans l'http on ait un truc qui lit la valeur de la cellule?

Merci

gbinforme · Answer

bonjour

Lorsque tu cliques sur une cellule renseignée de la colonne A le lien s'ouvre avec le bon ID, avec cette macro
Private Sub Worksheet_SelectionChange(ByVal sel As Range)
If sel.Count > 1 Then Exit Sub
If Not Intersect(sel, [A:A]) Is Nothing And sel.Value <> "" Then
    Dim chemin As String
    chemin = "http://xxx.yyyy.abcd.com/xxx/ccc.php?chr_id=1392&action=report"
    chemin = Replace([B1].Value, "1392", sel.Value)
    ActiveWorkbook.FollowHyperlink Address:=chemin, NewWindow:=True
End If
End Sub

ps : les messages sur l'autre discussion ont été supprimés apparemment.

gbinforme · Answer

bonjour

Non si tu as bien recopié la macro ci-dessus car justement elle ne s'exécute pas en lien si plusieurs cellules.

gbinforme · Answer

bonjour

Il faut faire comme ici passer par une macro particulière.
Sub valide_lien() ' validation liens d'une colonne
Dim lig As Long
Dim col As Integer
col = 2             ' numéro colonne à valider (B ?)
For lig = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
    If Cells(lig, col).Value <> "" Then
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(lig, col), _
            Address:="mailto:" & Cells(lig, col).Value, TextToDisplay:=Cells(lig, col).Value
    End If
Next lig
End Sub

Lien vers page web avec ID depuis Excel

3 réponses

Discussions similaires

Newsletters