Lien vers page web avec ID depuis Excel
bylka213
Messages postés
36
Statut
Membre
-
bylka213 Messages postés 36 Statut Membre -
bylka213 Messages postés 36 Statut Membre -
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
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
A voir également:
- Lien vers page web avec ID depuis Excel
- Vers quelle adresse web renvoie ce lien - Guide
- Partager des photos avec un lien - Guide
- Web office - Guide
- Liste déroulante excel - Guide
- Supprimer page word - Guide
3 réponses
bonjour
Lorsque tu cliques sur une cellule renseignée de la colonne A le lien s'ouvre avec le bon ID, avec cette macro
ps : les messages sur l'autre discussion ont été supprimés apparemment.
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.
bonjour
Non si tu as bien recopié la macro ci-dessus car justement elle ne s'exécute pas en lien si plusieurs cellules.
Non si tu as bien recopié la macro ci-dessus car justement elle ne s'exécute pas en lien si plusieurs cellules.
Merci,
Cela fonctionne bien, parcontre j'ai un souci dans mon tableau j'ai une colonne où figure des adresses mail, dans Excel lorsque l'on entre au clavier une adresse mail le fichier reconné la typo et l'adresse devient cliquable et lorsque l'on clique dessus outlook s'ouvre. Parcontre moi comme les données figurant dans mon tableau dont issues d'une source externe une BDD oracle en réalité c'est pas comme ci elles étaient entrées au clavier donc les adresses ne sont pas cliquable.
Peut on faire en sorte de formater une colonne de façon à lui dire que les valeurs des cellules sont des mails?
Ceci peut peut etre se faire par macro ?
Encore merci
Cela fonctionne bien, parcontre j'ai un souci dans mon tableau j'ai une colonne où figure des adresses mail, dans Excel lorsque l'on entre au clavier une adresse mail le fichier reconné la typo et l'adresse devient cliquable et lorsque l'on clique dessus outlook s'ouvre. Parcontre moi comme les données figurant dans mon tableau dont issues d'une source externe une BDD oracle en réalité c'est pas comme ci elles étaient entrées au clavier donc les adresses ne sont pas cliquable.
Peut on faire en sorte de formater une colonne de façon à lui dire que les valeurs des cellules sont des mails?
Ceci peut peut etre se faire par macro ?
Encore merci
bonjour
Il faut faire comme ici passer par une macro particulière.
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
Merci