j'essaye d=E9sep=E9r=E9ment d'associer =E0 une cellule dans une=20
feuille, l'adresse d'une autre feuille du meme classeur.
je proc=E8de en 3 =E9tapes :
1) nom_doc =3D ActiveWorkbook.FullNameURLEncoded
2) nom_feuille =3D Worksheets(I).Name
3) nom =3D nom_doc & "-'" & nom_feuille & "'!A1"
et enfin
4) Worksheets(1).Hyperlinks.Add Range(myRange), nom
au final, la lien indiqu=E9 par la cellule cible qui=20
s'affiche dans la bulle jaune (qd la souris pointe dessus)=20
est rigoureusement le meme que si je l'avais cr=E9=E9 =E0 la=20
main, mais si je clique sur le lien un message d'erreur=20
s'affiche. Je suppose qu'il faudrait trouver l'=E9quivalent=20
de la fonction 'FullNameURLEncoded' qui s'appliquerait =E0=20
Worksheets(I).Name, mais =E7a je n'ai pas trouv=E9.
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
michdenis
Bonjour André,
Je n'ai pas saisi vraiment la question ...
A ) tu sélectionne la cellule où tu veux insérer le lien hypertexte
B ) Barre des menus / Insertion / Lien Hypertexte /
C ) Dans la boîte de saisie : Regarder dans : Sélectionne le chemin où est ton classeur ...
D ) Juste en dessous "Dossier en cours", tu cliques (une fois..) sur le fichier qui est en fait celui qui est ouvert (dans lequel tu travailles
E ) Le nom du fichier va apparaître dans la boîte saisie de la fenêtre : "Adresse"
F ) Tu cliques sur le bouton "Signet" en haut et vers la droite de la fenêtre
G ) Dans la fenêtre qui va s'ouvrir, tu sélectionnes la feuille parmi celle affichée et dans la boîte de saisie du dessus, tu tapes l'adresse de la cellule à lier . Et tu fermes cette fenêtre par le bouton "OK"
H ) Tu fermes par "Ok" la fenêtre principale
I ) Si tu as fait tout ces manoeuvres et que ta cellule était vide, tu obtiendras ceci dans la cellule : LireÉcrire%20fichier%20texte.xls#Feuil2!C25
Tu peux taper le texte de ton choix et le lien hypertexte demeurera actif. Si tu effaces tout le texte ... adieu le lien ...
Si tu veux donner l'impression que la cellule est vide .... tu sélectiones la cellule et dans la barre de formule tu tapes 0160 en tenant le bouton Alt à gauche de la barre d'espacement enfoncé ... et tu peux même aller modifier le style de la cellule : Barre des menus / format / style / bouton modifié / et tu enlèves le souligement ...au style !
La macro qui enregistre ces mouvements donne le code suivant :
"andré" a écrit dans le message de news:6dc501c4838a$0bc7de70$ Bonjour
j'essaye désepérément d'associer à une cellule dans une feuille, l'adresse d'une autre feuille du meme classeur.
je procède en 3 étapes : 1) nom_doc = ActiveWorkbook.FullNameURLEncoded 2) nom_feuille = Worksheets(I).Name 3) nom = nom_doc & "-'" & nom_feuille & "'!A1" et enfin 4) Worksheets(1).Hyperlinks.Add Range(myRange), nom
au final, la lien indiqué par la cellule cible qui s'affiche dans la bulle jaune (qd la souris pointe dessus) est rigoureusement le meme que si je l'avais créé à la main, mais si je clique sur le lien un message d'erreur s'affiche. Je suppose qu'il faudrait trouver l'équivalent de la fonction 'FullNameURLEncoded' qui s'appliquerait à Worksheets(I).Name, mais ça je n'ai pas trouvé.
si qqn a une idée, merci d'avance
André
Bonjour André,
Je n'ai pas saisi vraiment la question ...
A ) tu sélectionne la cellule où tu veux insérer le lien hypertexte
B ) Barre des menus / Insertion / Lien Hypertexte /
C ) Dans la boîte de saisie : Regarder dans : Sélectionne le chemin où est ton classeur ...
D ) Juste en dessous "Dossier en cours", tu cliques (une fois..) sur le fichier qui est en fait celui qui est ouvert (dans
lequel tu travailles
E ) Le nom du fichier va apparaître dans la boîte saisie de la fenêtre : "Adresse"
F ) Tu cliques sur le bouton "Signet" en haut et vers la droite de la fenêtre
G ) Dans la fenêtre qui va s'ouvrir, tu sélectionnes la feuille parmi celle affichée et dans la boîte de saisie du dessus, tu
tapes l'adresse de la cellule à lier . Et tu fermes cette fenêtre par le bouton "OK"
H ) Tu fermes par "Ok" la fenêtre principale
I ) Si tu as fait tout ces manoeuvres et que ta cellule était vide, tu obtiendras ceci dans la cellule :
LireÉcrire%20fichier%20texte.xls#Feuil2!C25
Tu peux taper le texte de ton choix et le lien hypertexte demeurera actif.
Si tu effaces tout le texte ... adieu le lien ...
Si tu veux donner l'impression que la cellule est vide ....
tu sélectiones la cellule et dans la barre de formule tu tapes 0160 en tenant le bouton Alt à gauche de la barre
d'espacement enfoncé ... et tu peux même aller modifier le style de la cellule : Barre des menus / format / style / bouton
modifié / et tu enlèves le souligement ...au style !
La macro qui enregistre ces mouvements donne le code suivant :
"andré" <andre.schroder@ldfc.u-strasbg.fr> a écrit dans le message de news:6dc501c4838a$0bc7de70$a601280a@phx.gbl...
Bonjour
j'essaye désepérément d'associer à une cellule dans une
feuille, l'adresse d'une autre feuille du meme classeur.
je procède en 3 étapes :
1) nom_doc = ActiveWorkbook.FullNameURLEncoded
2) nom_feuille = Worksheets(I).Name
3) nom = nom_doc & "-'" & nom_feuille & "'!A1"
et enfin
4) Worksheets(1).Hyperlinks.Add Range(myRange), nom
au final, la lien indiqué par la cellule cible qui
s'affiche dans la bulle jaune (qd la souris pointe dessus)
est rigoureusement le meme que si je l'avais créé à la
main, mais si je clique sur le lien un message d'erreur
s'affiche. Je suppose qu'il faudrait trouver l'équivalent
de la fonction 'FullNameURLEncoded' qui s'appliquerait à
Worksheets(I).Name, mais ça je n'ai pas trouvé.
A ) tu sélectionne la cellule où tu veux insérer le lien hypertexte
B ) Barre des menus / Insertion / Lien Hypertexte /
C ) Dans la boîte de saisie : Regarder dans : Sélectionne le chemin où est ton classeur ...
D ) Juste en dessous "Dossier en cours", tu cliques (une fois..) sur le fichier qui est en fait celui qui est ouvert (dans lequel tu travailles
E ) Le nom du fichier va apparaître dans la boîte saisie de la fenêtre : "Adresse"
F ) Tu cliques sur le bouton "Signet" en haut et vers la droite de la fenêtre
G ) Dans la fenêtre qui va s'ouvrir, tu sélectionnes la feuille parmi celle affichée et dans la boîte de saisie du dessus, tu tapes l'adresse de la cellule à lier . Et tu fermes cette fenêtre par le bouton "OK"
H ) Tu fermes par "Ok" la fenêtre principale
I ) Si tu as fait tout ces manoeuvres et que ta cellule était vide, tu obtiendras ceci dans la cellule : LireÉcrire%20fichier%20texte.xls#Feuil2!C25
Tu peux taper le texte de ton choix et le lien hypertexte demeurera actif. Si tu effaces tout le texte ... adieu le lien ...
Si tu veux donner l'impression que la cellule est vide .... tu sélectiones la cellule et dans la barre de formule tu tapes 0160 en tenant le bouton Alt à gauche de la barre d'espacement enfoncé ... et tu peux même aller modifier le style de la cellule : Barre des menus / format / style / bouton modifié / et tu enlèves le souligement ...au style !
La macro qui enregistre ces mouvements donne le code suivant :
"andré" a écrit dans le message de news:6dc501c4838a$0bc7de70$ Bonjour
j'essaye désepérément d'associer à une cellule dans une feuille, l'adresse d'une autre feuille du meme classeur.
je procède en 3 étapes : 1) nom_doc = ActiveWorkbook.FullNameURLEncoded 2) nom_feuille = Worksheets(I).Name 3) nom = nom_doc & "-'" & nom_feuille & "'!A1" et enfin 4) Worksheets(1).Hyperlinks.Add Range(myRange), nom
au final, la lien indiqué par la cellule cible qui s'affiche dans la bulle jaune (qd la souris pointe dessus) est rigoureusement le meme que si je l'avais créé à la main, mais si je clique sur le lien un message d'erreur s'affiche. Je suppose qu'il faudrait trouver l'équivalent de la fonction 'FullNameURLEncoded' qui s'appliquerait à Worksheets(I).Name, mais ça je n'ai pas trouvé.
si qqn a une idée, merci d'avance
André
docm
Bonjour. Je crois qu'il cherche l'adresse d'une autre feuille du meme classeur
Donc ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ "Feuil3!A1"
Amicalement. Sous toutes réserves.
"michdenis" wrote in message news:
Bonjour André,
Je n'ai pas saisi vraiment la question ...
A ) tu sélectionne la cellule où tu veux insérer le lien hypertexte
B ) Barre des menus / Insertion / Lien Hypertexte /
C ) Dans la boîte de saisie : Regarder dans : Sélectionne le chemin où est ton classeur ...
D ) Juste en dessous "Dossier en cours", tu cliques (une fois..) sur le fichier qui est en fait celui qui est ouvert (dans
lequel tu travailles
E ) Le nom du fichier va apparaître dans la boîte saisie de la fenêtre : "Adresse"
F ) Tu cliques sur le bouton "Signet" en haut et vers la droite de la fenêtre
G ) Dans la fenêtre qui va s'ouvrir, tu sélectionnes la feuille parmi celle affichée et dans la boîte de saisie du dessus, tu
tapes l'adresse de la cellule à lier . Et tu fermes cette fenêtre par le bouton "OK"
H ) Tu fermes par "Ok" la fenêtre principale
I ) Si tu as fait tout ces manoeuvres et que ta cellule était vide, tu obtiendras ceci dans la cellule :
LireÉcrire%20fichier%20texte.xls#Feuil2!C25
Tu peux taper le texte de ton choix et le lien hypertexte demeurera actif.
Si tu effaces tout le texte ... adieu le lien ...
Si tu veux donner l'impression que la cellule est vide .... tu sélectiones la cellule et dans la barre de formule tu tapes 0160 en tenant le bouton Alt à gauche de la barre
d'espacement enfoncé ... et tu peux même aller modifier le style de la cellule : Barre des menus / format / style / bouton
modifié / et tu enlèves le souligement ...au style !
La macro qui enregistre ces mouvements donne le code suivant :
"andré" a écrit dans le message de news:6dc501c4838a$0bc7de70$
Bonjour
j'essaye désepérément d'associer à une cellule dans une feuille, l'adresse d'une autre feuille du meme classeur.
je procède en 3 étapes : 1) nom_doc = ActiveWorkbook.FullNameURLEncoded 2) nom_feuille = Worksheets(I).Name 3) nom = nom_doc & "-'" & nom_feuille & "'!A1" et enfin 4) Worksheets(1).Hyperlinks.Add Range(myRange), nom
au final, la lien indiqué par la cellule cible qui s'affiche dans la bulle jaune (qd la souris pointe dessus) est rigoureusement le meme que si je l'avais créé à la main, mais si je clique sur le lien un message d'erreur s'affiche. Je suppose qu'il faudrait trouver l'équivalent de la fonction 'FullNameURLEncoded' qui s'appliquerait à Worksheets(I).Name, mais ça je n'ai pas trouvé.
si qqn a une idée, merci d'avance
André
Bonjour.
Je crois qu'il cherche l'adresse d'une autre feuille du meme classeur
Donc
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Feuil3!A1"
Amicalement.
Sous toutes réserves.
"michdenis" <michdenis@hotmail.com> wrote in message
news:u8uAYv8gEHA.644@tk2msftngp13.phx.gbl...
Bonjour André,
Je n'ai pas saisi vraiment la question ...
A ) tu sélectionne la cellule où tu veux insérer le lien hypertexte
B ) Barre des menus / Insertion / Lien Hypertexte /
C ) Dans la boîte de saisie : Regarder dans : Sélectionne le chemin où est
ton classeur ...
D ) Juste en dessous "Dossier en cours", tu cliques (une fois..) sur le
fichier qui est en fait celui qui est ouvert (dans
lequel tu travailles
E ) Le nom du fichier va apparaître dans la boîte saisie de la fenêtre :
"Adresse"
F ) Tu cliques sur le bouton "Signet" en haut et vers la droite de la
fenêtre
G ) Dans la fenêtre qui va s'ouvrir, tu sélectionnes la feuille parmi
celle affichée et dans la boîte de saisie du dessus, tu
tapes l'adresse de la cellule à lier . Et tu fermes cette fenêtre par le
bouton "OK"
H ) Tu fermes par "Ok" la fenêtre principale
I ) Si tu as fait tout ces manoeuvres et que ta cellule était vide, tu
obtiendras ceci dans la cellule :
LireÉcrire%20fichier%20texte.xls#Feuil2!C25
Tu peux taper le texte de ton choix et le lien hypertexte demeurera
actif.
Si tu effaces tout le texte ... adieu le lien ...
Si tu veux donner l'impression que la cellule est vide ....
tu sélectiones la cellule et dans la barre de formule tu tapes 0160
en tenant le bouton Alt à gauche de la barre
d'espacement enfoncé ... et tu peux même aller modifier le style de la
cellule : Barre des menus / format / style / bouton
modifié / et tu enlèves le souligement ...au style !
La macro qui enregistre ces mouvements donne le code suivant :
"andré" <andre.schroder@ldfc.u-strasbg.fr> a écrit dans le message de
news:6dc501c4838a$0bc7de70$a601280a@phx.gbl...
Bonjour
j'essaye désepérément d'associer à une cellule dans une
feuille, l'adresse d'une autre feuille du meme classeur.
je procède en 3 étapes :
1) nom_doc = ActiveWorkbook.FullNameURLEncoded
2) nom_feuille = Worksheets(I).Name
3) nom = nom_doc & "-'" & nom_feuille & "'!A1"
et enfin
4) Worksheets(1).Hyperlinks.Add Range(myRange), nom
au final, la lien indiqué par la cellule cible qui
s'affiche dans la bulle jaune (qd la souris pointe dessus)
est rigoureusement le meme que si je l'avais créé à la
main, mais si je clique sur le lien un message d'erreur
s'affiche. Je suppose qu'il faudrait trouver l'équivalent
de la fonction 'FullNameURLEncoded' qui s'appliquerait à
Worksheets(I).Name, mais ça je n'ai pas trouvé.
Bonjour. Je crois qu'il cherche l'adresse d'une autre feuille du meme classeur
Donc ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ "Feuil3!A1"
Amicalement. Sous toutes réserves.
"michdenis" wrote in message news:
Bonjour André,
Je n'ai pas saisi vraiment la question ...
A ) tu sélectionne la cellule où tu veux insérer le lien hypertexte
B ) Barre des menus / Insertion / Lien Hypertexte /
C ) Dans la boîte de saisie : Regarder dans : Sélectionne le chemin où est ton classeur ...
D ) Juste en dessous "Dossier en cours", tu cliques (une fois..) sur le fichier qui est en fait celui qui est ouvert (dans
lequel tu travailles
E ) Le nom du fichier va apparaître dans la boîte saisie de la fenêtre : "Adresse"
F ) Tu cliques sur le bouton "Signet" en haut et vers la droite de la fenêtre
G ) Dans la fenêtre qui va s'ouvrir, tu sélectionnes la feuille parmi celle affichée et dans la boîte de saisie du dessus, tu
tapes l'adresse de la cellule à lier . Et tu fermes cette fenêtre par le bouton "OK"
H ) Tu fermes par "Ok" la fenêtre principale
I ) Si tu as fait tout ces manoeuvres et que ta cellule était vide, tu obtiendras ceci dans la cellule :
LireÉcrire%20fichier%20texte.xls#Feuil2!C25
Tu peux taper le texte de ton choix et le lien hypertexte demeurera actif.
Si tu effaces tout le texte ... adieu le lien ...
Si tu veux donner l'impression que la cellule est vide .... tu sélectiones la cellule et dans la barre de formule tu tapes 0160 en tenant le bouton Alt à gauche de la barre
d'espacement enfoncé ... et tu peux même aller modifier le style de la cellule : Barre des menus / format / style / bouton
modifié / et tu enlèves le souligement ...au style !
La macro qui enregistre ces mouvements donne le code suivant :
"andré" a écrit dans le message de news:6dc501c4838a$0bc7de70$
Bonjour
j'essaye désepérément d'associer à une cellule dans une feuille, l'adresse d'une autre feuille du meme classeur.
je procède en 3 étapes : 1) nom_doc = ActiveWorkbook.FullNameURLEncoded 2) nom_feuille = Worksheets(I).Name 3) nom = nom_doc & "-'" & nom_feuille & "'!A1" et enfin 4) Worksheets(1).Hyperlinks.Add Range(myRange), nom
au final, la lien indiqué par la cellule cible qui s'affiche dans la bulle jaune (qd la souris pointe dessus) est rigoureusement le meme que si je l'avais créé à la main, mais si je clique sur le lien un message d'erreur s'affiche. Je suppose qu'il faudrait trouver l'équivalent de la fonction 'FullNameURLEncoded' qui s'appliquerait à Worksheets(I).Name, mais ça je n'ai pas trouvé.
