Intégration d'un document PDF

[pibov]

Bonjour le Forum,

Je vous écris ce message car malgré d’intenses recherches sur le net et en testant avec l’enregistreur de macros, je n’ai pas encore trouvé la solution à mon problème

Dans un fichier Excel destiné à établir des bons de commande sur base d’un devis, hormis une feuille de calcul d’élaboration du bon (Onglet « Bon de commande ») qui ne pose pas de problème, j’aimerai intégrer au moyen d’une macro, dans un second onglet (onglet «Annexe PDF »), le document PDF contenant le devis (celui-ci peut éventuellement comprendre plusieurs pages) aux fins de consultation, après l’avoir sélectionné parmi l’arborescence du PC.

En vue du traitement ultérieur du bon de commande, les deux onglets devront pouvoir être imprimés dans leur entièreté et c’est là que le bât blesse … Tous les tests effectués me ramènent toujours au même problème : seule la 1ère page du PDF apparaît à l’écran et à l’impression. En cliquant dessus, l’affichage à l’écran de l’ensemble du document s’effectue correctement mais pour l’impression, je n’obtiens jamais que la 1ère page.

Private Sub CommandButton2_Click()
    ' Sélection de la feuille et de la case de départ
    Sheets("Annexe PDF").Select
    Range("A1").Select
    ' Effacement de la grille
    ActiveWindow.DisplayGridlines = False
    ' Intégration du fichier PDF
    ActiveSheet.OLEObjects.Add(ClassType:="AcroExch.pdfxml.1", Link:=False, DisplayAsIcon:=False).Activate
End Sub

Cette application devrait pouvoir tourner sous XL2003 ou 2007 mais l'ordinateur que j'utilise pour la créer tourne en 2007. Je chipote en VBA mais je suis loin d'être un spécialiste


Merci d’avance aux cerveaux bien faits (pas comme le mien) qui voudront bien se pencher sur ma question.

 

[kiki29]

Re : Intégration d'un document PDF

Salut,voir Excel vers PDF avec Acrobat Distiller - Forum des professionnels en informatique

 

[pibov]

Re : Intégration d'un document PDF

Bonjour Kiki29 et merci pour votre réponse.

Hélas, elle ne correspond pas à mon problème. D'après ce que j'ai lu de votre post (en vitesse, je l'avoue, je lirai cela plus attentivement tout à l'heure), vous proposez de créer des fichiers PDF au départ d'un tableau Excel or ma requête concerne, exactement, l'inverse, je cherche à intégrer un PDF dans un tableau. Pour créer le PDF, je n'ai pas de problème (Office 2007 SP2) et, au cas où, CutPDF Writer est également installé sur mon PC.

Encore merci à vous et bonne journée

 

[job75]

Re : Intégration d'un document PDF

Bonjour pibov, kiki29,

Copier un fichier PDF dans une feuille Excel ne donnera jamais quelque chose de bien satifaisant.

Le fichier PDF n'est pas fait pour ça.

Par contre on peut tout simplement l'ouvrir à partir d'Excel par une macro comme :

Sub OuvrePDF()
SendKeys "o" 'ou "y" sur version anglaise, ferme le message d'alerte
With ThisWorkbook
  .FollowHyperlink .Path & "\NomFichier.pdf" 'nom à adapter
End With
End Sub

Cette macro peut être lancée par un bouton, par l'activation d'une feuille...

A+

 

[DoubleZero]

Re : Intégration d'un document PDF

Bonjour à toutes et à tous,

Sur ce fil, https://www.excel-downloads.com/threads/macro-poour-inserer-un-fichier.152340/

bhbh nous a offert la macro suivante :

Sub Inserer_Objet_Fichier()
Dim OLEobj As OLEObject
Dim Gauche As Double, HautTop As Double, Largeur As Double, Hauteur As Double
Dim FileToOpen As String
ChDir "C:\Users\bibi\Documents\jphi" 'Répertoire à adapter
FileToOpen = Application.GetOpenFilename("Fichiers Pdf(*.pdf), *.pdf")
If FileToOpen <> "Faux" Then
    Gauche = ActiveCell.Left: HautTop = ActiveCell.Top
    Largeur = ActiveCell.Width * 2: Hauteur = ActiveCell.Height * 4
    Set OLEobj = ActiveSheet.OLEObjects.Add(Filename:=FileToOpen, _
        Link:=False, DisplayAsIcon:=True, IconFileName:= _
        "C:\Program Files\Adobe\Reader 8.0\Reader\AcroRd32.exe", IconIndex:=0, IconLabel:=Dir(FileToOpen))
    With OLEobj
        .Left = Gauche: .Top = HautTop
        .Width = Largeur: .Height = Hauteur
    End With
End If
End Sub

Celle-ci permet d'insérer le PDF, sous forme d'objet.

En espérant qu'elle correspondra au besoin (?).

Bonne soirée.

 

[pibov]

Re : Intégration d'un document PDF

Bonjour le forum,
Bonjour job75 et DoubleZero,

Merci pour votre réponse, je vais tester cela.

La phrase de job75 :

Copier un fichier PDF dans une feuille Excel ne donnera jamais quelque chose de bien satifaisant.

Le fichier PDF n'est pas fait pour ça.

confirme ce que j'avais pressenti lors de mes nombreuses recherches, hélas

Enfin, de par nature optimiste et persévérant, je continue à chercher et suis toujours à l'écoute de nouvelles propositions.

Merci d'avance et bonne journée