Bonjour à tous,
Dans le code ci-dessous, quand je tape "ABCDE" dans la plage D65000. 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.
Merci d'avance,
Mickael_D
Dans le code ci-dessous, quand je tape "ABCDE" dans la plage D65000. 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