Lien hypertexte

Bonjour a tous!! Tout d'abord merci a tous pour les différentes aides que vous avez pu m'apporter. aujourd'hui me voila confronter a un nouveau problème : J'ai un code qui me permet de recopier des cellules dans un autres classeur si le critère "all down" est respecté.

le problème est que les cellules qui sont copier dans la premiere feuille sont des liens hypertexte contenu sur un serveur. dans le cas ou le serveur pose problème je peu m'arranger pour placer le fichier excel ainsi que tous les liens dans le meme dossier.

rivate Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("G2:E65536")) Is Nothing Then
If Target.Value = "All down" Then
With Sheets("Link")
LigVide = .Range("A65536").End(xlUp).Row + 1
.Cells(LigVide, 1) = Target.Offset(0, -6).Value
.Cells(LigVide, 2) = Target.Offset(0, 2).Value
.Cells(LigVide, 3) = Target.Offset(0, 3).Value
.Cells(LigVide, 4) = Target.Offset(0, 4).Value
End With
End If
End If
End Sub

Salut le forum

Même en te relisant, je n'arrive pas à saisir le pourquoi de ta demande.

A te relire

Mytå

j'aimerai pouvoir copier des liens hypertexte.

Le probleme est que lorsque je copie un lien, il recopie juste le nom et pas le lien.

Salut le forum

Il faut utiliser le copier et non le signe égale

Target.Offset(0, -6).Copy .Cells(LigVide, 1)

Mytå