M
marc
Guest
Bonjour,
je suis sur le point de finir ma première macro , mais je tourne en rond
la macro est la suivante:
Sub supertexte()
For Each Cell In ActiveSheet.Range("b:b")
If Cell.Value = "" Then Exit For
ActiveSheet.Hyperlinks.Add Anchor:=Cell, Address:="c:/doc1/" + Cell.Value, _
TextToDisplay:=Cell.Value
Next Cell
End Sub
le probleme est que le lien hypertexte créé commence par file:// ce que je n'arrive pas à enlevé
merci d'avance
marc
je suis sur le point de finir ma première macro , mais je tourne en rond
la macro est la suivante:
Sub supertexte()
For Each Cell In ActiveSheet.Range("b:b")
If Cell.Value = "" Then Exit For
ActiveSheet.Hyperlinks.Add Anchor:=Cell, Address:="c:/doc1/" + Cell.Value, _
TextToDisplay:=Cell.Value
Next Cell
End Sub
le probleme est que le lien hypertexte créé commence par file:// ce que je n'arrive pas à enlevé
merci d'avance
marc