XL 2016 Lien hyperlink ne s'ouvre pas

[MickaeL_D]

Bonjour à tous,

Dans le code ci-dessous, quand je tape "ABCDE" dans la plage D6😀5000. Le premier fichier (C:\Users\Doc 1.pdf) s'ouvre.
Ensuite, j'aimerais avoir le choix d'ouvrir ou pas le 2ème fichier (C:\Users\Doc 2.xlsx).

Or, avec le code ci-dessous quand la boite de dialogue (vbYesNo) apparait et que je clique sur "Yes" rien ne se passe.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xCell As Range, Rg As Range
    On Error Resume Next
    Set Rg = Application.Intersect(Target, Range("D6:D5000"))
    If Not Rg Is Nothing Then
        For Each xCell In Rg
            Select Case xCell.Value
                Case Is = "ABCDE"
                    MsgBox "Blablabla", vbInformation, "Information"
                    ThisWorkbook.FollowHyperlink "C:\Users\Doc 1.pdf"
                Case Else
                End Select
                Next
                    MsgBox "Blabla", vbYesNo, "YesNO"
                    If réponse = vbYes Then
                    ThisWorkbook.FollowHyperlink "C:\Users\Doc 2.xlsx"
                Else
            End If
         End If
    End Sub

Merci d'avance,

Mickael_D

 

[sylvanu]

Bonjour Mickael,
Par quel miracle "réponse" contiendrait la réponse du Msgbox ? 🙂
Tentez :

réponse = MsgBox("Blabla", vbYesNo, "YesNO")
If réponse = vbYes Then

Ou plus simple :

If MsgBox("Blabla", vbYesNo, "YesNO") = vbYes Then
     ThisWorkbook.FollowHyperlink "C:\Users\Doc 2.xlsx"
End If

 

[MickaeL_D]

Bonjour sylvanu,

Effectivement en relisant le code après votre remarque cela parait plus évident 😉

Merci