Microsoft 365 Hyperlink d'après valeur TCD

[NikonvsWild]

Bonjour à vous!
Je voudrais que dans un de mes TCD (un onglet à part), les valeurs d'une colonne spécifique, soit cliquables, ou renvoie à un lien hypertext

Sachant que ces valeurs (cf le screen en-dessous) = la fin du chemin
exemple : "\\SERVEUR\..............\2025\45"



A priori j'ai cru lire sur le net, que cette fonction n'est pas prévu par Excel, et qu'il faut passer par du code VBA.
Auriez-vous une idée sur comment écrire ce code ?

Merci par avance à tout ceux qui pourrons m'aider!

 

[wDog66]

Bonjour NikonvsWild,

Je pense que oui, ALT+F11 pour accéder au VBAProject
Double clique sur le nom de la feuille contenant le TCD, ou CTRL+R pour afficher l'explorateur si vous ne l'avez pas

Vous pouvez mettre le code suivant

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim Lien As String
  Lien = "\\Serveur\Dossier\"
  ' Mettre le numéro de la colonne contenant l'ID du marché
  If Target.Column = 5 And Target.Value <> "" Then
    Lien = Lien & Replace(Target, "/", "\")
    ThisWorkbook.FollowHyperlink Lien
  End If
End Sub

Le fichier sera à enregistrer en ".xlsm"

A tester 😉

 

[NikonvsWild]

Bonjour NikonvsWild,

Je pense que oui, dans la feuille contenant le TCD, vous pouvez mettre le code suivant

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim Lien As String
  Lien = "\\Serveur\Dossier\"
  ' Mettre le numéro de la colonne contenant l'ID du marché
  If Target.Column = 5 And Target.Value <> "" Then
    Lien = Lien & Replace(Target, "/", "\")
    ThisWorkbook.FollowHyperlink Lien
  End If
End Sub

A tester 😉

Bonjour,
Et merci pour votre aide!

Je viens de tester :
j'ai bien la colonne 5 (colonne "G")
j'ai remis le bon chemin aussi
Mais j'ai une erreur "13"

 

[Phil69970]

Bonjour à tous

Peut être juste en passant

If Target.Columns = 5 And Target.Value <> "" Then

Bonne continuation

 

[NikonvsWild]

Bonjour! Merci, bien rajouté le "S".

J'ai toujours l'erreur "13" quand je clique sur le TCD pour ouvrir le lien.
J'essaye de comprendre l'erreur mais je ne vois pas 🤔

 

[wDog66]

Re,

Bonjour,
Et merci pour votre aide!

Je viens de tester :
j'ai bien la colonne 5 (colonne "G")
j'ai remis le bon chemin aussi
Mais j'ai une erreur "13"

Regarde la pièce jointe 1220932


Regarde la pièce jointe 1220930

Désolé, mais moi ça fonctionne !

@Phil69970... "Column" ne prend pas de "S" c'est pour avoir le numéro de colonne, rien d'autre

La colonne 5 ne peut pas être la colonne G 🤣

 

[Phil69970]

En plus j'ai écrit une bêtise comme @wDog66 l'a écrit

@Phil69970... "Column" ne prend pas de "S" c'est pour avoir le numéro de colonne, rien d'autre

@NikonvsWild

Essaye juste ceci pour faire un test ( et bien sur tu mets quelques valeur dans la colonne E)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 And Target.Value <> "" Then
    MsgBox "ok"
Else
    MsgBox "pas ok"
End If
End Sub

Et bien sur la colonne 5 est la colonne E😉

Après tu parles peut être de la 5eme colonne d'un TS mais sans fichier c'est un peu Mme Irma !!!!

 

[NikonvsWild]

Alors je viens de comprendre l'erreur 13 !
(Effectivement j'ai remis la colonne 7 😅😅, colonnes masquées ...) et j'ai enlevé le "S"

L'erreur 13 vient du fait que certaines de mes étiquettes de colonne sont fusionnées (plusieurs lignes avec 2025/30)
Les dossiers qui tiennent sur 1 ligne cela fonctione impec!

A priori je pourrais répéter les étiquettes (bien que ce soit moins lisible)

Phil69970 : je teste ta solution demain, promis​

merci encore!

 

[job75]

Bonjour le forum,

C'est classique, Target.Value <> "" beugue si Target est formée de plusieurs cellules donc utilisez :

If Target.Column = 5 And Target(1) <> "" Then

A+

 

[NikonvsWild]

Bonjour!
Merci pour votre retour. Ca bug pareil malheureusement. Erreur 13, dès que la valeur se trouve dans des cellules fusionnées (étiquettes identiques)

Voici ce que j'ai intégré :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim Lien As String
  Lien = "\\Serveur\commun\[ destination de mon serveur ...]\MARCHES PUBLICS ET VEFA\"
  ' Mettre le numéro de la colonne contenant l'ID du marché
    If Target.Column = 7 And Target(1) <> "" Then
    Lien = Lien & Replace(Target, "/", "\")
    ThisWorkbook.FollowHyperlink Lien
  End If
End Sub

Exemple dans ce cas (Erreur 13)

En revanche, ça marche super bien lorsque la valeur est sur une ligne unique. Comme dans ce cas. Cela m'ouvre bien le dossier de destination sur mon serveur.

Je vais vous anonymiser mon doc et le mettre en PJ dès que je trouve 5 min.
Merci à tous pour votre aide!

 

[job75]

Il faut aussi corriger la ligne suivante :

If Target.Column = 7 And Target(1) <> "" Then
    Lien = Lien & Replace(Target(1), "/", "\")

 

[NikonvsWild]

Il faut aussi corriger la ligne suivante :

If Target.Column = 7 And Target(1) <> "" Then
    Lien = Lien & Replace(Target(1), "/", "\")

Merci cela fonctionne parfaitement maintenant (sur ligne unique ou fusionnées)
Bravo et merci à vous tous! 🫡