Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Lien hyper texte vers un aute fichier excel

Lien hyper texte vers un aute fichier excel

11 réponses
Avatar
Lilou_masquee
Je début en VBA alors j'ai un peu de mal.

J'ai une liste de références de pièces. A chacune de ces références, est lié
un lins hypertexte vers un fichier contenant des relevés de caractéristiques
de ces pièces.

Le tableau se présente sous cette forme :
- 11 références
- 1 ligne de cellules fusionnée qui sépare les familles de pièces
- 4 références
- 1 autre ligne de cellules fusionnées
- 12 références

Il y a un fichier par famille de pièces et chaque lien pointe vers l'onglet
de la référence dans le fichier de la famille.

A coté de ca j'ai créer une macro qui me permet de retrouver une référence
après que l'utilisateur ai rentré son numéro et je voudrais qu'elle ouvre le
fichier concerné sur le bon onglet.
Voici le code :

Private Sub CommandButton1_Click()

Dim count As Integer

For Each c In Worksheets("Feuil1").Range("B12:B40")
If c.Value = Range("E6").Value Then
c.Activate 'pour rechercher la bonne réf. et activer la
cellule
count = ActiveCell.Row
Range("b12:b40").Cells(count, 1).Hyperlinks(1).Follow 'c'est la
partie qui pose problème
Range("b42").Value = c ' juste pour vérifier la recherche
End If

Next c

End Sub


Voilà j'ai essayé plusieurs solutions et rien ne marche, soit j'ai une
erreur, soit il m'ouvre sur le bon fichier mais pas le bon onglet (en fait
tjs le mm onglet pour chaque famille).

J'espère que j'ai été claire
Merci
Lilou_masquee
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2
Avatar
Daniel
Bonjour.
Pas vraiment simple.
Après recherches, j'ai posé la question sur le forum anglophone.
Un premier contournement consiste à nommer la plage à atteindre :
Au lieu d'indiquer, par exemple, Feuil3!A2, nommer cette plage "toto", et
modifier le lien afin qu'il pointe sur cette zone.
J'essaie de comprendre la seconde réponse.
Si je n'ai pas été très clair, je t'enverrai in classeur.
Cordialement.
Daniel
"Lilou_masquee" a écrit dans le
message de news:
Je début en VBA alors j'ai un peu de mal.

J'ai une liste de références de pièces. A chacune de ces références, est
lié
un lins hypertexte vers un fichier contenant des relevés de
caractéristiques
de ces pièces.

Le tableau se présente sous cette forme :
- 11 références
- 1 ligne de cellules fusionnée qui sépare les familles de pièces
- 4 références
- 1 autre ligne de cellules fusionnées
- 12 références

Il y a un fichier par famille de pièces et chaque lien pointe vers
l'onglet
de la référence dans le fichier de la famille.

A coté de ca j'ai créer une macro qui me permet de retrouver une référence
après que l'utilisateur ai rentré son numéro et je voudrais qu'elle ouvre
le
fichier concerné sur le bon onglet.
Voici le code :

Private Sub CommandButton1_Click()

Dim count As Integer

For Each c In Worksheets("Feuil1").Range("B12:B40")
If c.Value = Range("E6").Value Then
c.Activate 'pour rechercher la bonne réf. et activer la
cellule
count = ActiveCell.Row
Range("b12:b40").Cells(count, 1).Hyperlinks(1).Follow 'c'est la
partie qui pose problème
Range("b42").Value = c ' juste pour vérifier la recherche
End If

Next c

End Sub


Voilà j'ai essayé plusieurs solutions et rien ne marche, soit j'ai une
erreur, soit il m'ouvre sur le bon fichier mais pas le bon onglet (en fait
tjs le mm onglet pour chaque famille).

J'espère que j'ai été claire
Merci
Lilou_masquee



Avatar
docm
Bonjour.

Pour ouvrir, à partir d'un lien hypertexte, un classeur externe sur la bonne
cellule du bon onglet :

AA = Range("b12:b40").Cells(Count, 1).Hyperlinks(1).Address
SS = Range("b12:b40").Cells(Count, 1).Hyperlinks(1).SubAddress
zz = AA & "#" & SS
ActiveWorkbook.FollowHyperlink Address:=zz, NewWindow:úlse

docm


"Lilou_masquee" a écrit dans le
message news:
Je début en VBA alors j'ai un peu de mal.

J'ai une liste de références de pièces. A chacune de ces références, est
lié

un lins hypertexte vers un fichier contenant des relevés de
caractéristiques

de ces pièces.

Le tableau se présente sous cette forme :
- 11 références
- 1 ligne de cellules fusionnée qui sépare les familles de pièces
- 4 références
- 1 autre ligne de cellules fusionnées
- 12 références

Il y a un fichier par famille de pièces et chaque lien pointe vers
l'onglet

de la référence dans le fichier de la famille.

A coté de ca j'ai créer une macro qui me permet de retrouver une référence
après que l'utilisateur ai rentré son numéro et je voudrais qu'elle ouvre
le

fichier concerné sur le bon onglet.
Voici le code :

Private Sub CommandButton1_Click()

Dim count As Integer

For Each c In Worksheets("Feuil1").Range("B12:B40")
If c.Value = Range("E6").Value Then
c.Activate 'pour rechercher la bonne réf. et activer
la

cellule
count = ActiveCell.Row
Range("b12:b40").Cells(count, 1).Hyperlinks(1).Follow 'c'est la
partie qui pose problème
Range("b42").Value = c ' juste pour vérifier la recherche
End If

Next c

End Sub


Voilà j'ai essayé plusieurs solutions et rien ne marche, soit j'ai une
erreur, soit il m'ouvre sur le bon fichier mais pas le bon onglet (en fait
tjs le mm onglet pour chaque famille).

J'espère que j'ai été claire
Merci
Lilou_masquee



Avatar
Daniel
Bonsoir.
Je ne comprends pas. Regarde le classeur joint. Le classeur "cible.xls" est
un classeur vide.
http://cjoint.com/?kuuHjybsqN
XL2003
Merci d'avance.
Daniel
"docm" a écrit dans le message de news:

Bonjour.

Pour ouvrir, à partir d'un lien hypertexte, un classeur externe sur la
bonne
cellule du bon onglet :

AA = Range("b12:b40").Cells(Count, 1).Hyperlinks(1).Address
SS = Range("b12:b40").Cells(Count, 1).Hyperlinks(1).SubAddress
zz = AA & "#" & SS
ActiveWorkbook.FollowHyperlink Address:=zz, NewWindow:úlse

docm


"Lilou_masquee" a écrit dans le
message news:
Je début en VBA alors j'ai un peu de mal.

J'ai une liste de références de pièces. A chacune de ces références, est
lié

un lins hypertexte vers un fichier contenant des relevés de
caractéristiques

de ces pièces.

Le tableau se présente sous cette forme :
- 11 références
- 1 ligne de cellules fusionnée qui sépare les familles de pièces
- 4 références
- 1 autre ligne de cellules fusionnées
- 12 références

Il y a un fichier par famille de pièces et chaque lien pointe vers
l'onglet

de la référence dans le fichier de la famille.

A coté de ca j'ai créer une macro qui me permet de retrouver une
référence
après que l'utilisateur ai rentré son numéro et je voudrais qu'elle ouvre
le

fichier concerné sur le bon onglet.
Voici le code :

Private Sub CommandButton1_Click()

Dim count As Integer

For Each c In Worksheets("Feuil1").Range("B12:B40")
If c.Value = Range("E6").Value Then
c.Activate 'pour rechercher la bonne réf. et activer
la

cellule
count = ActiveCell.Row
Range("b12:b40").Cells(count, 1).Hyperlinks(1).Follow 'c'est la
partie qui pose problème
Range("b42").Value = c ' juste pour vérifier la recherche
End If

Next c

End Sub


Voilà j'ai essayé plusieurs solutions et rien ne marche, soit j'ai une
erreur, soit il m'ouvre sur le bon fichier mais pas le bon onglet (en
fait
tjs le mm onglet pour chaque famille).

J'espère que j'ai été claire
Merci
Lilou_masquee







Avatar
docm
Ta procédure Test2 fonctionne parfaitement.
La voici.

Sub test2()
AA = Range("C11").Hyperlinks(1).Address
SS = Range("C11").Hyperlinks(1).SubAddress
zz = AA & "#" & SS
ActiveWorkbook.FollowHyperlink Address:=zz, NewWindow:=True
End Sub

Qu'est-ce que tu ne comprends pas?

docm
"Daniel" a écrit dans le message news:

Bonsoir.
Je ne comprends pas. Regarde le classeur joint. Le classeur "cible.xls"
est

un classeur vide.
http://cjoint.com/?kuuHjybsqN
XL2003
Merci d'avance.
Daniel
"docm" a écrit dans le message de news:

Bonjour.

Pour ouvrir, à partir d'un lien hypertexte, un classeur externe sur la
bonne
cellule du bon onglet :

AA = Range("b12:b40").Cells(Count, 1).Hyperlinks(1).Address
SS = Range("b12:b40").Cells(Count, 1).Hyperlinks(1).SubAddress
zz = AA & "#" & SS
ActiveWorkbook.FollowHyperlink Address:=zz, NewWindow:úlse

docm


"Lilou_masquee" a écrit dans
le


message news:
Je début en VBA alors j'ai un peu de mal.

J'ai une liste de références de pièces. A chacune de ces références,
est



lié
un lins hypertexte vers un fichier contenant des relevés de
caractéristiques

de ces pièces.

Le tableau se présente sous cette forme :
- 11 références
- 1 ligne de cellules fusionnée qui sépare les familles de
pièces



- 4 références
- 1 autre ligne de cellules fusionnées
- 12 références

Il y a un fichier par famille de pièces et chaque lien pointe vers
l'onglet

de la référence dans le fichier de la famille.

A coté de ca j'ai créer une macro qui me permet de retrouver une
référence
après que l'utilisateur ai rentré son numéro et je voudrais qu'elle
ouvre



le
fichier concerné sur le bon onglet.
Voici le code :

Private Sub CommandButton1_Click()

Dim count As Integer

For Each c In Worksheets("Feuil1").Range("B12:B40")
If c.Value = Range("E6").Value Then
c.Activate 'pour rechercher la bonne réf. et
activer



la
cellule
count = ActiveCell.Row
Range("b12:b40").Cells(count, 1).Hyperlinks(1).Follow 'c'est
la



partie qui pose problème
Range("b42").Value = c ' juste pour vérifier la recherche
End If

Next c

End Sub


Voilà j'ai essayé plusieurs solutions et rien ne marche, soit j'ai une
erreur, soit il m'ouvre sur le bon fichier mais pas le bon onglet (en
fait
tjs le mm onglet pour chaque famille).

J'espère que j'ai été claire
Merci
Lilou_masquee











Avatar
Daniel
Je pointe bien sur le classeur cible spécifié par "address", mais pas sur la
feuille et la cellule spécifié dans "subaddress". Le résultat est que je
pointe sur Feuil1!A1 et non pas sur Feuil2!A10 comme cela se produit si
j'active manuellement le lien.
Daniel
"docm" a écrit dans le message de news:
%23%
Ta procédure Test2 fonctionne parfaitement.
La voici.

Sub test2()
AA = Range("C11").Hyperlinks(1).Address
SS = Range("C11").Hyperlinks(1).SubAddress
zz = AA & "#" & SS
ActiveWorkbook.FollowHyperlink Address:=zz, NewWindow:=True
End Sub

Qu'est-ce que tu ne comprends pas?

docm
"Daniel" a écrit dans le message news:

Bonsoir.
Je ne comprends pas. Regarde le classeur joint. Le classeur "cible.xls"
est

un classeur vide.
http://cjoint.com/?kuuHjybsqN
XL2003
Merci d'avance.
Daniel
"docm" a écrit dans le message de news:

Bonjour.

Pour ouvrir, à partir d'un lien hypertexte, un classeur externe sur la
bonne
cellule du bon onglet :

AA = Range("b12:b40").Cells(Count, 1).Hyperlinks(1).Address
SS = Range("b12:b40").Cells(Count, 1).Hyperlinks(1).SubAddress
zz = AA & "#" & SS
ActiveWorkbook.FollowHyperlink Address:=zz, NewWindow:úlse

docm


"Lilou_masquee" a écrit dans
le


message news:
Je début en VBA alors j'ai un peu de mal.

J'ai une liste de références de pièces. A chacune de ces références,
est



lié
un lins hypertexte vers un fichier contenant des relevés de
caractéristiques

de ces pièces.

Le tableau se présente sous cette forme :
- 11 références
- 1 ligne de cellules fusionnée qui sépare les familles de
pièces



- 4 références
- 1 autre ligne de cellules fusionnées
- 12 références

Il y a un fichier par famille de pièces et chaque lien pointe vers
l'onglet

de la référence dans le fichier de la famille.

A coté de ca j'ai créer une macro qui me permet de retrouver une
référence
après que l'utilisateur ai rentré son numéro et je voudrais qu'elle
ouvre



le
fichier concerné sur le bon onglet.
Voici le code :

Private Sub CommandButton1_Click()

Dim count As Integer

For Each c In Worksheets("Feuil1").Range("B12:B40")
If c.Value = Range("E6").Value Then
c.Activate 'pour rechercher la bonne réf. et
activer



la
cellule
count = ActiveCell.Row
Range("b12:b40").Cells(count, 1).Hyperlinks(1).Follow 'c'est
la



partie qui pose problème
Range("b42").Value = c ' juste pour vérifier la recherche
End If

Next c

End Sub


Voilà j'ai essayé plusieurs solutions et rien ne marche, soit j'ai une
erreur, soit il m'ouvre sur le bon fichier mais pas le bon onglet (en
fait
tjs le mm onglet pour chaque famille).

J'espère que j'ai été claire
Merci
Lilou_masquee















Avatar
docm
Ca fonctionne sur Excel 2000 chez moi.

Est-ce que la syntaxe suivante fonctionne sur Excel 2003 ?

aa = Range("C11").Hyperlinks(1).Address
ss = Range("C11").Hyperlinks(1).SubAddress
ActiveWorkbook.FollowHyperlink Address:ª, SubAddress:=ss, NewWindow:=True

docm

"Daniel" a écrit dans le message news:
#
Je pointe bien sur le classeur cible spécifié par "address", mais pas sur
la

feuille et la cellule spécifié dans "subaddress". Le résultat est que je
pointe sur Feuil1!A1 et non pas sur Feuil2!A10 comme cela se produit si
j'active manuellement le lien.
Daniel
"docm" a écrit dans le message de news:
%23%
Ta procédure Test2 fonctionne parfaitement.
La voici.

Sub test2()
AA = Range("C11").Hyperlinks(1).Address
SS = Range("C11").Hyperlinks(1).SubAddress
zz = AA & "#" & SS
ActiveWorkbook.FollowHyperlink Address:=zz, NewWindow:=True
End Sub

Qu'est-ce que tu ne comprends pas?

docm
"Daniel" a écrit dans le message news:

Bonsoir.
Je ne comprends pas. Regarde le classeur joint. Le classeur "cible.xls"
est

un classeur vide.
http://cjoint.com/?kuuHjybsqN
XL2003
Merci d'avance.
Daniel
"docm" a écrit dans le message de news:

Bonjour.

Pour ouvrir, à partir d'un lien hypertexte, un classeur externe sur
la




bonne
cellule du bon onglet :

AA = Range("b12:b40").Cells(Count, 1).Hyperlinks(1).Address
SS = Range("b12:b40").Cells(Count, 1).Hyperlinks(1).SubAddress
zz = AA & "#" & SS
ActiveWorkbook.FollowHyperlink Address:=zz, NewWindow:úlse

docm


"Lilou_masquee" a écrit
dans




le
message news:
Je début en VBA alors j'ai un peu de mal.

J'ai une liste de références de pièces. A chacune de ces références,
est



lié
un lins hypertexte vers un fichier contenant des relevés de
caractéristiques

de ces pièces.

Le tableau se présente sous cette forme :
- 11 références
- 1 ligne de cellules fusionnée qui sépare les familles de
pièces



- 4 références
- 1 autre ligne de cellules fusionnées
- 12 références

Il y a un fichier par famille de pièces et chaque lien pointe vers
l'onglet

de la référence dans le fichier de la famille.

A coté de ca j'ai créer une macro qui me permet de retrouver une
référence
après que l'utilisateur ai rentré son numéro et je voudrais qu'elle
ouvre



le
fichier concerné sur le bon onglet.
Voici le code :

Private Sub CommandButton1_Click()

Dim count As Integer

For Each c In Worksheets("Feuil1").Range("B12:B40")
If c.Value = Range("E6").Value Then
c.Activate 'pour rechercher la bonne réf. et
activer



la
cellule
count = ActiveCell.Row
Range("b12:b40").Cells(count, 1).Hyperlinks(1).Follow
'c'est





la
partie qui pose problème
Range("b42").Value = c ' juste pour vérifier la recherche
End If

Next c

End Sub


Voilà j'ai essayé plusieurs solutions et rien ne marche, soit j'ai
une





erreur, soit il m'ouvre sur le bon fichier mais pas le bon onglet
(en





fait
tjs le mm onglet pour chaque famille).

J'espère que j'ai été claire
Merci
Lilou_masquee



















Avatar
Daniel
Il semble donc que ça soit MA version d'XL2003 qui ait un léger problème.
Merci encore.
Daniel
"docm" a écrit dans le message de news:
ehsPc%
Ca fonctionne sur Excel 2000 chez moi.

Est-ce que la syntaxe suivante fonctionne sur Excel 2003 ?

aa = Range("C11").Hyperlinks(1).Address
ss = Range("C11").Hyperlinks(1).SubAddress
ActiveWorkbook.FollowHyperlink Address:ª, SubAddress:=ss,
NewWindow:=True

docm

"Daniel" a écrit dans le message news:
#
Je pointe bien sur le classeur cible spécifié par "address", mais pas sur
la

feuille et la cellule spécifié dans "subaddress". Le résultat est que je
pointe sur Feuil1!A1 et non pas sur Feuil2!A10 comme cela se produit si
j'active manuellement le lien.
Daniel
"docm" a écrit dans le message de news:
%23%
Ta procédure Test2 fonctionne parfaitement.
La voici.

Sub test2()
AA = Range("C11").Hyperlinks(1).Address
SS = Range("C11").Hyperlinks(1).SubAddress
zz = AA & "#" & SS
ActiveWorkbook.FollowHyperlink Address:=zz, NewWindow:=True
End Sub

Qu'est-ce que tu ne comprends pas?

docm
"Daniel" a écrit dans le message news:

Bonsoir.
Je ne comprends pas. Regarde le classeur joint. Le classeur
"cible.xls"
est

un classeur vide.
http://cjoint.com/?kuuHjybsqN
XL2003
Merci d'avance.
Daniel
"docm" a écrit dans le message de news:

Bonjour.

Pour ouvrir, à partir d'un lien hypertexte, un classeur externe sur
la




bonne
cellule du bon onglet :

AA = Range("b12:b40").Cells(Count, 1).Hyperlinks(1).Address
SS = Range("b12:b40").Cells(Count, 1).Hyperlinks(1).SubAddress
zz = AA & "#" & SS
ActiveWorkbook.FollowHyperlink Address:=zz, NewWindow:úlse

docm


"Lilou_masquee" a écrit
dans




le
message news:
Je début en VBA alors j'ai un peu de mal.

J'ai une liste de références de pièces. A chacune de ces
références,
est



lié
un lins hypertexte vers un fichier contenant des relevés de
caractéristiques

de ces pièces.

Le tableau se présente sous cette forme :
- 11 références
- 1 ligne de cellules fusionnée qui sépare les familles de
pièces



- 4 références
- 1 autre ligne de cellules fusionnées
- 12 références

Il y a un fichier par famille de pièces et chaque lien pointe vers
l'onglet

de la référence dans le fichier de la famille.

A coté de ca j'ai créer une macro qui me permet de retrouver une
référence
après que l'utilisateur ai rentré son numéro et je voudrais qu'elle
ouvre



le
fichier concerné sur le bon onglet.
Voici le code :

Private Sub CommandButton1_Click()

Dim count As Integer

For Each c In Worksheets("Feuil1").Range("B12:B40")
If c.Value = Range("E6").Value Then
c.Activate 'pour rechercher la bonne réf. et
activer



la
cellule
count = ActiveCell.Row
Range("b12:b40").Cells(count, 1).Hyperlinks(1).Follow
'c'est





la
partie qui pose problème
Range("b42").Value = c ' juste pour vérifier la recherche
End If

Next c

End Sub


Voilà j'ai essayé plusieurs solutions et rien ne marche, soit j'ai
une





erreur, soit il m'ouvre sur le bon fichier mais pas le bon onglet
(en





fait
tjs le mm onglet pour chaque famille).

J'espère que j'ai été claire
Merci
Lilou_masquee























Avatar
docm
Je te posais la question pour que tu testes cette nouvelle syntaxe sur Excel
2003 car je n'ai pas Excel 2003.
aa = Range("C11").Hyperlinks(1).Address
ss = Range("C11").Hyperlinks(1).SubAddress
ActiveWorkbook.FollowHyperlink Address:ª, SubAddress:=ss,
NewWindow:=True



docm

"Daniel" a écrit dans le message news:
ub3X$
Il semble donc que ça soit MA version d'XL2003 qui ait un léger problème.
Merci encore.
Daniel
"docm" a écrit dans le message de news:
ehsPc%
Ca fonctionne sur Excel 2000 chez moi.

Est-ce que la syntaxe suivante fonctionne sur Excel 2003 ?

aa = Range("C11").Hyperlinks(1).Address
ss = Range("C11").Hyperlinks(1).SubAddress
ActiveWorkbook.FollowHyperlink Address:ª, SubAddress:=ss,
NewWindow:=True

docm

"Daniel" a écrit dans le message news:
#
Je pointe bien sur le classeur cible spécifié par "address", mais pas
sur



la
feuille et la cellule spécifié dans "subaddress". Le résultat est que
je



pointe sur Feuil1!A1 et non pas sur Feuil2!A10 comme cela se produit si
j'active manuellement le lien.
Daniel
"docm" a écrit dans le message de news:
%23%
Ta procédure Test2 fonctionne parfaitement.
La voici.

Sub test2()
AA = Range("C11").Hyperlinks(1).Address
SS = Range("C11").Hyperlinks(1).SubAddress
zz = AA & "#" & SS
ActiveWorkbook.FollowHyperlink Address:=zz, NewWindow:=True
End Sub

Qu'est-ce que tu ne comprends pas?

docm
"Daniel" a écrit dans le message news:

Bonsoir.
Je ne comprends pas. Regarde le classeur joint. Le classeur
"cible.xls"
est

un classeur vide.
http://cjoint.com/?kuuHjybsqN
XL2003
Merci d'avance.
Daniel
"docm" a écrit dans le message de news:

Bonjour.

Pour ouvrir, à partir d'un lien hypertexte, un classeur externe
sur






la
bonne
cellule du bon onglet :

AA = Range("b12:b40").Cells(Count, 1).Hyperlinks(1).Address
SS = Range("b12:b40").Cells(Count, 1).Hyperlinks(1).SubAddress
zz = AA & "#" & SS
ActiveWorkbook.FollowHyperlink Address:=zz, NewWindow:úlse

docm


"Lilou_masquee" a écrit
dans




le
message news:







Je début en VBA alors j'ai un peu de mal.

J'ai une liste de références de pièces. A chacune de ces
références,
est



lié
un lins hypertexte vers un fichier contenant des relevés de
caractéristiques

de ces pièces.

Le tableau se présente sous cette forme :
- 11 références
- 1 ligne de cellules fusionnée qui sépare les familles
de







pièces
- 4 références
- 1 autre ligne de cellules fusionnées
- 12 références

Il y a un fichier par famille de pièces et chaque lien pointe
vers







l'onglet
de la référence dans le fichier de la famille.

A coté de ca j'ai créer une macro qui me permet de retrouver une
référence
après que l'utilisateur ai rentré son numéro et je voudrais
qu'elle







ouvre
le
fichier concerné sur le bon onglet.
Voici le code :

Private Sub CommandButton1_Click()

Dim count As Integer

For Each c In Worksheets("Feuil1").Range("B12:B40")
If c.Value = Range("E6").Value Then
c.Activate 'pour rechercher la bonne réf. et
activer



la
cellule
count = ActiveCell.Row
Range("b12:b40").Cells(count, 1).Hyperlinks(1).Follow
'c'est





la
partie qui pose problème
Range("b42").Value = c ' juste pour vérifier la
recherche







End If

Next c

End Sub


Voilà j'ai essayé plusieurs solutions et rien ne marche, soit
j'ai







une
erreur, soit il m'ouvre sur le bon fichier mais pas le bon onglet
(en





fait
tjs le mm onglet pour chaque famille).

J'espère que j'ai été claire
Merci
Lilou_masquee



























Avatar
Daniel
Désolé, ça ne fait pas mieux.
Merci quand même !
Daniel
"docm" a écrit dans le message de news:
%
Je te posais la question pour que tu testes cette nouvelle syntaxe sur
Excel
2003 car je n'ai pas Excel 2003.
aa = Range("C11").Hyperlinks(1).Address
ss = Range("C11").Hyperlinks(1).SubAddress
ActiveWorkbook.FollowHyperlink Address:ª, SubAddress:=ss,
NewWindow:=True



docm

"Daniel" a écrit dans le message news:
ub3X$
Il semble donc que ça soit MA version d'XL2003 qui ait un léger problème.
Merci encore.
Daniel
"docm" a écrit dans le message de news:
ehsPc%
Ca fonctionne sur Excel 2000 chez moi.

Est-ce que la syntaxe suivante fonctionne sur Excel 2003 ?

aa = Range("C11").Hyperlinks(1).Address
ss = Range("C11").Hyperlinks(1).SubAddress
ActiveWorkbook.FollowHyperlink Address:ª, SubAddress:=ss,
NewWindow:=True

docm

"Daniel" a écrit dans le message news:
#
Je pointe bien sur le classeur cible spécifié par "address", mais pas
sur



la
feuille et la cellule spécifié dans "subaddress". Le résultat est que
je



pointe sur Feuil1!A1 et non pas sur Feuil2!A10 comme cela se produit
si
j'active manuellement le lien.
Daniel
"docm" a écrit dans le message de news:
%23%
Ta procédure Test2 fonctionne parfaitement.
La voici.

Sub test2()
AA = Range("C11").Hyperlinks(1).Address
SS = Range("C11").Hyperlinks(1).SubAddress
zz = AA & "#" & SS
ActiveWorkbook.FollowHyperlink Address:=zz, NewWindow:=True
End Sub

Qu'est-ce que tu ne comprends pas?

docm
"Daniel" a écrit dans le message news:

Bonsoir.
Je ne comprends pas. Regarde le classeur joint. Le classeur
"cible.xls"
est

un classeur vide.
http://cjoint.com/?kuuHjybsqN
XL2003
Merci d'avance.
Daniel
"docm" a écrit dans le message de news:

Bonjour.

Pour ouvrir, à partir d'un lien hypertexte, un classeur externe
sur






la
bonne
cellule du bon onglet :

AA = Range("b12:b40").Cells(Count, 1).Hyperlinks(1).Address
SS = Range("b12:b40").Cells(Count, 1).Hyperlinks(1).SubAddress
zz = AA & "#" & SS
ActiveWorkbook.FollowHyperlink Address:=zz, NewWindow:úlse

docm


"Lilou_masquee" a écrit
dans




le
message news:







Je début en VBA alors j'ai un peu de mal.

J'ai une liste de références de pièces. A chacune de ces
références,
est



lié
un lins hypertexte vers un fichier contenant des relevés de
caractéristiques

de ces pièces.

Le tableau se présente sous cette forme :
- 11 références
- 1 ligne de cellules fusionnée qui sépare les familles
de







pièces
- 4 références
- 1 autre ligne de cellules fusionnées
- 12 références

Il y a un fichier par famille de pièces et chaque lien pointe
vers







l'onglet
de la référence dans le fichier de la famille.

A coté de ca j'ai créer une macro qui me permet de retrouver une
référence
après que l'utilisateur ai rentré son numéro et je voudrais
qu'elle







ouvre
le
fichier concerné sur le bon onglet.
Voici le code :

Private Sub CommandButton1_Click()

Dim count As Integer

For Each c In Worksheets("Feuil1").Range("B12:B40")
If c.Value = Range("E6").Value Then
c.Activate 'pour rechercher la bonne réf. et
activer



la
cellule
count = ActiveCell.Row
Range("b12:b40").Cells(count, 1).Hyperlinks(1).Follow
'c'est





la
partie qui pose problème
Range("b42").Value = c ' juste pour vérifier la
recherche







End If

Next c

End Sub


Voilà j'ai essayé plusieurs solutions et rien ne marche, soit
j'ai







une
erreur, soit il m'ouvre sur le bon fichier mais pas le bon
onglet
(en





fait
tjs le mm onglet pour chaque famille).

J'espère que j'ai été claire
Merci
Lilou_masquee































Avatar
Lilou_masquee
D'abord merci à tous les deux,
Je viens d'essayer ce code là ca marche presque, le suel problème c'est
qu'il ne m'ouvre pas forcément le bon fichier ou le bon onglet.
Est-ce que le fait d'avoir des cellules fusionnées au milieu de la colonne
peut poser problème

Voilà mon code actuel, peut etre que j'ai fait une erreur

Private Sub CommandButton1_Click()

Dim count As Integer

For Each c In Worksheets("Feuil1").Range("B12:B40")
If c.Value = Range("E6").Value Then
c.Activate
count = ActiveCell.Row - 12 ' le tableau commence à la ligne 12 et
sans ca il ouvre le mauvais fichier

AA = Range("b12:b40").Cells(count, 1).Hyperlinks(1).Address
SS = Range("b12:b40").Cells(count, 1).Hyperlinks(1).SubAddress
zz = AA & "#" & SS
ActiveWorkbook.FollowHyperlink Address:=zz, NewWindow:úlse
'Range("b12:b40").Cells(count, 1).Hyperlinks(1).Follow
Range("b42").Value = c
End If

Next c

End Sub




Bonjour.

Pour ouvrir, à partir d'un lien hypertexte, un classeur externe sur la bonne
cellule du bon onglet :

AA = Range("b12:b40").Cells(Count, 1).Hyperlinks(1).Address
SS = Range("b12:b40").Cells(Count, 1).Hyperlinks(1).SubAddress
zz = AA & "#" & SS
ActiveWorkbook.FollowHyperlink Address:=zz, NewWindow:úlse

docm


"Lilou_masquee" a écrit dans le
message news:
Je début en VBA alors j'ai un peu de mal.

J'ai une liste de références de pièces. A chacune de ces références, est
lié

un lins hypertexte vers un fichier contenant des relevés de
caractéristiques

de ces pièces.

Le tableau se présente sous cette forme :
- 11 références
- 1 ligne de cellules fusionnée qui sépare les familles de pièces
- 4 références
- 1 autre ligne de cellules fusionnées
- 12 références

Il y a un fichier par famille de pièces et chaque lien pointe vers
l'onglet

de la référence dans le fichier de la famille.

A coté de ca j'ai créer une macro qui me permet de retrouver une référence
après que l'utilisateur ai rentré son numéro et je voudrais qu'elle ouvre
le

fichier concerné sur le bon onglet.
Voici le code :

Private Sub CommandButton1_Click()

Dim count As Integer

For Each c In Worksheets("Feuil1").Range("B12:B40")
If c.Value = Range("E6").Value Then
c.Activate 'pour rechercher la bonne réf. et activer
la

cellule
count = ActiveCell.Row
Range("b12:b40").Cells(count, 1).Hyperlinks(1).Follow 'c'est la
partie qui pose problème
Range("b42").Value = c ' juste pour vérifier la recherche
End If

Next c

End Sub


Voilà j'ai essayé plusieurs solutions et rien ne marche, soit j'ai une
erreur, soit il m'ouvre sur le bon fichier mais pas le bon onglet (en fait
tjs le mm onglet pour chaque famille).

J'espère que j'ai été claire
Merci
Lilou_masquee








1 2