Discussion :

[grisan29]

bonjour a tous et toutes ainsi qu'au spécialiste des .PDF Kiki29

depuis quelques temps quand je veux ouvrir un devis.PDF je ne peux plus car cela m'ouvre une feuille excel avec des lignes écritent qu ne correspondent a rien sauf et surement
a ADOBE READER RC qui est installer sur mon windows10 64bits et office2013 32 bits , je ne sais pas d'où cela viens , je vous joint un aperçu du résultat ainsi qu'un exemple du classeur utiliser dont il y aura le chemin a modifier
Pièce jointe 214023
Pièce jointe 214022

bonne journée

Pascal

[kiki29]

Salut, voir Visualisation d'une liste de fichiers PDF dans une UserForm via IExplorer et adapte à ton contexte.

[grisan29]

bonjour Kiki29

merci pour ton classeur mais je ne peux pas ouvrir plus le document .pdf car il est introuvable
voici un aperçu des paneaux qui s'ouvre plusieurs fois
Pièce jointe 214025

Pascal

[kiki29]

Déjà ton fichier c'est n'importe quoi, encore un drame du copier/coller d'un code incompris qui aboutit à ce salmigondis.

Bref sans regarder plus loin pour l'ouverture des fichiers ( à tester ).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Option Explicit
 
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
                                      (ByVal hwnd As Long, _
                                       ByVal lpOperation As String, _
                                       ByVal lpFile As String, _
                                       ByVal lpParameters As String, _
                                       ByVal lpDirectory As String, _
                                       ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1
 
Private Sub ListBox1_Click()
Dim sFichier As String, hwnd As Long
 
    sFichier = Label1.Caption & ListBox1.Text
    ShellExecute hwnd, "Open", sFichier, 0&, 0&, SW_SHOWNORMAL
End Sub

[grisan29]

bonjour Kiki29
merci pour ton code mais quand je clique sur optionbutton devispdf et que j'appui sur lister ca tourne en rond pour chercher et finalement excel ne réponds plus
je sais tu vas me dire que mon fichier c'est de la m....e , mais il fonctionnait et sans faire de recherche a l'aide IE que j'ai remplacer par Firefox

Pascal

[jurassic pork]

hello,
grisan29 puisque tu es sous windows 10 as-tu ce symptôme :

Depuis la dernière mise à jour de Windows 10, tous mes fichiers .pdf ne portent plus l'icône "Acrobat reader" mais la lettre bleue "e", l'icône de "edge" - devant le nom de fichier - et s'ouvrent, en première instance, si on ne choisit pas "ouvrir avec" "Acrobat reader", sur le navigateur windows "edge".

Ami calmant, J.P