Discussion :

[P96O1004]

Bonjour à tous,

J'ai un fichier avec 2 feuilles. Dans la feuille 2, j'ai intégré 1 fichier pdf sous forme d'icône.

Dans la feuille 1, je veux insérer un lien hypertexte vers le fichier pdf. J'ai cherché à manipuler la fonction =LIEN_HYPERTEXTE([Objet 1]) mais rien qui marche. J'ai essayé de renommer l'objet mais cela ne fonctionne pas non plus.

Merci infiniment pour votre aide.

giap

[djo_matrix]

Une question :

Tu veus de la 1 feuille pointer directement vers le ficher pdf ou de la premiere feilles vers l'objet de la deuxieme feuille ?

[P96O1004]

désolé de pas bien préciser
je veux insérer un lien hypertexte dans la cellule D4 de feuil1, qui va ensuite ouvrir un objet dans le feuil2 (c'est un fichier pdf intégré sous forme icône)

je cherche pas une solution avec VBA, mais plus tôt avec fonction d'excel. Mais si on doit utiliser vba, comment manipuler avec un objet intégré ? (son nom dans le code ?)

[P96O1004]

Je m'explique mal encore mon problème ?

Le lien hypertexte peut accéder à une location dans le classeur, mais comment l'utiliser pour ouvrir un fichier intégré (par exemple pdf)

[kiki29]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=LIEN_HYPERTEXTE(Feuil2!A1;"Test")

[P96O1004]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=LIEN_HYPERTEXTE(Feuil2!A1;"Test")

Je pense que t'as mal lu le texte. Ton code accède à la cellule A1 de feuile2. Il n'ouvre rien du tout.
J'ai intégré un fichier pdf dans la feuille 2, le renommer en pdfintegre avec la fontion "Insertion - Nom - Definir". Comment l'ouvrir avec un lien hypertexte ou quelques choses pareilles ? J'ai trouvé que excel nomme les fichier intégrés sous forme Objet1, Objet2, Objet3 ...

[kiki29]

Re, trouvé via le macro recorder

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub OuvrirPDF()
    ActiveSheet.Shapes("Object XYZ").Select
    Selection.Verb Verb:=xlPrimary
End Sub

[P96O1004]

merci kiki29,
J'ai trouvé cela aussi après une recherche sur google. Mais avec une formule, ce n'est pas réalisable ?

Je colle ici un bout de code qui ouvre un objet sur l'autre feuille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub ouvrirobjet()
Application.ScreenUpdating = False
Sheets("Feuil2").Activate
 
Sheets("Feuil2").Shapes("Objet 1").Select
 
Selection.Verb Verb:=xlPrimary
 
Sheets("Feuil1").Activate
Application.ScreenUpdating = True
End Sub