Private Sub CBInstallationAdobeReader_Click()
Dim NomFichier As String
Dim FSO As Object
NomFichier = "Adobe Reader XI v11.0.09"
If Dir(ThisWorkbook.Path & "\Software\Adobe Reader\" & NomFichier & ".exe") = "" Then
MsgBox "Le fichier " & NomFichier & " n'existe pas !" & Chr(10) & Chr(10) & " Vous pouvez le télécharger à partir du lien suivant :" & Chr(10) & "http://get.adobe.com/fr/reader/", vbInformation, NomFichier & " introuvable"
Else
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.copyfile ThisWorkbook.Path & "\Software\Adobe Reader\" & NomFichier & ".exe", "C:\" & NomFichier & ".exe"
Shell "C:\" & NomFichier & ".exe", vbNormalFocus
End If
End Sub