Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

F

Fariri

XLDnaute Junior
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
 
Trier par date Trier par votes

eriiic

XLDnaute Barbatruc
Bonjour,

ws.Range("Valeur_Combo30") n'a aucun sens si c'est le nom du pdf. Essaie avec :
VB: 
NomFichier = Valeur_Combo30 & ".pdf"
mais bon, la variable n'est pas vraiment indispensable. Utilise directement ComboBox30.Value

De plus, je souhaiterai savoir comment faire pour gérer l'erreur si le fichier n'existe pas dans le dossier concerné
Cliquez pour agrandir...
Fait un Dir(chemin et nomFichier) avant.
Si ="" alors il n'existe pas
eric
 
Vote positif 0 Vote négatif
F

Fariri

XLDnaute Junior
Staple1600 à dit:
Bonjour

Et comme ceci, cela donne quoi?
NomFichier = Valeur_Combo30 & ".pdf"

EDITION: Houps, désolé pour la collision, eriiiic
Cliquez pour agrandir...

Tout d'abord, merci à vous deux d'avoir pris le temps de répondre à mes questions.
J'ai procédé comme dit ci-dessus et ça donne ceci (ce que vous m'avez conseillé c'est ok par contre j'ai une erreur à la ligne suivante)

Sub Ouvrir_Fichier()
'
'DECLARATION DES VARIABLES
Dim ws As Worksheet
Dim Chemin As String
Dim NomFichier As String



Set ws = ActiveSheet
Chemin = ThisWorkbook.Path & Application.PathSeparator
NomFichier = ComboBox30.Value & ".pdf"

ThisWorkbook.FollowHyperlink Chemin & NomFichier '<- après débogage, cette ligne est en jaune (l'erreur recule, ou avance ; tout dépend du point de vue)

Set ws = Nothing

End Sub

voilà la photo de l'erreur :


Je travaille sur ACROBAT READER DC 18.01.12
merci
 
Vote positif 0 Vote négatif
F

Fariri

XLDnaute Junior
eriiiic à dit:
Pour une fois je ne termine pas bon dernier avec 1/4h dans la vue
Cliquez pour agrandir...
Tout d'abord, merci à vous deux d'avoir pris le temps de répondre à mes questions.
J'ai procédé comme dit ci-dessus et ça donne ceci (ce que vous m'avez conseillé c'est ok par contre j'ai une erreur à la ligne suivante)

Sub Ouvrir_Fichier()
'
'DECLARATION DES VARIABLES
Dim ws As Worksheet
Dim Chemin As String
Dim NomFichier As String



Set ws = ActiveSheet
Chemin = ThisWorkbook.Path & Application.PathSeparator
NomFichier = ComboBox30.Value & ".pdf"

ThisWorkbook.FollowHyperlink Chemin & NomFichier '<- après débogage, cette ligne est en jaune (l'erreur recule, ou avance ; tout dépend du point de vue)

Set ws = Nothing

End Sub

voilà la photo de l'erreur :


Je travaille sur ACROBAT READER DC 18.01.12
merci
 
Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc
Re

Fais ce petit test (en faisant les adaptations nécessaires comme expliqué dans la macro)
Normalement le PDF doit s'ouvrir.
Est-ce le cas sur ton PC?
NB: Pour le test 2, il faut qu'il existe un PDF nommé test.pdf dans le même répertoire que celui où tu enregistrer un classeur contenant cette macro de test
VB: 
Sub Test_PDF()
Dim zPDF$, Chemin$, Fichier$
'zPDF = "C:\Users\XLDForum\Tests\Test.pdf"
'Remplace la valeur de zPDF par un chemin et nom de PDF valide (qui existent sur ton disque dur)
'test 1 OK
'ThisWorkbook.FollowHyperlink zPDF, , True, False

'test 2 OK
Chemin = ThisWorkbook.Path & "\"
Fichier = "Test.pdf"
ThisWorkbook.FollowHyperlink Chemin & Fichier, , True, False
End Sub

PS: Ce que nous t'avions conseillé, c'était:
NomFichier = ComboBox30 & ".pdf"
et non pas
NomFichier = ComboBox30.Value & ".pdf"
 
Vote positif 0 Vote négatif
F

Fariri

XLDnaute Junior


MERCI pour la proposition

voila ce que ça donne : (j'ai mis en jaune ce qui est passé en jaune quand j'ai appuyé sur débogage)

 
Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc
RE

Il fallait décommenter la ligne qui commence par zPDF
Et il faut faire chaque test de syntaxe un par un.
Cela devrait être plus clair ainsi rédigé
Normalement le PDF doit s'ouvrir dans les deux cas.
Code: 
Sub Test_PDF_1()
Dim zPDF$
zPDF = "C:\Users\XLDForum\Tests\Test.pdf"
'Remplace la valeur de zPDF par un chemin et nom de PDF valide (qui existent sur ton disque dur)
'test 1 OK
ThisWorkbook.FollowHyperlink zPDF, , True, False
End Sub
Sub Test_PDF_2()
Dim Chemin$, Fichier$
'test 2 OK
Chemin = ThisWorkbook.Path & "\"
Fichier = "Test.pdf"
ThisWorkbook.FollowHyperlink Chemin & Fichier, , True, False
End Sub
 
Vote positif 0 Vote négatif
F

Fariri

XLDnaute Junior


Merci, super, le fichier s'est ouvert

il reste une nano erreur cependant :
La ligne s'est mise en jaune :




et le code erreur est :

 
Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc
Re

Ca veut dire que ces macros ne servent qu'à faire des tests pour isoler l'erreur.
Elles ne sont pas à utiliser telles quelles dans ton fichier réel.

Où est situé le fichier PDF nommé test.pdf sur ton PC?
Où est situé le classeur contenant les macros que je t'ai posté?

PS: Tu as bien fait tes tests avec les deux dernières macros postées?
Celles du message#9 ?
 
Vote positif 0 Vote négatif
F

Fariri

XLDnaute Junior


Le fichier Test est situé dans le même dossier que les fichiers que je dois ouvrir,
le classeur est situé dans un dossier et dans ce même dossier il y a plusieurs dossier et parmi ceux-ci le dossier contentant le fichier Test.

merci
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

G
  • Question
XL 2016 Extraire des données d'un pdf et les copier dans excel
2
Réponses
17
Affichages
820
gali2
G
  • Résolu(e)
XL 2013 (RESOLU) Adapter un code
Réponses
8
Affichages
582
TooFatBoy
P
  • Question
Microsoft 365 Problème lors de la création d'un fichier
Réponses
4
Affichages
378
ChTi160
  • Résolu(e)
XL 2013 (RESOLU) Modification du code de pdf au xlsm
Réponses
2
Affichages
501
chaelie2015
  • Question
Microsoft 365 Conserver la valeur de ma variable pour l'utiliser dans un autre code
Réponses
3
Affichages
322
mapomme
G
  • Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
18
Affichages
1 K
GClaire
G
  • Résolu(e)
XL 2016 If Not xRgSel Is Nothing Then --> Ne marche pas
Réponses
10
Affichages
420
R3n0W
T
  • Question
Microsoft 365 Ouvrir un fichier en fonction de sa date
Réponses
1
Affichages
304
sylvanu
  • Résolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
536
Nico2978
A
  • Résolu(e)
XL 2021 Céer un fichier (.text) avec VBA pour enregistrer les évènements dans un journal
Réponses
4
Affichages
463
arnoldbrice19
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…