Code VBA pour lien hyperlink

Question

Bonjour à tous,

Avec le code ci-dessous je souhaite créer un lien hyperlink avec le contenu de la cellule active.
(La cellule contient l'adresse complete du fichier pdf, sur OneDrive)
Quand je sélectionne à la souris le contenu de la cellule, le copie et lance la macro, ça fonctionne. Mais quand, seule la cellule est sélectionnée et que je copie et lance la macro ça plante à la ligne ou j'ai noté: ICI
J'ai observé que le contenu de l'hyperlien n'est pas le même selon la méthode de copie employée. Dans le second cas elle commence par \\fs1a\ au lieu de T:\,

T\Comptabilite\2022\janvier2022.pdf (Fonctionne)
\\fs1a\T\Comptabilite\2022\janvier2022.pdf (plante)
Est-ce que quelqu'un aurait l'explication ou ppourrait me mettre sur la voie ?

Merci d'avance pour votre aide, très bonne journée à tous.

Emile

-----------------------------------------------------------------------------
/Sub Clipboard_Pdf()
Set Clipboard = New MSForms.DataObject
Clipboard.GetFromClipboard
strContents = Clipboard.GetText
If strContents <> "" Then

strContents = Replace(strContents, Chr(34), "")
If Selection.Hyperlinks.Count > 0 Then Selection.Hyperlinks.Delete
ActiveCell.Hyperlinks.Add Anchor:=ActiveCell, Address:=strContents ' ICI
With Selection
.HorizontalAlignment = xlLeft
.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End With
Else
MsgBox "Aucun fichier dans le clipboard", vbInformation + vbOKCancel, "Opération annulée."
End If
End Sub/

Invité · Accepted Answer

Vous venez de poster votre message avec un format qui empêche une bonne lisibilité merci de bien vouloir l'éditer et mettre votre code entre balises, avec le bouton &lt;/&gt; Je vous invite à lire la charte du forum &#91;A LIRE AVANT DE POSTER&#93; qui vous aidera dans vos demandes et réponses sur ce forum Merci de votre participation et de votre compréhension A+...