Bonjour,
j'ai un dossier dans OneDrive où je stocke mes documents scannés et sur la colonne I j'ai mes liens hypertextes me permettant d'ouvrir ces fichiers.
Le problème est que le chemin vers dossier varie en fonction de l'ordinateur sur lequel je suis.
Le chemin est le suivant :
C:/Users/Laurent/OneDrive/Entreprise/1.%20GESTION/Documents/08-08-19_Hydis.pdf
Je cherche a remplacer "Laurent" par le nom d'utilisateur de l'ordinateur sur lequel je suis actuellement.
Pour ça j'ai trouver la fonction environ("USERSNAME") qui marche bien.
j'ai commencé un début de code mais ça marche pas.
Sub ChangeHyperlink()
DernLigne = Sheets("Compte Bancaire").Range("D" & Rows.Count).End(xlUp).Row
For I = 29 To DernLigne
lien = Sheets("Compte Bancaire").Range("I" & I).Hyperlinks(1).Address
If lien <> "" Then
If Environ("USERNAME") = "Laurent" Then
ReplaceArray = Replace(lien, "TOTO", "Laurent")
ElseIf Environ("USERNAME") = "TOTO" Then
ReplaceArray = Replace(lien, "Laurent", "TOTO")
End If
End If
Next I
End Sub
J'ai une erreur sur :
lien = Sheets("Compte Bancaire").Range("I" & I).Hyperlinks(1).Address
Lorsque la cellule n'a pas de lien hypertexte, excel me dit que l'indice n'appartient pas à la sélection.
et pour :
ReplaceArray = Replace(lien, "TOTO", "Laurent")
j'ai trouvé ça sur les forums mais ça marche pas du tout.
merci à vous