Liens hypertexte

Le
AB
Bonjour,
J'ai en colonne C du texte, qui est le chemin d'accès complet à un fichier.
Je voudrais que ce chemin devienne un lien hypertexte, de sorte qu'en
cliquant dessus, j'accède au document concerné.
Une idée ?
Merci
AB
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Philippe.R
Le #5288071
Bonsoir,
Clic droit sur le texte / Lien hypertexte / choisir le fichier dans la boîte
de dialogue qui s'ouvre
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"AB" news:
Bonjour,
J'ai en colonne C du texte, qui est le chemin d'accès complet à un
fichier.
Je voudrais que ce chemin devienne un lien hypertexte, de sorte qu'en
cliquant dessus, j'accède au document concerné.
Une idée ?
Merci
AB





AB
Le #5287901
Merci, mais j'en ai environ 400.
Je cherche à automatiser l'affaire !
Une autre idée ?
AB

"Philippe.R" %
Bonsoir,
Clic droit sur le texte / Lien hypertexte / choisir le fichier dans la
boîte de dialogue qui s'ouvre
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"AB" news:
Bonjour,
J'ai en colonne C du texte, qui est le chemin d'accès complet à un
fichier.
Je voudrais que ce chemin devienne un lien hypertexte, de sorte qu'en
cliquant dessus, j'accède au document concerné.
Une idée ?
Merci
AB








MichDenis
Le #5287871
Dans le module feuille où l'action doit se dérouler, copie
la procédure suivante :

A ) adapte la plage Range("C1:C10") pour la plage où tu
as tes liens hypertextes.

B )

| qui est le chemin d'accès complet à un fichier.

La procédure suivante tient compte de la restriction
de ton énoncé précédente... c'est à dire que le contenu
des cellules doit représenter le chemin d'un fichier existant
sur le disque dur.

'---------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Range("C1:C10"), Target) Is Nothing Then
If Target <> "" Then
If Dir(Target) <> "" Then
ThisWorkbook.FollowHyperlink Target
End If
End If
End If
End Sub
'---------------------------




"AB"
Merci, mais j'en ai environ 400.
Je cherche à automatiser l'affaire !
Une autre idée ?
AB

"Philippe.R" %
Bonsoir,
Clic droit sur le texte / Lien hypertexte / choisir le fichier dans la
boîte de dialogue qui s'ouvre
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"AB" news:
Bonjour,
J'ai en colonne C du texte, qui est le chemin d'accès complet à un
fichier.
Je voudrais que ce chemin devienne un lien hypertexte, de sorte qu'en
cliquant dessus, j'accède au document concerné.
Une idée ?
Merci
AB








Michel Samoey
Le #5287821
Bonjour,
rajoute une colonne avec la formule par exemple en B4 :
=LIEN_HYPERTEXTE(A4;A4)

Cordialement
Michel

"AB"
Bonjour,
J'ai en colonne C du texte, qui est le chemin d'accès complet à un
fichier.
Je voudrais que ce chemin devienne un lien hypertexte, de sorte qu'en
cliquant dessus, j'accède au document concerné.
Une idée ?
Merci
AB





ChrisV
Le #5287791
Bonjour AB,

Avec la plage de données (Feuil1) nommée ici Zn

Sub zaza()
Dim c As Range
Application.ScreenUpdating = False
For Each c In [Zn]
Sheets("Feuil1").Hyperlinks.Add Anchor:=c, Address:=Dir(c)
Next c
End Sub


ChrisV


"AB"
Bonjour,
J'ai en colonne C du texte, qui est le chemin d'accès complet à un
fichier.
Je voudrais que ce chemin devienne un lien hypertexte, de sorte qu'en
cliquant dessus, j'accède au document concerné.
Une idée ?
Merci
AB





ChrisV
Le #5287571
Au cas où certaines cellules seraientt vides...

Sub zaza()
Dim c As Range
Application.ScreenUpdating = False
On Error Resume Next
For Each c In [Zn]
Sheets("Feuil1").Hyperlinks.Add Anchor:=c, Address:=Dir(c)
Next c
End Sub


ChrisV


"ChrisV" %
Bonjour AB,

Avec la plage de données (Feuil1) nommée ici Zn

Sub zaza()
Dim c As Range
Application.ScreenUpdating = False
For Each c In [Zn]
Sheets("Feuil1").Hyperlinks.Add Anchor:=c, Address:=Dir(c)
Next c
End Sub


ChrisV


"AB"
Bonjour,
J'ai en colonne C du texte, qui est le chemin d'accès complet à un
fichier.
Je voudrais que ce chemin devienne un lien hypertexte, de sorte qu'en
cliquant dessus, j'accède au document concerné.
Une idée ?
Merci
AB









AB
Le #5287071
Bonsoir à tous,
Je reposte, mon précédent message n'apparaissant pas...

Merci à tous,
J'ai opté pour la solution la plus simple, celle de Michel Samoey
Bonne soirée.
André

"ChrisV" %
Au cas où certaines cellules seraientt vides...

Sub zaza()
Dim c As Range
Application.ScreenUpdating = False
On Error Resume Next
For Each c In [Zn]
Sheets("Feuil1").Hyperlinks.Add Anchor:=c, Address:=Dir(c)
Next c
End Sub


ChrisV


"ChrisV" %
Bonjour AB,

Avec la plage de données (Feuil1) nommée ici Zn

Sub zaza()
Dim c As Range
Application.ScreenUpdating = False
For Each c In [Zn]
Sheets("Feuil1").Hyperlinks.Add Anchor:=c, Address:=Dir(c)
Next c
End Sub


ChrisV


"AB"
Bonjour,
J'ai en colonne C du texte, qui est le chemin d'accès complet à un
fichier.
Je voudrais que ce chemin devienne un lien hypertexte, de sorte qu'en
cliquant dessus, j'accède au document concerné.
Une idée ?
Merci
AB













Publicité
Poster une réponse
Anonyme