Bonjour à tous,
Après de nombreuses recherches sur le forum, je n'ai pas réussi à trouver la solution à mon problème et c'est pourquoi je me tourne vers vous.
je voudrais qu'en cliquant sur un bouton qui est sur ma feuille excel, il ouvre un fichier pdf dont je connait le nom mais pas le repertoire.
Etant donné que mon fichier va être utilisé sur plusieurs ordinateur, le fichier ne sera pas tout le temps dans le même repertoire.
Je suis débutante en vba, voici le code que j'ai pu commencer à construire.
Cependant en l'exécutant, rien ne se passe et quand il reconnait le fichier il ne l'ouvre pas.
Quelqu'un aurait il une solution ?
Merci d'avance
ps: j'ai mis le fichier en pièce jointe
Après de nombreuses recherches sur le forum, je n'ai pas réussi à trouver la solution à mon problème et c'est pourquoi je me tourne vers vous.
je voudrais qu'en cliquant sur un bouton qui est sur ma feuille excel, il ouvre un fichier pdf dont je connait le nom mais pas le repertoire.
Etant donné que mon fichier va être utilisé sur plusieurs ordinateur, le fichier ne sera pas tout le temps dans le même repertoire.
Je suis débutante en vba, voici le code que j'ai pu commencer à construire.
Cependant en l'exécutant, rien ne se passe et quand il reconnait le fichier il ne l'ouvre pas.
Quelqu'un aurait il une solution ?
Merci d'avance
ps: j'ai mis le fichier en pièce jointe
Code:
Private Sub CommandButton3_Click()
On Error GoTo err
Dim oFSO As Scripting.FileSystemObject
Dim oFld As Scripting.Folder
Dim oFl As Scripting.File
'Instanciation du FSO
Set oFSO = New Scripting.FileSystemObject
'Instanciation de l'objet File
If oFSO.FileExists("*\Dp lucien.pdf") Then
Set oFl = oFSO.GetFile("*\Dp lucien.pdf")
End If
fin:
Exit Sub
err:
Select Case err.Number
Case 53: MsgBox "Le fichier est introuvable"
Case Else: MsgBox "Erreur inconnue"
End Select
Resume fin
End Sub