Macro pour ouvrir un document en cliquant sur une image

bonjour à tous,

je suis à la recherche d'une macro pour pouvoir ouvrir un autre document ( word ou pdf ) qui se trouve dans un autre dossier en cliquant simplement

sur une image dans un classeur excel ... est ce que cela est faisable ?

Merci pour vos réponses.

Bonne journée !

Cdlt

Bonjour

Pourquoi une macro

Tu sélectionnes ton image et tu crées un Lien Hypertexte vers le fichier voulu.

Cordialement

Bonjour,

voici un exemple,

Sub Ouvrir_Fichier()
Dim fn As Variant
ChDir "C:\Users\xxxxx\Documents" 'à adapter
    fn = Application.GetOpenFilename("All files,*.*,Excel-files,*.xls,Word Files,*.doc,PDF Files,*.pdf,", 1, "", , False)
    If TypeName(fn) = "Boolean" Then Exit Sub 'si aucun fichier choisi
    Debug.Print "Selected file: " & fn 'test
    extention = Right(fn, 4)
    Select Case True
        Case extention Like "*pdf": ActiveWorkbook.FollowHyperlink Address:=fn
        Case extention Like "*xls*": Workbooks.Open fn
        Case extention Like "*doc*": Call GetWord(CStr(fn))
        Case Else: Exit Sub
    End Select
End Sub

Sub GetWord(fichier)
'nécessite d'activer la référence à Microsoft Word xx Object Library
Dim objWord
Dim objDoc
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open(fichier)
objWord.Visible = True
objWord.Activate
End Sub

Bonjour,

j'ai déjà testé un lien hypertexte : ça fonctionne très bien mais ça beug quand je copie le fichier excel + mon dossier contenant tous les documents et que je veux l'utiliser sur un autre pc ... j'ai un message d'erreur qui m'indique " impossible d'ouvrir le fichier spécifier "

C'est pour cela que je cherches une autre solution car ce fichier excel ainsi que le dossier contenant les documents seront utilisés par plusieurs personnes sur différents PC.

merci quand même d'avoir pris le temps de répondre à mon post et pour ta solution.

Je reste toutefois preneur si tu as un code VBA.

bonne journée !

cdlt

Bonjour Sabv,

merci pour cet exemple ... je vais tester !

bonne fin de journée

Cdlt