XL 2016 Lien hyperlink ne s'ouvre pas

MickaeL_D

XLDnaute Junior
Bonjour à tous,

Dans le code ci-dessous, quand je tape "ABCDE" dans la plage D6:D5000. 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.

VB:
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
 
Solution
Bonjour Mickael,
Par quel miracle "réponse" contiendrait la réponse du Msgbox ? :)
Tentez :
VB:
réponse = MsgBox("Blabla", vbYesNo, "YesNO")
If réponse = vbYes Then
Ou plus simple :
VB:
If MsgBox("Blabla", vbYesNo, "YesNO") = vbYes Then
     ThisWorkbook.FollowHyperlink "C:\Users\Doc 2.xlsx"
End If

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Mickael,
Par quel miracle "réponse" contiendrait la réponse du Msgbox ? :)
Tentez :
VB:
réponse = MsgBox("Blabla", vbYesNo, "YesNO")
If réponse = vbYes Then
Ou plus simple :
VB:
If MsgBox("Blabla", vbYesNo, "YesNO") = vbYes Then
     ThisWorkbook.FollowHyperlink "C:\Users\Doc 2.xlsx"
End If
 
Dernière édition:

Discussions similaires

Réponses
7
Affichages
292