Ouvrir pdf en fonction d'un mot

Je voudrais savoir si se serais possible que mon double clique sois actif que sur ma cellule P2 ?

Il faut remplacer par exit function.

Pourquoi tu n'as pas demandé tout ça au début de ton sujet ?

Oui, c'est possible :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rep$, motcle$
cancel = true
if not target.address = "$P$2" then exit sub
rep = "C:\Users\rinal\Documents\re\" 'repertoire parent
motcle = target.value 'mot à chercher
ChercherOuvrirFichier rep, motcle
End Sub

function ChercherOuvrirFichier(Rep$, Motcle$)

dim n&, t(), i&, fichier$, dossier$

if motcle = "" then exit function

if dir(left(rep, len(rep) - 1), vbdirectory) = "" then
    msgbox "chemin inexistant", 16: exit function
end if

dossier = dir(rep, vbdirectory)
while dossier <> ""
    if not dossier like "*.*" then
        n = n + 1: redim preserve t(1 to n)
        t(n) = rep & dossier & "\"
    end if
    dossier = dir
wend

if n = 0 then msgbox "aucun dossier trouvé", 16: exit function

for i = lbound(t) to ubound(t)
    fichier = dir(t(i) & "*" & motcle & "*.pdf")
    if fichier <> "" then
        Shell "C:\Program Files (x86)\Adobe\Acrobat DC\Acrobat\Acrobat.exe " & t(i) & fichier
        exit function
    end if
next i

fin:
MsgBox "Impossible de trouver un fichier contenant :" & motcle

end function

Ok super merci. Désolé je n'y avais pas penser avant.

par contre mon pdf s'ouvre il reste ne arrière plan. acrobat ne se met pas un premier plan. si tu vois ce que je veux dire ?

J'ai trouver voilà tout fonctionne merci pour ton aide

Ouai je vois mais ça me parait pas être un problème, il faut pas non avoir peur de faire un ou 2 clics...

Essaie ça au cas où :

createobject("Shell.Application").open(t(i) & fichier)

dans la condition de la dernière boucle, à la place de la ligne shell.

Edit : C'est bon ? Ok tant mieux !

3GB oui c'est bon trouver le code pour ouvrir directement moi même et c'est parfait

3GB juste au niveau de l'Acrobat je suis obliger de cibler ou il y aurais un moyen pour laisser le pc décider de son viewer ?

J'ai rien compris !

C:\Program Files (x86)\Adobe\Acrobat DC\Acrobat\Acrobat.exe

Vue que chaque pc n'a pas le même chemin ni le même programme pour lire les PDF. Serait-il possible que ce sois automatique en fonction des PC ?

Ca, je ne sais pas mais je pense que ce chemin est assez universel...

As-tu essayé la ligne proposée tout à l'heure comme alternative ?

Je crois avoir déjà répondu à cette question.
Par exemple, quand on créée un lien hypertexte avec un fichier au format PDF, on considère que le système d'exploitation a associé cette extension à une appli. Il n'y a pas qu'Acrobat Reader qui fait ce job au passage.

Ça fonctionne pas de rien mettre