XL 2013 Formulaire gestion doc. pour modification

[karybou]

Hello , le forum,
Il y a quelque temps Bbb38, Koodbook, ont préparé un fichier pour la gestion documentaire.
Le fichier est absolument excellent !
Moi-même, J'avais essayé désespérément de créer un fichier de gestion mais comparé à celui-ci c'est vraiment top. MERCI pour la mise à disposition.
Cependant j'ai quelques colonnes qui changent de votre version, et j'ai tenté de faire "en solo" les modifications dans le code, mais malheureusement ça ne le fait pas.
J'ai besoin de votre aide svp.
J'ai repris le document et annoté dans la base documentaire les colonnes dont j'aurais besoin et ce serait super sympa de m'aider à le formater en fonction, voici le fichier en PJ
Je vous remercie par avance de votre aide.
Belle journée à tous.
Cordialement.
K.

 

[jecherche]

Bonjour,

Le code sous la feuille "Base Documentaire" réfère à la colonne R. Les liens de la feuille "Base Documentaire" sont dans la colonne L.
Voici le code modifié ...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim xdlgn As Integer, xchemin As String, WordApp As Object, WordDoc As Object
  xdlgn = Range("A" & Rows.Count).End(xlUp).Row
  If Not Intersect(Target, Range("L5:L" & xdlgn)) Is Nothing Then
    xchemin = Range("L" & Target.Row)
    Set WordApp = CreateObject("Word.Application")
     Set WordDoc = WordApp.Documents.Open("C:\" & xchemin)
    WordApp.Visible = True
    Range("M1").Select
    Exit Sub
  Else
    MsgBox "La cellule ne contient aucun lien."
    Range("M1").Select
  End If
End Sub

Jecherche