Mon lien local fonctionne bien mais la première partie pour le lien réseau
fonctionne au départ mais après avoir enregistré, fermer le fichier puis
réouvert celui-ci, le lien "se casse" à chaque fois et remplace le lien
"\\serveur\.." par "../../../../serveur/..".
Je souhaiterais remplacer la partie
Range("B3").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"\\serveur\dossiers\" & Range("B1"), _
TextToDisplay:= _
"Réseau : " & Range("B2")
par un script qui me permettrait d'obtenir dans la cellule B3 la formule que
l'on trouve sur Excel à savoir :
=LIEN_HYPERTEXTE("\\serveur\dossiers\....
et qui reprendrait la fin de la forumule par la cellule B1.
Comment l'écrire ?
Merci de votre aide
Si besoin de précisions, n'hésitez pas !
Jéjé
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
Gilles LAURENT
"" a écrit dans le message de news: | Bonjour,
Bonjour,
[...] | Je souhaiterais remplacer la partie | Range("B3").Select | ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _ | "serveurdossiers" & Range("B1"), _ | TextToDisplay:= _ | "Réseau : " & Range("B2") | par un script qui me permettrait d'obtenir dans la cellule B3 la | formule que l'on trouve sur Excel à savoir : | =LIEN_HYPERTEXTE("serveurdossiers.... | et qui reprendrait la fin de la forumule par la cellule B1.
"jejefriends@hotmail.com"
<jejefriendshotmailcom@discussions.microsoft.com> a écrit dans le
message de news:C07D7860-2B65-4FCF-AB34-AED1805454D6@microsoft.com
| Bonjour,
Bonjour,
[...]
| Je souhaiterais remplacer la partie
| Range("B3").Select
| ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
| "\serveurdossiers" & Range("B1"), _
| TextToDisplay:= _
| "Réseau : " & Range("B2")
| par un script qui me permettrait d'obtenir dans la cellule B3 la
| formule que l'on trouve sur Excel à savoir :
| =LIEN_HYPERTEXTE("\serveurdossiers....
| et qui reprendrait la fin de la forumule par la cellule B1.
[...] | Je souhaiterais remplacer la partie | Range("B3").Select | ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _ | "serveurdossiers" & Range("B1"), _ | TextToDisplay:= _ | "Réseau : " & Range("B2") | par un script qui me permettrait d'obtenir dans la cellule B3 la | formule que l'on trouve sur Excel à savoir : | =LIEN_HYPERTEXTE("serveurdossiers.... | et qui reprendrait la fin de la forumule par la cellule B1.
Merci beaucoup J'ai testé le script et le résultat est ce que je j'attends. Par contre, je suis amené à faire des dizaines de liens sur ces mêmes cellules : je déplace mes liens générés sur un autre emplacement par couper / coller sur le classeur (je ne peux donc pas garder B1 et B2 comme des constantes et le lien généré doit récupérer définitivement les variables B1 et B2). Comment écrire la même ligne de code en utilisant (je pense) l'outils Range() pour les cellules B1 et B2 ? Merci d'avance Jéjé
"" a écrit dans le message de news: | Bonjour,
Bonjour,
[...] | Je souhaiterais remplacer la partie | Range("B3").Select | ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _ | "serveurdossiers" & Range("B1"), _ | TextToDisplay:= _ | "Réseau : " & Range("B2") | par un script qui me permettrait d'obtenir dans la cellule B3 la | formule que l'on trouve sur Excel à savoir : | =LIEN_HYPERTEXTE("serveurdossiers.... | et qui reprendrait la fin de la forumule par la cellule B1.
Merci beaucoup
J'ai testé le script et le résultat est ce que je j'attends.
Par contre, je suis amené à faire des dizaines de liens sur ces mêmes
cellules : je déplace mes liens générés sur un autre emplacement par couper /
coller sur le classeur (je ne peux donc pas garder B1 et B2 comme des
constantes et le lien généré doit récupérer définitivement les variables B1
et B2).
Comment écrire la même ligne de code en utilisant (je pense) l'outils
Range() pour les cellules B1 et B2 ?
Merci d'avance
Jéjé
"jejefriends@hotmail.com"
<jejefriendshotmailcom@discussions.microsoft.com> a écrit dans le
message de news:C07D7860-2B65-4FCF-AB34-AED1805454D6@microsoft.com
| Bonjour,
Bonjour,
[...]
| Je souhaiterais remplacer la partie
| Range("B3").Select
| ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
| "\serveurdossiers" & Range("B1"), _
| TextToDisplay:= _
| "Réseau : " & Range("B2")
| par un script qui me permettrait d'obtenir dans la cellule B3 la
| formule que l'on trouve sur Excel à savoir :
| =LIEN_HYPERTEXTE("\serveurdossiers....
| et qui reprendrait la fin de la forumule par la cellule B1.
Merci beaucoup J'ai testé le script et le résultat est ce que je j'attends. Par contre, je suis amené à faire des dizaines de liens sur ces mêmes cellules : je déplace mes liens générés sur un autre emplacement par couper / coller sur le classeur (je ne peux donc pas garder B1 et B2 comme des constantes et le lien généré doit récupérer définitivement les variables B1 et B2). Comment écrire la même ligne de code en utilisant (je pense) l'outils Range() pour les cellules B1 et B2 ? Merci d'avance Jéjé
"" a écrit dans le message de news: | Bonjour,
Bonjour,
[...] | Je souhaiterais remplacer la partie | Range("B3").Select | ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _ | "serveurdossiers" & Range("B1"), _ | TextToDisplay:= _ | "Réseau : " & Range("B2") | par un script qui me permettrait d'obtenir dans la cellule B3 la | formule que l'on trouve sur Excel à savoir : | =LIEN_HYPERTEXTE("serveurdossiers.... | et qui reprendrait la fin de la forumule par la cellule B1.
"" a écrit dans le message de news: | Merci beaucoup | J'ai testé le script et le résultat est ce que je j'attends. | Par contre, je suis amené à faire des dizaines de liens sur ces mêmes | cellules : je déplace mes liens générés sur un autre emplacement par | couper / coller sur le classeur (je ne peux donc pas garder B1 et B2 | comme des constantes et le lien généré doit récupérer définitivement | les variables B1 et B2).
Si j'ai bien compris, vous souhaitez intégrer le contenu des cellules B1 et B2 "en dur" dans la formule Hyperlink pour être en mesure de copier/coller le contenu de la cellule sans que la formule associée ne soit automatiquement modifiée/adaptée par Excel. Si c'est la cas alors la macro suivante devrait convenir.
"jejefriends@hotmail.com"
<jejefriendshotmailcom@discussions.microsoft.com> a écrit dans le
message de news:63AA4D7D-9F70-457A-99FF-72EA14A49ECB@microsoft.com
| Merci beaucoup
| J'ai testé le script et le résultat est ce que je j'attends.
| Par contre, je suis amené à faire des dizaines de liens sur ces mêmes
| cellules : je déplace mes liens générés sur un autre emplacement par
| couper / coller sur le classeur (je ne peux donc pas garder B1 et B2
| comme des constantes et le lien généré doit récupérer définitivement
| les variables B1 et B2).
Si j'ai bien compris, vous souhaitez intégrer le contenu des cellules B1
et B2 "en dur" dans la formule Hyperlink pour être en mesure de
copier/coller le contenu de la cellule sans que la formule associée ne
soit automatiquement modifiée/adaptée par Excel. Si c'est la cas alors
la macro suivante devrait convenir.
"" a écrit dans le message de news: | Merci beaucoup | J'ai testé le script et le résultat est ce que je j'attends. | Par contre, je suis amené à faire des dizaines de liens sur ces mêmes | cellules : je déplace mes liens générés sur un autre emplacement par | couper / coller sur le classeur (je ne peux donc pas garder B1 et B2 | comme des constantes et le lien généré doit récupérer définitivement | les variables B1 et B2).
Si j'ai bien compris, vous souhaitez intégrer le contenu des cellules B1 et B2 "en dur" dans la formule Hyperlink pour être en mesure de copier/coller le contenu de la cellule sans que la formule associée ne soit automatiquement modifiée/adaptée par Excel. Si c'est la cas alors la macro suivante devrait convenir.
