Bonsoir,
Je pense que j'ai tout dit dans le titre
J'aimerais qu'il installe le logiciel adobe seulement s'il est pas installé ! Afficher un msgbox s'il est installé !
J'utilise ce code pour lancer l'installation qui se trouve dans un bouton !
Merci d'avance à vous
A bientôt
Je pense que j'ai tout dit dans le titre
J'aimerais qu'il installe le logiciel adobe seulement s'il est pas installé ! Afficher un msgbox s'il est installé !
J'utilise ce code pour lancer l'installation qui se trouve dans un bouton !
Code:
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
Merci d'avance à vous
A bientôt
Dernière édition: