Ouvrir un fichier pdf impossible car la variable ne prend pas la valeur de l'adresse

[Fariri]

Bonjour,

Je reviens vers vous, car je souhaiterai ouvrir un fichier pdf depuis un Userform qui est équipé d'un bouton "ouvrir le llien"
Pour ce faire j'ai une fonction qui est appelé dans la procédure du bouton.

le hic, c'est que je n'arrive pas à ouvrir le fichier car la variable "NomFichier" qui doit prendre l'adresse du fichier à ouvrir, reste vide
La comboBox30 quand à elle prend bien le nom du fichier à ouvrir

voici mon code :
Sub Ouvrir_Fichier()
'
'DECLARATION DES VARIABLES
Dim ws As Worksheet
Dim Chemin As String
Dim NomFichier As String
Dim Valeur_Combo30

Valeur_Combo30 = ComboBox30.Value

Set ws = ActiveSheet
Chemin = ThisWorkbook.Path & Application.PathSeparator
NomFichier = ws.Range("Valeur_Combo30") & ".pdf" '<- après débogage, cette ligne est en jaune 🙁

ThisWorkbook.FollowHyperlink Chemin & NomFichier

Set ws = Nothing

End Sub

De plus, je souhaiterai savoir comment faire pour gérer l'erreur si le fichier n'existe pas dans le dossier concerné
(faire apparaitre une msgbox : "le fichier est introuvable"

merci pour votre aide

 

[Fariri]

Re

Relire mon précédent message
J'y ai ajouté quelques pistes

ok, je relis et j'étudie les pistes

merci encore

 

[Fariri]

Re

Relire mon précédent message
J'y ai ajouté quelques pistes

Une dernière petite question :

j'ai mis ça et ca fonctionne :

Dim Chemin$, Fichier$

Fichier = ComboBox1 & ".pdf"
Chemin = ThisWorkbook.Path & "\"
ThisWorkbook.FollowHyperlink Chemin & Fichier, , True, False

comment je fais pour gérer l'erreur si le pdf n'est pas trouvé ??

 

[eriiic]

Re,

c'est indiqué ici : https://www.excel-downloads.com/thr...la-valeur-de-ladresse.20030354/#post-20224967
eric

 

[Fariri]

Re,

c'est indiqué ici : https://www.excel-downloads.com/thr...la-valeur-de-ladresse.20030354/#post-20224967
eric

Merci pour ta réponse, mais je suis débutante et j'ai du mal à comprendre ce que ça veut dire 😕

 

[eriiic]

If Dir(chemin & nomFichier) = "" then
   ' fichier absent
else
   'fichier trouvé
End If

 

[Fariri]

If Dir(chemin & nomFichier) = "" then
   ' fichier absent
else
   'fichier trouvé
End If

Merci