Discussion :

[croky23]

Bonjour le forum

Je possède + de 1000 fiches en pdf qui se trouve dans un dossier "x"
Je voudrais à partir d'une feuille excel ouvrir ces doc pdf

à partir d'une liste (validation de données /liste ou à partir d'une zone de liste modifiable dans un userform))comprenant les noms des fichiers pdf cliquer dessus et que automatiquement cela me cherche mon fichier pdf dans le dossier "X" et me l'ouvre.
Est ce possible et si oui comment faire
merci de votre aide

[jfontaine]

Bonjour,

Une méthode pour ouvrir un PDF

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.FollowHyperlink "D:\Monfichier.pdf"

Il te suffit de remplacer le nom du fichier par la sélection de la listbox

[kiki29]

Salut, une autre approche via la liste et la création de liens des fichiers pdf contenus dans un dossier racine et ses sous dossiers,sans doute à adapter, comme cela tu auras le choix

[croky23]

merci de votre aide

j'ai mis un code qui à l'air de fonctionner

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim Monfichier As Variant
 
 
Private Sub ComboBox1_Change()
Me.TextBox1 = Me.ComboBox1
End Sub
 
Private Sub TextBox1_Change()
Monfichier = Me.TextBox1
ThisWorkbook.FollowHyperlink "C:\Users\jean-luc\Documents\" & Monfichier & ".pdf"
End Sub

je suis débutant et je vous le donne à tester
merci

[jfontaine]

Tu peux tout mettre dans un seul événement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Private Sub ComboBox1_Change()
 
Me.TextBox1.Text = Me.ComboBox1.Text
ThisWorkbook.FollowHyperlink "C:\Users\jean-luc\Documents\" & ComboBox1.Text & ".pdf"
 
End Sub

[croky23]

merci beaucoup

[croky23]

Bonjour
je vais abuser de votre gentillesse
si je tape un code qui ne correspond pas à un dossier pdf présent
je voudrai avoir un message me disant que le fichier n'est pas présent
et revenir à mon userform
merci

[Fvandermeulen]

Salut,
Et pourquoi pas via GetOpenFile ?
Par exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub OuvrePDF()
 
Dim strFullName As String
 
strFullName = Application.GetOpenFilename("Fichiers PDF (*.pdf),*.pdf", , _
    "Sélectionnez un fichier :")
 
    ThisWorkbook.FollowHyperlink strFullName
 
End Sub

A+

[croky23]

merci de la réponse
mais etant completement nul peux tu m'expliquer d'avantage
ce qui est marqué en rouge je dois remplacer par qq chose?
mon code actuel est celui la

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub ComboBox1_Change()
 
Me.TextBox1.Text = Me.ComboBox1.Text
ThisWorkbook.FollowHyperlink "C:\Users\jean-luc\Documents\" & ComboBox1.Text & ".pdf"
 
End Sub

merci

[Fvandermeulen]

Re,
Non, normalement tu n'as rien à changer.
Attention, c'est une autre méthode qui n'a rien à voir avec le début de code que tu as.
Ouvre un fichier Excel, mets le code que j'ai mis et fais le tourner.
Tu verras une fenêtre de type "explorer" s'ouvrir qui te permettra de sélectionner les fichier PDF et donc l'ouvrir, l'avantage est que l'utilisateur ne risque pas de sélectionner un fichier qui n'existe pas

A+

[croky23]

oui c'est une excellente solution mais j'ai plus de 1000 fichiers et j'ai peur que cela me prenne du bcp de temps, donc voila pourquoi j'avais choisi l'autre solution

[Fvandermeulen]

Je m'étais simplement dis que si tu utilise une liste dans Excel, ta liste a aussi 1000 éléments => pourquoi pas directement regarder dans le dossier qui contient le fichier à ouvrir...

Sinon pour gérer le fichier non présent ceci devrait être suffisant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub ComboBox1_Change()
Me.TextBox1.Text = Me.ComboBox1.Text
 
On Error GoTo Er432
 
ThisWorkbook.FollowHyperlink "C:\Users\jean-luc\Documents\" & ComboBox1.Text & ".pdf"
Exit sub 
 
Er432: MsgBox "fichier non trouvé, merci de vérifier"
 
End Sub

A+

[croky23]

merci
comme d'habitude réponse rapide
une véritable aide
bonne journée