Lien hypertexte vers une feuille d'un autre classeur
Résolu
Transcriptor
Messages postés
18
Date d'inscription
Statut
Membre
Dernière intervention
-
Transcriptor Messages postés 18 Date d'inscription Statut Membre Dernière intervention -
Transcriptor Messages postés 18 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Lien vers une autre feuille excel
- Lien url - Guide
- Créer un lien pour partager des photos - Guide
- Liste déroulante excel - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Déplacer une colonne excel - Guide
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".
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à
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 SubVoilà, c'est tout simple