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 -
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 ?

A voir également:

1 réponse

Réponse 1 / 1
cs_Le Pivert Messages postés 8437 Statut Contributeur 729
 
Bonjour,

Clic droit su l'image, tu obtiens cela:


1
Transcriptor Messages postés 19 Statut Membre
 
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".
0
cs_Le Pivert Messages postés 8437 Statut Contributeur 729
 
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à
0
cs_Le Pivert Messages postés 8437 Statut Contributeur 729
 
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
0
cs_Le Pivert Messages postés 8437 Statut Contributeur 729
 
Après une petite recherche: suivant l'image du post, quand tu as choisi ton classeur, tu cliques sur Signet et tu choisis ta feuille

Voilà, c'est tout simple
0
Transcriptor Messages postés 19 Statut Membre
 
Un grand merci c'est parfait !!!! (je me cassais la tête depuis tout à l'heure à essayer d'adapter la macro à mes documents, en vain...) Merci beaucoup !
0

Discussions similaires

Copier un lien instagram
alaurore -
LEFEUVRE -

7 réponses
Feuille de score belote
nulleeninfo -
brucine -

7 réponses
Retrouver liens copiés sur le téléphone
SAMA -
Peterson -

3 réponses
Rajout de lien sur plusieurs pages
leparradiss -
David -

11 réponses