MACRO - ouvrir pdf

Bonjour le forum,

Je bloque une nouvelle fois avec une macro qui me permettrait d' ouvrir un PDF par double clic sur une cellule.

Dans mon facturier je génère une facture au format PDF dans "D:\test\test1\test2\Janvier 2016\Mr jacques martin\F42397-2.Pdf".

Dans la feuille "Suivi factures" de ce facturier j'ai 7 colonnes (voir fichier test.xlsm).

Apres double clic dans la cellule active avec cette macro le fichier s'ouvre bien.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Application.Intersect(Target, Range("C2:C6000")) Is Nothing Then

valeur = ActiveCell
ThisWorkbook.FollowHyperlink "D:\test\test1\test2\Janvier 2016\Mr jacques martin\" & valeur & ".pdf"
End If
End Sub

Mais il me faudrait plus quelque chose du style :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Application.Intersect(Target, Range("C2:C6000")) Is Nothing Then

valeur = ActiveCell
ThisWorkbook.FollowHyperlink "D:\test\test1\test2\" & Range(A) & Range(F) & Range(G) & valeur & ".pdf"
End If
End Sub

J'espère avoir était le plus explicit possible. Je vous joins le fichier et le PDF pour plus de clarté.

Merci .

Bonjour,

à tester.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Not Application.Intersect(Target, Range("C2:C6000")) Is Nothing Then
        valeur = ActiveCell
        mois = Range("f" & Target.Row)
        Select Case mois
        Case Is = 1
            mois = "Janvier"
        Case Is = 2
            mois = "Février"
        Case Is = 3
            mois = "Mars"
        Case Is = 4
            mois = "Avril"
        Case Is = 5
            mois = "Mai"
        Case Is = 6
            mois = "Juin"
        Case Is = 7
            mois = "Juillet"
        Case Is = 8
            mois = "Août"
        Case Is = 9
            mois = "Septembre"
        Case Is = 10
            mois = "Octobre"
        Case Is = 11
            mois = "Novembre"
        Case Is = 12
            mois = "Décembre"
        End Select
        annee = Range("g" & Target.Row)
        nom = Range("a" & Target.Row)
        ThisWorkbook.FollowHyperlink "D:\SAS\Facturier\Factures\" & mois & " " & annee & "\" & nom & "\" & valeur & ".pdf"
    End If

End Sub

Cordialement.

Bonsoir et merci de me répondre.

Je ne peux pas tester pour le moment mais ca m'a l air pas mal tout ca

Je teste ca des que possible.

Merci encore.

re-bonsoir,

Tout fonctionne a merveille

Merci.

Bonjour,

Tardivement, mais...

Supprime le Select Case et modifie la variable mois.

' si necessaire : Application.Proper met en majuscules la première lettre d'une chaîne de texte.
        mois = Application.Proper(MonthName(Range("F" & Target.Row)))

Cdlt.

Bonjour,

je ne connaissais pas effectivement bien joué Jean-Eric.

Cordialement.

Bonjour ,

Je teste ca dans le week end.

Merci à tout les 2 d avoir consacré du temps a mon problème.

Cordialement.

Romain.

Jean-Eric a écrit :

Bonjour,

Tardivement, mais...

Supprime le Select Case et modifie la variable mois.

' si necessaire : Application.Proper met en majuscules la première lettre d'une chaîne de texte.
        mois = Application.Proper(MonthName(Range("F" & Target.Row)))

Cdlt.

Bonsoir,

Testé et approuvé .

Merci.