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

[grisan29]

bonjour jurassic pork
oui j'ai eu une très grande mise a jour mais qui ne m'as pas occasionner les soucis du len que as mis vois l'aperçu ci dessous
Pièce jointe 214036

Pascal

[grisan29]

Bonsoir a tous
je pensais qu'en revenant ici le spécialiste des problèmes de .PDF serai apte a me répondre
mais je me trompe apparemment, je descends de post en post

c'est que je sois pressé

Pascal

[jurassic pork]

hello,

je pensais qu'en revenant ici le spécialiste des problèmes de .PDF serai apte a me répondre

il t'a répondu et son code fonctionne chez moi.
Ouvrir les pdf par le Shellexecute open (qui utilise alors l'application associée à l'extension du fichier ) est beaucoup moins risqué que t'essayer d'ouvrir le fichier pdf par un Application.Workbooks.Open sauf si tu as une version d'Excel qui sait ouvrir les .pdf (moi en excel 2010 je ne peux pas).
Si le code de kiki29 ne fonctionne pas chez toi c'est qu'il doit y avoir un souci dans la façon dont tu l'as inclus dans ton code. Peux-tu nous mettre le code complet de ta userform import dans un message ?

Ami calmant, J.P

[grisan29]

Pièce jointe 214416

bonjour Jurassic pork
merci de ta réponse mais le fichier de départ est en haut dans mon premier post "test import.xlsm", mais je le remets tel que
je suis sous 2013 pro 32 bits avec W10 64 bits

[grisan29]

bonjour Jurassic pork, kiki29 et le forum

j'ai repris une version qui n'as pas eu modification comme cele de mon 1er post et bizarre cela a fonctionner,
bon je vais faire des tests(pas ce matin) plus longuement et revenir en dire plus

Pascal

[grisan29]

bonjour Jurassic-Pork, kiki29 et le forum

je confirme que le code de kiki29 fonctionne bien mais je ne sais pas pourquoi il ne voulais pas avant peut etre suite a la petite mise a jour d' hier soir ?? nul ne le saura

Pascal