VBA excel

chris -  
 Utilisateur anonyme -
Bonjour,

Mon but est de créer un bouton qui ouvre un fichier PDF par ce code :

Private Sub CommandButton1_Click()
Shell "C:\Program Files\Adobe\Reader 8.0\Reader\AcroRd32.exe C:\MonDocument.pdf", vbNormalFocus
End Sub

Mais j’aimerais que le fichier à ouvrir soit lié à une cellule. C'est-à-dire que je souhaiterais mettre le chemin d’accès dans une cellule et non pas directement dans mon code comme c’est le cas actuellement.

Merci.
Configuration: Windows XP
Internet Explorer 7.0

1 réponse

  1. Utilisateur anonyme
     
    Bonjour,

    Exemple type, a adapter : 

    Private Sub CommandButton1_Click()

    Dim Chemin As String
    Dim Programme As String
    
    Chemin = Sheets("Feuil1").Range("A1").Value
    Programme = "C:\Program Files\Adobe\Reader 8.0\Reader\AcroRd32.exe"
    Shell Programme & " " & Chemin, vbNormalFocus
    
End Sub
'


    Lupin
    0