Microsoft 365 Lien hypertexte vers un fichier inséré

Hasco

XLDnaute Barbatruc

Repose en paix

• 10 Juin 2022

• #2

Bonjour,

Pourquoi insérer un doc dans excel si c'est pour l'ouvrir dans word ?
Autant ne pas l'insérer et mettre un lien hypertexte vers le fichier sur disque. Le lien ouvrira word et chargera le fichier.

Cordialement

 

Vote positif 0 Vote négatif

Deadpool_CC

XLDnaute Accro

• 10 Juin 2022

• #3

bonjour,
cela doit être pour pouvoir le transmettre inclus dans le Excel et éviter ainsi d'avoir à envoyer plusieurs PJ ou un zip, ainsi que la gestion aléatoire du repertoire ou l'autre utilisateur mettra les différentes PJ.
il n'y a que pour cela que je vois une utilité à insérer des objets dans des documents.

par contre je sais pas faire un lien vers un objet insérer pour clic = ouverture du doc.

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 10 Juin 2022

• #4

Re,

Avec la méthode Verb de l'objet ole et à supposé qu'il s'agisse du premier objet incorporé de Feuil1 :

VB:

Feuil1.Shapes("Objet 2").OLEFormat.Verb xlVerbOpen

Ou au choix :

Code:

Feuil1.OLEObjects(1).Verb Verb:=xlVerbOpen '2

Cordialement

 

Dernière édition: 10 Juin 2022

Vote positif 0 Vote négatif

G

guigol

XLDnaute Junior

• 10 Juin 2022

• #5

Hasco à dit:

Bonjour,

Pourquoi insérer un doc dans excel si c'est pour l'ouvrir dans word ?
Autant ne pas l'insérer et mettre un lien hypertexte vers le fichier sur disque. Le lien ouvrira word et chargera le fichier.

Cordialement

Cliquez pour agrandir...

je confirme ce que dit deadpool, c'est pour transmettre des fichiers sans que la personne ne puisse modifier l'arborescence. (en sachant que les fichiers word insérés sont sur une feuille masquée et protégée)

 

Vote positif 0 Vote négatif

G

guigol

XLDnaute Junior

• 10 Juin 2022

• #6

Hasco à dit:

Re,

Avec la méthode Verb de l'objet ole et à supposé qu'il s'agisse du premier objet incorporé de Feuil1 :

VB:

Feuil1.Shapes("Objet 2").OLEFormat.Verb xlVerbOpen

Ou au choix :

Code:

Feuil1.OLEObjects(1).Verb Verb:=xlVerbOpen '2

Cordialement

Cliquez pour agrandir...

Saurais tu lier ces lignes de commande de macro à un lien hypertexte?

typiquement j'ai un tableau en feuil1 ou il y a une colonne
CDS-111
CDS-542
CDS-687

en cliquant sur l'une de ces cellules, cela ouvre CDS-111.docx ou CDS-542.docx ou CDS-687.docx.
Je pensais utiliser des liens hypertexte, mais il y a peut etre plus simple.

(A la base, j'aurais préféré ne pas utiliser de macros --> d'ou mon idée de lien hypertexte=

 

Vote positif 0 Vote négatif

G

guigol

XLDnaute Junior

• 15 Juin 2022

• #7

Une idée?

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 15 Juin 2022

• #8

Bonjour déjà !

guigol à dit:

Une idée?

Cliquez pour agrandir...

Sans doute, sans doute mais est-ce à nous de créer les fichiers exemples (.xlsm) ?

 

Vote positif 0 Vote négatif

G

guigol

XLDnaute Junior

• 15 Juin 2022

• #9

Bonjour

(Toutes mes excuses, j'ai effectivement zappé la plus élémentaire des politesses)

Je ne pensais pas avoir besoin de fournir un fichier.

Mais voici un fichier exemple

Sur le premier onglet, la liste des fichiers à appeler.
J'ai prévu de lister le nom des fichiers (sans l'extension .docx)

Sur le deuxième onglet, les fichiers insérés sous forme d'objet.
D'ailleurs, j'envisageais de nommer ces objets en fonction du nom du fichier si ca peut aider.

 

Pièces jointes

• fichier test.xlsx

  44.2 KB · Affichages: 2

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 15 Juin 2022

• #10

Re,

Si vous voulez des macros, un fichier .xlsm (comme demandé) c'est mieux

Dans votre feuille 'fiche' (cachée xlveryhidden) les objets sont nommés comme les docx.
Dans les cellules A2:A4 de Feuil1, vos liens hypertexte vers... elles-même.
L'action sur le lien est définit dans le module de code de la feuille :

VB:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Dim obj As OLEObject
    On Error GoTo FIN
    Set obj = ThisWorkbook.Sheets("fiche").OLEObjects(Target.Name)
    If Not obj Is Nothing Then obj.Verb xlVerbOpen
FIN:
    If Err.Number > 0 Then
        MsgBox "L'objet '" & Target.Name & "' est introuvable sur la feuille 'fiche'", vbExclamation, "Ouverture fichier docx"
    End If
    On Error GoTo 0
End Sub

Si vous changez les noms dans les liens vous pouvez aussi utiliser la propriété TextToDisplay de 'Target'.

cordialement

 

Pièces jointes

• fichier test.xlsm

  56.6 KB · Affichages: 4

Vote positif 0 Vote négatif

Solution

G

guigol

XLDnaute Junior

• 15 Juin 2022

• #11

Super.

Merci beaucoup

 

Vote positif 0 Vote négatif