ouvrir un fichier pdf dans excel

[stephane]

Bonjour à tous,

je dois travailler avec un programme qui n'autorise qu'un excel ouvert et doit recuperer des données d'un pdf pour les saisir dans ma feuille excel.

Je cherche une idée pour visualiser le contenu de mon pdf dans excel ou pouvoir lancer acrobat d'excel.

Merci de votre aide.

Stephane

 

[Abel]

Bonjour stephane,

Pour lancer la daube depuis Excel :
Shell "C:\Program files\Adobe\Acrobat 6.0\Reader\AcroRd32.exe"
A adapter bien sûr. "AcroRd32.exe" peut être remplacer directement par le nom du fichier pdf à ouvrir.

Quant à visualiser un pdf depuis Excel, je passe la main.

Abel.

 

[stephane]

Merci beaucoup.

Et pour l'ouverture directe avec le nom du fichier comment faut il faire je n'y arrive pas.

ex fichier 123.pdf situé dans c:\mesfichiers

Merci encore

Stephane

 

[Abel]

Re,

Heu ... Je crois que je vais me refaire une 'tite entrée au Zop.

Pour l'ouverture directe de 123.pdf, je crois que je vais passer la main aussi pour le moment.

Abel.

 

[jmps]

Bonjour Stephane, bonjour Abel,

J'ai entendu Zop alors j'arrive... Lol !

Voici la commande pour lancer un fichier pdf directement :

Shell "C:\Program Files\Adobe\Acrobat 4.0\Reader\AcroRd32.exe c:\windows\bureau\Monfichier.pdf", vbNormalFocus

Ici avec la version 4 d'Acrobat à adapter pour d'autres versions.

Allez Abel, privé de zop cette fois, mais ne recommence plus hein ?

A+

José

 

[@+Thierry]

Bonjour José, Abel, Stephane, le Forum

Je rentre du restau et je vois que vous semblez bien vous prendre la tête... Pourquoi passer par un Shell... Alors que FollowHyperLink est si simple d'emploi, et, en prime, ne nécessite par de connaitre la version de l'Acrobate, reader ou encore Full Version...

Option Explicit

Const ThePath As String = "C:\Documents and Settings\ThierryXLD\My Documents\"

Sub OnOuvreNimporteQuoiAvecUnFollowHyperLink()
Dim ThePDF As String

ThePDF = "Test.pdf"

ThisWorkbook.FollowHyperlink ThePath & ThePDF

End Sub

Enfin moi c'est ce que j'utilise dans plein d'applications et je n'ai aucun souci..

Bon Après Midi
@+Thierry

 

[@+Thierry]

Ah et puis j'y pense aussi...

Une Démo UserForm pour Visualiser les PDF :

=> Démo Téléchargeable Lien supprimé

=> Fil de Discussion Lien supprimé

Mode d'emploi :
Dans la démo ci-jointe, je liste en initialisation du UserForm tous les fichiers PDF présents dans le même répertoire que mon programme, afin de pouvoir les sélectionner dans un ListBox et les afficher dans le Contrôle PDF.
J'ai mis trois PDF dans le Zip pour les Tests.

Bon Aprèm
@+Thierry

 

[jmps]

Re stephane, Abel, Salut @+Wifi... Pardon Thierry lol !

Bon cette fois on est bons pour le Zop Abel, mais tu ne seras pas seul Arf ! Je viens avec toi.


Sub OnSeRetrouveAuZop()

Dim TheZop as String
TheZop = "Top des Zop"
ThisPost.FollowHyperlink TheZop

End Sub

Et si ça continue j'en connais un qui va se retrouver Zo Zoo (Je parle de moi ouarf !)

Merci Thierry (Pas pour le Zop, pour le FollowHyperlink). Bien pratique ma foi.

A+

José

 

[stephane]

Merci à tous pour votre aide précieuse; encore un petit coup de pouce et j'ai terminé.

Un fois que j'ai obtenu mon pdf ouvert en fichier lié, je voudrais faire la manip suivante :

activer mon pdf faire "selectionner tout" "copier" puis coller en texte unicode dans mon onglet excel.

J'ai tenté de la faire en automatique dans excel mais il ne ùm'a enregistré que l'aspect "coller".

Merci de m'aider sur le coté ""selectionner tout" "copier" .

PS : Je l'ai testé manuellement ca marche au poil !

Stephane

 

[Abel]

Re tout le monde,

Bon ben voilà, comme d'hab. Thierry passe par là et on retourne à la niche !

Bouge pas, José. J'arrive au Zop Bar Team (tient, ça pourrait être une idée de nom de cyber café, ça. Arf !).
Ceci dit, j'avais pensé à une solution du genre de ce que tu as proposé. Mais la feignantise est passée par là.
Re-Arf !

Abel.

 

[jmps]

Re re (areu !),

Manu, rajoute ça au code de notre ami @+Thierry (Tu vois Thierry j'ai banni le Shell de mon vocabulaire VBA Lol !).

SendKeys "^a^c", True
Sheets("Feuil1").Paste Range("A1") ' <---- A adapter

A placer avant le End Sub bien sûr.

Lol Abel ! Garde moi une place au bar.

A+

José

 

[stephane]

J'ai trouvé. Après être passé a acrobat reader 7.0 ca macrche tout seul.

Sub pdfinsert()
'
' pdfinsert Macro
' Macro enregistrée le 16/02/2005 par Stephane
'

'
Sheets("Feuil2").Select
ActiveSheet.OLEObjects.Add(Filename:="K:\TRANS\12345677.PDF", Link:=False, _
DisplayAsIcon:=False).Select
Selection.Verb Verb:=xlPrimary
'Selection.Verb Verb:=xlPrimary
Sheets("Feuil3").Select
Range("A1").Select
ActiveSheet.PasteSpecial Format:="Texte Unicode", Link:=False, _
DisplayAsIcon:=False
Range("A1").Select
Sheets("Feuil2").Select
Selection.Delete
Sheets("Feuil3").Select
End Sub

Merci à tous pour votre aide précieuse.

 

[stephane]

ET zut

malheureusement espoir décu ca macrche pas et AR 7 ne m'ouvre plus que la premiere page de mon fichier.

Je remet AR 6 et je repars à zéro.

Bon courage à tous

 

[jmps]

Arf ! Je croyais être tranquille au Zop Bar Team, mais non....

Bon re re re re... Manu,

Sur AR4 (Désolé, j'ai que ça en stock), Il faut passer ton affichage en "continu" (au lieu de "Une seule page") dans le menu "Affichage". Ainsi quand tu fais le CTRL+A via le Sendkeys, il sélectionne tout le document et tu peux faire le copier et le coller derrière.
J'espère que c'est pareil dans AR6 ou 7.

Bon je retourne au bar... Hips....

A+

José

 

[jmps]

Oups, j'en ai oublié le raccourci clavier car il n'y en a pas en fait. Je veux dire par CTRL+Touche. En fait il faut passer par les raccourcis des menus (ALT+a et c ensuite). Je te remet le bout de code corrigé.

SendKeys "%ac^a^c", True
Sheets("Feuil1").Paste Range("A1") ' <---- A adapter

Attention j'ai pas testé cette fois, mais ça devrait marcher. Autrement ça me fera un double ZOP. ;°))

A+

José