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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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" a écrit dans le message de 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
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" <spamophobe1@marseille.com> a écrit dans le message de
news:Oqn1MnQYIHA.5816@TK2MSFTNGP06.phx.gbl...
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
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" a écrit dans le message de 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
Merci, mais j'en ai environ 400. Je cherche à automatiser l'affaire ! Une autre idée ? AB
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news: %
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" a écrit dans le message de 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
Merci, mais j'en ai environ 400.
Je cherche à automatiser l'affaire !
Une autre idée ?
AB
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:
%23DGf5yQYIHA.4896@TK2MSFTNGP06.phx.gbl...
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" <spamophobe1@marseille.com> a écrit dans le message de
news:Oqn1MnQYIHA.5816@TK2MSFTNGP06.phx.gbl...
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
Merci, mais j'en ai environ 400. Je cherche à automatiser l'affaire ! Une autre idée ? AB
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news: %
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" a écrit dans le message de 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
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" a écrit dans le message de news:
Merci, mais j'en ai environ 400. Je cherche à automatiser l'affaire ! Une autre idée ? AB
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news: %
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" a écrit dans le message de 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
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" <spamophobe1@marseille.com> a écrit dans le message de news:
eJvdWzRYIHA.4696@TK2MSFTNGP05.phx.gbl...
Merci, mais j'en ai environ 400.
Je cherche à automatiser l'affaire !
Une autre idée ?
AB
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:
%23DGf5yQYIHA.4896@TK2MSFTNGP06.phx.gbl...
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" <spamophobe1@marseille.com> a écrit dans le message de
news:Oqn1MnQYIHA.5816@TK2MSFTNGP06.phx.gbl...
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
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" a écrit dans le message de news:
Merci, mais j'en ai environ 400. Je cherche à automatiser l'affaire ! Une autre idée ? AB
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news: %
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" a écrit dans le message de 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
Bonjour, rajoute une colonne avec la formule par exemple en B4 : =LIEN_HYPERTEXTE(A4;A4)
Cordialement Michel
"AB" a écrit dans le message de 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
Bonjour,
rajoute une colonne avec la formule par exemple en B4 :
=LIEN_HYPERTEXTE(A4;A4)
Cordialement
Michel
"AB" <spamophobe1@marseille.com> a écrit dans le message de news:
Oqn1MnQYIHA.5816@TK2MSFTNGP06.phx.gbl...
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
Bonjour, rajoute une colonne avec la formule par exemple en B4 : =LIEN_HYPERTEXTE(A4;A4)
Cordialement Michel
"AB" a écrit dans le message de 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
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" a écrit dans le message de 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
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" <spamophobe1@marseille.com> a écrit dans le message de news:
Oqn1MnQYIHA.5816@TK2MSFTNGP06.phx.gbl...
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
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" a écrit dans le message de 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
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" a écrit dans le message de news: %
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" a écrit dans le message de 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
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" <chrisve@wanadoo.fr> a écrit dans le message de news:
%23ACxJtSYIHA.4740@TK2MSFTNGP02.phx.gbl...
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" <spamophobe1@marseille.com> a écrit dans le message de news:
Oqn1MnQYIHA.5816@TK2MSFTNGP06.phx.gbl...
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
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" a écrit dans le message de news: %
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" a écrit dans le message de 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
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" a écrit dans le message de news: %
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" a écrit dans le message de news: %
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" a écrit dans le message de 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
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" <chrisve@wanadoo.fr> a écrit dans le message de news:
%234SpNPaYIHA.4880@TK2MSFTNGP03.phx.gbl...
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" <chrisve@wanadoo.fr> a écrit dans le message de news:
%23ACxJtSYIHA.4740@TK2MSFTNGP02.phx.gbl...
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" <spamophobe1@marseille.com> a écrit dans le message de news:
Oqn1MnQYIHA.5816@TK2MSFTNGP06.phx.gbl...
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
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" a écrit dans le message de news: %
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" a écrit dans le message de news: %
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" a écrit dans le message de 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