Bonsoir,
Un clique dans la colonne B ouvert le fichier dont l'adresse se trouve da ns
la ligne correspondante en colonne A et le nom du fichier en colonne B
La plage commence en B1 dans l'exemple (éventuellement adapté)
A coller dans le module de la feuille en question.
'----------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set plage = Range("B1:B" & Cells(Rows.Count, "b").End(3).Row)
If Not Intersect(Target, plage) Is Nothing And Target.Count = 1 Then
On Error Resume Next
Workbooks.Open Filename:=Target.Offset(0, -1) & "" & Target
Target.Offset(0, -1).Activate
End If
End Sub
'-----------------
--
Salutations
JJ
"Lune Rousse" a écrit dans le message de news:
Bonsoir,
Sur une feuille Excel jÂ’ai dans la colonne A ( de A1 à A 2500) un
texte par cellule qui est lÂ’adresse complète dÂ’un dossier.
Dans la colonne B jÂ’ai le nom dÂ’un fichier par cellule.
Je souhaite, en VBA, si cela est possible, mettre un lien sur les mots
contenu en B1 le lien est écrit dans A1.
Idem pour B2 son lien est en A2 etc.
Au final si je clic sur B4, je souhaite ouvrir le dossier dont
lÂ’adresse est écrite en A4.
Je sais poser un lien manuellement mais sur 2500 lignes, il me
faudrait trop de temps.
Merci de votre aide.
Lune_Rousse.
Bonsoir,
Un clique dans la colonne B ouvert le fichier dont l'adresse se trouve da ns
la ligne correspondante en colonne A et le nom du fichier en colonne B
La plage commence en B1 dans l'exemple (éventuellement adapté)
A coller dans le module de la feuille en question.
'----------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set plage = Range("B1:B" & Cells(Rows.Count, "b").End(3).Row)
If Not Intersect(Target, plage) Is Nothing And Target.Count = 1 Then
On Error Resume Next
Workbooks.Open Filename:=Target.Offset(0, -1) & "" & Target
Target.Offset(0, -1).Activate
End If
End Sub
'-----------------
--
Salutations
JJ
"Lune Rousse" <tanin...@gmail.com> a écrit dans le message de news:
4d60d8a9-dff4-48db-bfb1-4a4d7f01f...@e34g2000vbm.googlegroups.com...
Bonsoir,
Sur une feuille Excel jÂ’ai dans la colonne A ( de A1 à A 2500) un
texte par cellule qui est lÂ’adresse complète dÂ’un dossier.
Dans la colonne B jÂ’ai le nom dÂ’un fichier par cellule.
Je souhaite, en VBA, si cela est possible, mettre un lien sur les mots
contenu en B1 le lien est écrit dans A1.
Idem pour B2 son lien est en A2 etc.
Au final si je clic sur B4, je souhaite ouvrir le dossier dont
lÂ’adresse est écrite en A4.
Je sais poser un lien manuellement mais sur 2500 lignes, il me
faudrait trop de temps.
Merci de votre aide.
Lune_Rousse.
Bonsoir,
Un clique dans la colonne B ouvert le fichier dont l'adresse se trouve da ns
la ligne correspondante en colonne A et le nom du fichier en colonne B
La plage commence en B1 dans l'exemple (éventuellement adapté)
A coller dans le module de la feuille en question.
'----------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set plage = Range("B1:B" & Cells(Rows.Count, "b").End(3).Row)
If Not Intersect(Target, plage) Is Nothing And Target.Count = 1 Then
On Error Resume Next
Workbooks.Open Filename:=Target.Offset(0, -1) & "" & Target
Target.Offset(0, -1).Activate
End If
End Sub
'-----------------
--
Salutations
JJ
"Lune Rousse" a écrit dans le message de news:
Bonsoir,
Sur une feuille Excel jÂ’ai dans la colonne A ( de A1 à A 2500) un
texte par cellule qui est lÂ’adresse complète dÂ’un dossier.
Dans la colonne B jÂ’ai le nom dÂ’un fichier par cellule.
Je souhaite, en VBA, si cela est possible, mettre un lien sur les mots
contenu en B1 le lien est écrit dans A1.
Idem pour B2 son lien est en A2 etc.
Au final si je clic sur B4, je souhaite ouvrir le dossier dont
lÂ’adresse est écrite en A4.
Je sais poser un lien manuellement mais sur 2500 lignes, il me
faudrait trop de temps.
Merci de votre aide.
Lune_Rousse.
On 8 août, 23:32, "Jacky" wrote:
> Bonsoir,
> Un clique dans la colonne B ouvert le fichier dont l'adresse se trouve dans
> la ligne correspondante en colonne A et le nom du fichier en colonne B
> La plage commence en B1 dans l'exemple (éventuellement adapté)
> A coller dans le module de la feuille en question.
> '----------------
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> Set plage = Range("B1:B" & Cells(Rows.Count, "b").End(3).Row)
> If Not Intersect(Target, plage) Is Nothing And Target.Count = 1 Then
> On Error Resume Next
> Workbooks.Open Filename:=Target.Offset(0, -1) & "" & Target
> Target.Offset(0, -1).Activate
> End If
> End Sub
> '-----------------
> --
> Salutations
> JJ
> "Lune Rousse" a écrit dans le message de news:
>
> Bonsoir,
> Sur une feuille Excel jÂ’ai dans la colonne A ( de A1 à A 2500) un
> texte par cellule qui est lÂ’adresse complète dÂ’un dossier.
> Dans la colonne B jÂ’ai le nom dÂ’un fichier par cellule.
> Je souhaite, en VBA, si cela est possible, mettre un lien sur les mots
> contenu en B1 le lien est écrit dans A1.
> Idem pour B2 son lien est en A2 etc.
> Au final si je clic sur B4, je souhaite ouvrir le dossier dont
> lÂ’adresse est écrite en A4.
> Je sais poser un lien manuellement mais sur 2500 lignes, il me
> faudrait trop de temps.
> Merci de votre aide.
> Lune_Rousse.
On 8 août, 23:32, "Jacky" <Dup...@marcel.fr> wrote:
> Bonsoir,
> Un clique dans la colonne B ouvert le fichier dont l'adresse se trouve dans
> la ligne correspondante en colonne A et le nom du fichier en colonne B
> La plage commence en B1 dans l'exemple (éventuellement adapté)
> A coller dans le module de la feuille en question.
> '----------------
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> Set plage = Range("B1:B" & Cells(Rows.Count, "b").End(3).Row)
> If Not Intersect(Target, plage) Is Nothing And Target.Count = 1 Then
> On Error Resume Next
> Workbooks.Open Filename:=Target.Offset(0, -1) & "" & Target
> Target.Offset(0, -1).Activate
> End If
> End Sub
> '-----------------
> --
> Salutations
> JJ
> "Lune Rousse" <tanin...@gmail.com> a écrit dans le message de news:
> 4d60d8a9-dff4-48db-bfb1-4a4d7f01f...@e34g2000vbm.googlegroups.com...
> Bonsoir,
> Sur une feuille Excel jÂ’ai dans la colonne A ( de A1 à A 2500) un
> texte par cellule qui est lÂ’adresse complète dÂ’un dossier.
> Dans la colonne B jÂ’ai le nom dÂ’un fichier par cellule.
> Je souhaite, en VBA, si cela est possible, mettre un lien sur les mots
> contenu en B1 le lien est écrit dans A1.
> Idem pour B2 son lien est en A2 etc.
> Au final si je clic sur B4, je souhaite ouvrir le dossier dont
> lÂ’adresse est écrite en A4.
> Je sais poser un lien manuellement mais sur 2500 lignes, il me
> faudrait trop de temps.
> Merci de votre aide.
> Lune_Rousse.
On 8 août, 23:32, "Jacky" wrote:
> Bonsoir,
> Un clique dans la colonne B ouvert le fichier dont l'adresse se trouve dans
> la ligne correspondante en colonne A et le nom du fichier en colonne B
> La plage commence en B1 dans l'exemple (éventuellement adapté)
> A coller dans le module de la feuille en question.
> '----------------
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> Set plage = Range("B1:B" & Cells(Rows.Count, "b").End(3).Row)
> If Not Intersect(Target, plage) Is Nothing And Target.Count = 1 Then
> On Error Resume Next
> Workbooks.Open Filename:=Target.Offset(0, -1) & "" & Target
> Target.Offset(0, -1).Activate
> End If
> End Sub
> '-----------------
> --
> Salutations
> JJ
> "Lune Rousse" a écrit dans le message de news:
>
> Bonsoir,
> Sur une feuille Excel jÂ’ai dans la colonne A ( de A1 à A 2500) un
> texte par cellule qui est lÂ’adresse complète dÂ’un dossier.
> Dans la colonne B jÂ’ai le nom dÂ’un fichier par cellule.
> Je souhaite, en VBA, si cela est possible, mettre un lien sur les mots
> contenu en B1 le lien est écrit dans A1.
> Idem pour B2 son lien est en A2 etc.
> Au final si je clic sur B4, je souhaite ouvrir le dossier dont
> lÂ’adresse est écrite en A4.
> Je sais poser un lien manuellement mais sur 2500 lignes, il me
> faudrait trop de temps.
> Merci de votre aide.
> Lune_Rousse.
On 9 août, 13:49, Lune Rousse wrote:
> On 8 août, 23:32, "Jacky" wrote:
> > Bonsoir,
> > Un clique dans la colonne B ouvert le fichier dont l'adresse se trouv e dans
> > la ligne correspondante en colonne A et le nom du fichier en colonne B
> > La plage commence en B1 dans l'exemple (éventuellement adapté)
> > A coller dans le module de la feuille en question.
> > '----------------
> > Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> > Set plage = Range("B1:B" & Cells(Rows.Count, "b").End(3).Row)
> > If Not Intersect(Target, plage) Is Nothing And Target.Count = 1 The n
> > On Error Resume Next
> > Workbooks.Open Filename:=Target.Offset(0, -1) & "" & Target
> > Target.Offset(0, -1).Activate
> > End If
> > End Sub
> > '-----------------
> > --
> > Salutations
> > JJ
> > "Lune Rousse" a écrit dans le message de news:
> >
> > Bonsoir,
> > Sur une feuille Excel jÂ’ai dans la colonne A ( de A1 à A 2500 ) un
> > texte par cellule qui est lÂ’adresse complète dÂ’un dossier.
> > Dans la colonne B jÂ’ai le nom dÂ’un fichier par cellule.
> > Je souhaite, en VBA, si cela est possible, mettre un lien sur les mot s
> > contenu en B1 le lien est écrit dans A1.
> > Idem pour B2 son lien est en A2 etc.
> > Au final si je clic sur B4, je souhaite ouvrir le dossier dont
> > lÂ’adresse est écrite en A4.
> > Je sais poser un lien manuellement mais sur 2500 lignes, il me
> > faudrait trop de temps.
> > Merci de votre aide.
> > Lune_Rousse.
Bonjour Jacky
Ta macro est étonnante et elle fait exactement ce qui tu dis. Mais
sans ouvrir le dossier puisse que dans les cellules de la colonne A je
nÂ’ai pas de lien, mais juste lÂ’adresse dÂ’un lien Â…
Le lien que je souhaite mettre sur les cellules de la colonne B
devrait me faire apparaître les contenus de ma colonne B en bleu,
(comme un lien hypertexte classique) car je dois manipuler le contenu
de la colonne B et le recopier dans une autre feuille après
traitement.
De plus le traitement nÂ’est pas réalisé si lÂ’on modifie la feuill e,
mais à lÂ’aide dÂ’un bouton qui lance une macro. (Lancer une macro av ec
un bouton je sais faire.)
Merci de ton aide
Lune Rousse- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
On 9 août, 13:49, Lune Rousse <tanin...@gmail.com> wrote:
> On 8 août, 23:32, "Jacky" <Dup...@marcel.fr> wrote:
> > Bonsoir,
> > Un clique dans la colonne B ouvert le fichier dont l'adresse se trouv e dans
> > la ligne correspondante en colonne A et le nom du fichier en colonne B
> > La plage commence en B1 dans l'exemple (éventuellement adapté)
> > A coller dans le module de la feuille en question.
> > '----------------
> > Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> > Set plage = Range("B1:B" & Cells(Rows.Count, "b").End(3).Row)
> > If Not Intersect(Target, plage) Is Nothing And Target.Count = 1 The n
> > On Error Resume Next
> > Workbooks.Open Filename:=Target.Offset(0, -1) & "" & Target
> > Target.Offset(0, -1).Activate
> > End If
> > End Sub
> > '-----------------
> > --
> > Salutations
> > JJ
> > "Lune Rousse" <tanin...@gmail.com> a écrit dans le message de news:
> > 4d60d8a9-dff4-48db-bfb1-4a4d7f01f...@e34g2000vbm.googlegroups.com...
> > Bonsoir,
> > Sur une feuille Excel jÂ’ai dans la colonne A ( de A1 à A 2500 ) un
> > texte par cellule qui est lÂ’adresse complète dÂ’un dossier.
> > Dans la colonne B jÂ’ai le nom dÂ’un fichier par cellule.
> > Je souhaite, en VBA, si cela est possible, mettre un lien sur les mot s
> > contenu en B1 le lien est écrit dans A1.
> > Idem pour B2 son lien est en A2 etc.
> > Au final si je clic sur B4, je souhaite ouvrir le dossier dont
> > lÂ’adresse est écrite en A4.
> > Je sais poser un lien manuellement mais sur 2500 lignes, il me
> > faudrait trop de temps.
> > Merci de votre aide.
> > Lune_Rousse.
Bonjour Jacky
Ta macro est étonnante et elle fait exactement ce qui tu dis. Mais
sans ouvrir le dossier puisse que dans les cellules de la colonne A je
nÂ’ai pas de lien, mais juste lÂ’adresse dÂ’un lien Â…
Le lien que je souhaite mettre sur les cellules de la colonne B
devrait me faire apparaître les contenus de ma colonne B en bleu,
(comme un lien hypertexte classique) car je dois manipuler le contenu
de la colonne B et le recopier dans une autre feuille après
traitement.
De plus le traitement nÂ’est pas réalisé si lÂ’on modifie la feuill e,
mais à lÂ’aide dÂ’un bouton qui lance une macro. (Lancer une macro av ec
un bouton je sais faire.)
Merci de ton aide
Lune Rousse- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
On 9 août, 13:49, Lune Rousse wrote:
> On 8 août, 23:32, "Jacky" wrote:
> > Bonsoir,
> > Un clique dans la colonne B ouvert le fichier dont l'adresse se trouv e dans
> > la ligne correspondante en colonne A et le nom du fichier en colonne B
> > La plage commence en B1 dans l'exemple (éventuellement adapté)
> > A coller dans le module de la feuille en question.
> > '----------------
> > Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> > Set plage = Range("B1:B" & Cells(Rows.Count, "b").End(3).Row)
> > If Not Intersect(Target, plage) Is Nothing And Target.Count = 1 The n
> > On Error Resume Next
> > Workbooks.Open Filename:=Target.Offset(0, -1) & "" & Target
> > Target.Offset(0, -1).Activate
> > End If
> > End Sub
> > '-----------------
> > --
> > Salutations
> > JJ
> > "Lune Rousse" a écrit dans le message de news:
> >
> > Bonsoir,
> > Sur une feuille Excel jÂ’ai dans la colonne A ( de A1 à A 2500 ) un
> > texte par cellule qui est lÂ’adresse complète dÂ’un dossier.
> > Dans la colonne B jÂ’ai le nom dÂ’un fichier par cellule.
> > Je souhaite, en VBA, si cela est possible, mettre un lien sur les mot s
> > contenu en B1 le lien est écrit dans A1.
> > Idem pour B2 son lien est en A2 etc.
> > Au final si je clic sur B4, je souhaite ouvrir le dossier dont
> > lÂ’adresse est écrite en A4.
> > Je sais poser un lien manuellement mais sur 2500 lignes, il me
> > faudrait trop de temps.
> > Merci de votre aide.
> > Lune_Rousse.
Bonjour Jacky
Ta macro est étonnante et elle fait exactement ce qui tu dis. Mais
sans ouvrir le dossier puisse que dans les cellules de la colonne A je
nÂ’ai pas de lien, mais juste lÂ’adresse dÂ’un lien Â…
Le lien que je souhaite mettre sur les cellules de la colonne B
devrait me faire apparaître les contenus de ma colonne B en bleu,
(comme un lien hypertexte classique) car je dois manipuler le contenu
de la colonne B et le recopier dans une autre feuille après
traitement.
De plus le traitement nÂ’est pas réalisé si lÂ’on modifie la feuill e,
mais à lÂ’aide dÂ’un bouton qui lance une macro. (Lancer une macro av ec
un bouton je sais faire.)
Merci de ton aide
Lune Rousse- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
... ta macro sélectionne la cellule mais elle n’ouvre pas le dossier.
Au final si je clic sur B4, je souhaite ouvrir le dossier dont
l’adresse est écrite en A4.
... ta macro sélectionne la cellule mais elle n’ouvre pas le dossier.
Au final si je clic sur B4, je souhaite ouvrir le dossier dont
l’adresse est écrite en A4.
... ta macro sélectionne la cellule mais elle n’ouvre pas le dossier.
Au final si je clic sur B4, je souhaite ouvrir le dossier dont
l’adresse est écrite en A4.
On 9 août, 14:00, Lune Rousse wrote:
> On 9 août, 13:49, Lune Rousse wrote:
> > On 8 août, 23:32, "Jacky" wrote:
> > > Bonsoir,
> > > Un clique dans la colonne B ouvert le fichier dont l'adresse se tro uve dans
> > > la ligne correspondante en colonne A et le nom du fichier en colonn e B
> > > La plage commence en B1 dans l'exemple (éventuellement adapt é)
> > > A coller dans le module de la feuille en question.
> > > '----------------
> > > Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> > > Set plage = Range("B1:B" & Cells(Rows.Count, "b").End(3).Row)
> > > If Not Intersect(Target, plage) Is Nothing And Target.Count = 1 T hen
> > > On Error Resume Next
> > > Workbooks.Open Filename:=Target.Offset(0, -1) & "" & Target
> > > Target.Offset(0, -1).Activate
> > > End If
> > > End Sub
> > > '-----------------
> > > --
> > > Salutations
> > > JJ
> > > "Lune Rousse" a écrit dans le message de new s:
> > > .
> > > Bonsoir,
> > > Sur une feuille Excel jÂ’ai dans la colonne A ( de A1 à A 25 00) un
> > > texte par cellule qui est lÂ’adresse complète dÂ’un dossier.
> > > Dans la colonne B jÂ’ai le nom dÂ’un fichier par cellule.
> > > Je souhaite, en VBA, si cela est possible, mettre un lien sur les m ots
> > > contenu en B1 le lien est écrit dans A1.
> > > Idem pour B2 son lien est en A2 etc.
> > > Au final si je clic sur B4, je souhaite ouvrir le dossier dont
> > > lÂ’adresse est écrite en A4.
> > > Je sais poser un lien manuellement mais sur 2500 lignes, il me
> > > faudrait trop de temps.
> > > Merci de votre aide.
> > > Lune_Rousse.
> Bonjour Jacky
> Ta macro est étonnante et elle fait exactement ce qui tu dis. Mais
> sans ouvrir le dossier puisse que dans les cellules de la colonne A je
> nÂ’ai pas de lien, mais juste lÂ’adresse dÂ’un lien Â…
> Le lien que je souhaite mettre sur les cellules de la colonne B
> devrait me faire apparaître les contenus de ma colonne B en bleu,
> (comme un lien hypertexte classique) car je dois manipuler le contenu
> de la colonne B et le recopier dans une autre feuille après
> traitement.
> De plus le traitement nÂ’est pas réalisé si lÂ’on modifie la feui lle,
> mais à lÂ’aide dÂ’un bouton qui lance une macro. (Lancer une macro avec
> un bouton je sais faire.)
> Merci de ton aide
> Lune Rousse- Masquer le texte des messages précédents -
> - Afficher le texte des messages précédents -
Bonjour Jacky
En complément dÂ’information.
Une photo du début du fichier
En A1 lÂ’adresse du lien sous forme de texte. En B1 le nom
Je recherche le fonctionnement suivant :
Si je clic sur B1 alors jÂ’ouvre le dossier dont lÂ’adresse est en A1.
A1 est du texte, ta macro sélectionne la cellule mais elle nÂ’ouvre pa s
le dossier.
La colonne A est effacée après avoir « donné» ses liens, mais l e lien
reste en B1. La cellule B1 peut être recopiée dans une autre feuille,
elle doit conserver son lien.
Le lien de B4 correspond pile poil à A4 etc..
JÂ’ai 2541 lignes à faireÂ…
Merci
Lune Rousse- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
On 9 août, 14:00, Lune Rousse <tanin...@gmail.com> wrote:
> On 9 août, 13:49, Lune Rousse <tanin...@gmail.com> wrote:
> > On 8 août, 23:32, "Jacky" <Dup...@marcel.fr> wrote:
> > > Bonsoir,
> > > Un clique dans la colonne B ouvert le fichier dont l'adresse se tro uve dans
> > > la ligne correspondante en colonne A et le nom du fichier en colonn e B
> > > La plage commence en B1 dans l'exemple (éventuellement adapt é)
> > > A coller dans le module de la feuille en question.
> > > '----------------
> > > Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> > > Set plage = Range("B1:B" & Cells(Rows.Count, "b").End(3).Row)
> > > If Not Intersect(Target, plage) Is Nothing And Target.Count = 1 T hen
> > > On Error Resume Next
> > > Workbooks.Open Filename:=Target.Offset(0, -1) & "" & Target
> > > Target.Offset(0, -1).Activate
> > > End If
> > > End Sub
> > > '-----------------
> > > --
> > > Salutations
> > > JJ
> > > "Lune Rousse" <tanin...@gmail.com> a écrit dans le message de new s:
> > > 4d60d8a9-dff4-48db-bfb1-4a4d7f01f...@e34g2000vbm.googlegroups.com.. .
> > > Bonsoir,
> > > Sur une feuille Excel jÂ’ai dans la colonne A ( de A1 à A 25 00) un
> > > texte par cellule qui est lÂ’adresse complète dÂ’un dossier.
> > > Dans la colonne B jÂ’ai le nom dÂ’un fichier par cellule.
> > > Je souhaite, en VBA, si cela est possible, mettre un lien sur les m ots
> > > contenu en B1 le lien est écrit dans A1.
> > > Idem pour B2 son lien est en A2 etc.
> > > Au final si je clic sur B4, je souhaite ouvrir le dossier dont
> > > lÂ’adresse est écrite en A4.
> > > Je sais poser un lien manuellement mais sur 2500 lignes, il me
> > > faudrait trop de temps.
> > > Merci de votre aide.
> > > Lune_Rousse.
> Bonjour Jacky
> Ta macro est étonnante et elle fait exactement ce qui tu dis. Mais
> sans ouvrir le dossier puisse que dans les cellules de la colonne A je
> nÂ’ai pas de lien, mais juste lÂ’adresse dÂ’un lien Â…
> Le lien que je souhaite mettre sur les cellules de la colonne B
> devrait me faire apparaître les contenus de ma colonne B en bleu,
> (comme un lien hypertexte classique) car je dois manipuler le contenu
> de la colonne B et le recopier dans une autre feuille après
> traitement.
> De plus le traitement nÂ’est pas réalisé si lÂ’on modifie la feui lle,
> mais à lÂ’aide dÂ’un bouton qui lance une macro. (Lancer une macro avec
> un bouton je sais faire.)
> Merci de ton aide
> Lune Rousse- Masquer le texte des messages précédents -
> - Afficher le texte des messages précédents -
Bonjour Jacky
En complément dÂ’information.
Une photo du début du fichier
En A1 lÂ’adresse du lien sous forme de texte. En B1 le nom
Je recherche le fonctionnement suivant :
Si je clic sur B1 alors jÂ’ouvre le dossier dont lÂ’adresse est en A1.
A1 est du texte, ta macro sélectionne la cellule mais elle nÂ’ouvre pa s
le dossier.
La colonne A est effacée après avoir « donné» ses liens, mais l e lien
reste en B1. La cellule B1 peut être recopiée dans une autre feuille,
elle doit conserver son lien.
Le lien de B4 correspond pile poil à A4 etc..
JÂ’ai 2541 lignes à faireÂ…
Merci
Lune Rousse- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
On 9 août, 14:00, Lune Rousse wrote:
> On 9 août, 13:49, Lune Rousse wrote:
> > On 8 août, 23:32, "Jacky" wrote:
> > > Bonsoir,
> > > Un clique dans la colonne B ouvert le fichier dont l'adresse se tro uve dans
> > > la ligne correspondante en colonne A et le nom du fichier en colonn e B
> > > La plage commence en B1 dans l'exemple (éventuellement adapt é)
> > > A coller dans le module de la feuille en question.
> > > '----------------
> > > Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> > > Set plage = Range("B1:B" & Cells(Rows.Count, "b").End(3).Row)
> > > If Not Intersect(Target, plage) Is Nothing And Target.Count = 1 T hen
> > > On Error Resume Next
> > > Workbooks.Open Filename:=Target.Offset(0, -1) & "" & Target
> > > Target.Offset(0, -1).Activate
> > > End If
> > > End Sub
> > > '-----------------
> > > --
> > > Salutations
> > > JJ
> > > "Lune Rousse" a écrit dans le message de new s:
> > > .
> > > Bonsoir,
> > > Sur une feuille Excel jÂ’ai dans la colonne A ( de A1 à A 25 00) un
> > > texte par cellule qui est lÂ’adresse complète dÂ’un dossier.
> > > Dans la colonne B jÂ’ai le nom dÂ’un fichier par cellule.
> > > Je souhaite, en VBA, si cela est possible, mettre un lien sur les m ots
> > > contenu en B1 le lien est écrit dans A1.
> > > Idem pour B2 son lien est en A2 etc.
> > > Au final si je clic sur B4, je souhaite ouvrir le dossier dont
> > > lÂ’adresse est écrite en A4.
> > > Je sais poser un lien manuellement mais sur 2500 lignes, il me
> > > faudrait trop de temps.
> > > Merci de votre aide.
> > > Lune_Rousse.
> Bonjour Jacky
> Ta macro est étonnante et elle fait exactement ce qui tu dis. Mais
> sans ouvrir le dossier puisse que dans les cellules de la colonne A je
> nÂ’ai pas de lien, mais juste lÂ’adresse dÂ’un lien Â…
> Le lien que je souhaite mettre sur les cellules de la colonne B
> devrait me faire apparaître les contenus de ma colonne B en bleu,
> (comme un lien hypertexte classique) car je dois manipuler le contenu
> de la colonne B et le recopier dans une autre feuille après
> traitement.
> De plus le traitement nÂ’est pas réalisé si lÂ’on modifie la feui lle,
> mais à lÂ’aide dÂ’un bouton qui lance une macro. (Lancer une macro avec
> un bouton je sais faire.)
> Merci de ton aide
> Lune Rousse- Masquer le texte des messages précédents -
> - Afficher le texte des messages précédents -
Bonjour Jacky
En complément dÂ’information.
Une photo du début du fichier
En A1 lÂ’adresse du lien sous forme de texte. En B1 le nom
Je recherche le fonctionnement suivant :
Si je clic sur B1 alors jÂ’ouvre le dossier dont lÂ’adresse est en A1.
A1 est du texte, ta macro sélectionne la cellule mais elle nÂ’ouvre pa s
le dossier.
La colonne A est effacée après avoir « donné» ses liens, mais l e lien
reste en B1. La cellule B1 peut être recopiée dans une autre feuille,
elle doit conserver son lien.
Le lien de B4 correspond pile poil à A4 etc..
JÂ’ai 2541 lignes à faireÂ…
Merci
Lune Rousse- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -