Lien hypertexte vers une feuille d'un autre classeur
Résolu/Fermé
Transcriptor
Messages postés
18
Date d'inscription
jeudi 18 juin 2015
Statut
Membre
Dernière intervention
9 février 2016
-
9 févr. 2016 à 11:27
Transcriptor Messages postés 18 Date d'inscription jeudi 18 juin 2015 Statut Membre Dernière intervention 9 février 2016 - 9 févr. 2016 à 14:41
Transcriptor Messages postés 18 Date d'inscription jeudi 18 juin 2015 Statut Membre Dernière intervention 9 février 2016 - 9 févr. 2016 à 14:41
A voir également:
- Lien hypertexte excel vers autre feuille
- Liste déroulante excel - Guide
- Lien url - Guide
- Verifier un lien - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Formule excel - Guide
1 réponse
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
9 févr. 2016 à 11:38
9 févr. 2016 à 11:38
Bonjour,
Clic droit su l'image, tu obtiens cela:
Clic droit su l'image, tu obtiens cela:
9 févr. 2016 à 11:53
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".
9 févr. 2016 à 12:04
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 SubEnregistrer classeur acceptant les macros
Activer les macros si elles ne sont pas activées!
Voilà
9 févr. 2016 à 12:12
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 Sub9 févr. 2016 à 13:54
Voilà, c'est tout simple
9 févr. 2016 à 14:41