Lien hypertexte vers une feuille d'un autre classeur
Résolu
Transcriptor
Messages postés
19
Statut
Membre
-
Transcriptor Messages postés 19 Statut Membre -
Transcriptor Messages postés 19 Statut Membre -
Bonjour,
J'ai un classeur "Planning C3.xlsm" et un autre "Planning C1.xlsm".
Je souhaite désespérément créer un lien hypertexte sur une image contenue dans "Planning C3.xlsm" afin d'atterrir sur une feuille bien spécifique de "Planning C1.xlsm".
J'ai beaucoup cherché sur internet, mais aucune des solutions proposées ne fonctionne quand je l'applique à mon problème.
Quelqu'un aurait-il une idée ?
J'ai un classeur "Planning C3.xlsm" et un autre "Planning C1.xlsm".
Je souhaite désespérément créer un lien hypertexte sur une image contenue dans "Planning C3.xlsm" afin d'atterrir sur une feuille bien spécifique de "Planning C1.xlsm".
J'ai beaucoup cherché sur internet, mais aucune des solutions proposées ne fonctionne quand je l'applique à mon problème.
Quelqu'un aurait-il une idée ?
1 réponse
-
Bonjour,
Clic droit su l'image, tu obtiens cela:
-
Bonjour,
Merci pour votre réponse. Cependant, dans le cas présent, je ne souhaite pas seulement ouvrir via un lien hypertexte le classeur dont il est question, mais une feuille bien précise de ce classeur.
Je reprends mon exemple : depuis le classeur "Planning C3.xlsm", je souhaite ouvrir via un lien hypertexte une feuille du classeur "Planning C1.xlsm". -
il faut passer par le vba:
Dans le classeur à ouvrir faire Alt F11 pour accéder à l'éditeur, sélectionner ThisWorkbook en haut à gauche.
Mettre ceci:
Option Explicit Private Sub Workbook_Open() Sheets("Feuil3").Select 'adapter le nom de la feuille End Sub
Enregistrer classeur acceptant les macros
Activer les macros si elles ne sont pas activées!
Voilà -
Cela est le plus simple, sinon en vba voici un exemple de boisgontierjacques:
http://boisgontierjacques.free.fr/pages_site/lienshypertextes.htm
'Créer des hyper-liens vers les onglets d'un autre classeur Sub GenereLiensOngletsAutreClasseur() classeurPrincipal = ActiveWorkbook.Name nf = Application.GetOpenFilename("Fichiers Xls,*.xls") If nf <> False Then Workbooks.Open Filename:=nf SecondClasseur = ActiveWorkbook.Name Windows(classeurPrincipal).Activate For i = 1 To Workbooks(SecondClasseur).Sheets.Count ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 1, 1), Address:=nf, SubAddress:= _ "'" & Workbooks(SecondClasseur).Sheets(i).Name & "'!a1", TextToDisplay:="'" & _ Workbooks(SecondClasseur).Sheets(i).Name Next i Workbooks(SecondClasseur).Close End If End Sub -
-
-
