VBA excel

Fermé
chris - 6 nov. 2008 à 12:40
 Utilisateur anonyme - 6 nov. 2008 à 13:50
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.

1 réponse

Utilisateur anonyme
6 nov. 2008 à 13:50
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