Insérer un pdf à l'aide d'une macro
#1
Aspirant XLPages

Inscription: 13/04/2010

Messages: 29

Système d'exploitation:
PC
Version Excel utilisée:
excel 2007
Posté le : 15-04-2010 11h32
 Bonjour,
J'aimerai savoir s'il était possible d'insérer un fichier PDF dans une nouvelle feuille en utilisant une macro ?
Par exemple :
Je clic sur un bouton "Insérer PDF", cela m'ouvre un pop-up qui me permet de parcourir dans mes différents fichier et une fois le fichier pdf trouvé, il me l'insère dans une nouvelle feuille.
En clair, je veux faire la même chose qu'avec "insérer objet" mais que cela sous mis dans un nouvelle feuille de mon classeur.
J'espère avoir été clair... Merci d'avance =)
Hors Ligne
Rapport   Haut 

Re: Insérer un pdf à l'aide d'une macro
#2
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1483

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016
Posté le : 15-04-2010 14h51
Bonjour vodkaddict ,

Ci-dessous, peut-être une réponse à ta question, si j'ai bien compris...

DANS UN MODULE DE CODE STANDARD (ex : Module1)
Sub InsererPDF()
'myDearFriend!  -  www.mdf-xlpages.com
Dim Obj As OLEObject
Dim Chemin As Variant
Dim T As String
    'Choix du fichier PDF
    Chemin = Application.GetOpenFilename("Fichiers PDF(*.pdf),*.pdf", Title:="Choisir le fichier .PDF à insérer")
    If Chemin = False Then Exit Sub
    Application.ScreenUpdating = False
    'Création nouvelle feuille
    With Worksheets.Add(After:=Worksheets(Worksheets.Count))
        On Error Resume Next
        .Name = Left(Mid(Chemin, InStrRev(Chemin, "") + 1), 31)
        'Insertion de l'objet PDF
        Set Obj = .OLEObjects.Add(Filename:=Chemin, Link:=True, DisplayAsIcon:=False)
    End With
    Obj.Left = 1
    Obj.Top = 1
    Application.ScreenUpdating = True
End Sub

Cordialement,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Insérer un pdf à l'aide d'une macro
#3
Aspirant XLPages

Inscription: 13/04/2010

Messages: 29

Système d'exploitation:
PC
Version Excel utilisée:
excel 2007
Posté le : 15-04-2010 15h24
J'avais pensé à le faire avec un enregistrement de macro mais j'avoue que cette commande est bien aussi ^^ 

Par contre, je me pose une questions :
comment faire pour afficher toutes les pages d'un PDF et pas uniquement la 1ère pages ?

Merci d'avance, tu m'es d'une très grande aide!

Hors Ligne
Rapport   Haut 

Re: Insérer un pdf à l'aide d'une macro
#4
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 461

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 15-04-2010 15h43
Bonjour vodkaddict,

Une fois le document pdf chargé dans la feuille avec la procédure fournie par Didier, un clic-droit sur le document affiche le menu

  Objet Acrobat Document > Ouvrir

qui ouvre le document dans Acrobat Reader.

Je crois que si tu veux parcourir le document sans ouvrir Acrobat Reader il te faudra utiliser AcroPDF.dll dans un formulaire et non pas dans une feuille de calcul.

J'ai monté, il y a longtemps, une application VB6 qui utilisait ce composant qui permet de parcourir tout le document chargé.
Le code est facilement adaptable à VBA.

Petite note cependant : le classeur Excel qui affichera le pdf dans un formulaire ne pourra pas rouler sur un poste où n'est pas présent le fichier AcroPDF.dll

Plus d'infos si tu le désires.

Cordialement,

Guy


Hors Ligne
Rapport   Haut 

Re: Insérer un pdf à l'aide d'une macro
#5
Aspirant XLPages

Inscription: 13/04/2010

Messages: 29

Système d'exploitation:
PC
Version Excel utilisée:
excel 2007
Posté le : 15-04-2010 15h47
 C'est donc impossible d'afficher toutes les pages d'une pdf sur une feuille excel?

C'est mon objectif en fait, si je dois cliquer sur l'objet et ouvrir le fichier PDF, cela revient à ce que je fais actuellement :x.

C'est pour cela que je cherche à ouvrir toutes les pages du PDF sur une même feuille excel ^^".


Hors Ligne
Rapport   Haut 

Re: Insérer un pdf à l'aide d'une macro
#6
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1483

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016
Posté le : 15-04-2010 15h50
Re,

Citation :
vodkaddict a écrit :
J'avais pensé à le faire avec un enregistrement de macro mais j'avoue que cette commande est bien aussi ^^
Pour faire ce code, je suis bien évidemment parti de là moi aussi

Citation :
vodkaddict a écrit :
Par contre, je me pose une questions :
comment faire pour afficher toutes les pages d'un PDF et pas uniquement la 1ère pages ?
Sais-tu le faire manuellement dans Excel ? Moi non.

Cordialement,


Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Insérer un pdf à l'aide d'une macro
#7
Aspirant XLPages

Inscription: 13/04/2010

Messages: 29

Système d'exploitation:
PC
Version Excel utilisée:
excel 2007
Posté le : 15-04-2010 15h57
Je me disais qu'il fallait peut être configurer un truc dans excel...

Dommage que cela ne soit pas possible, merci quand même à tous les deux! :) 
Hors Ligne
Rapport   Haut 

Re: Insérer un pdf à l'aide d'une macro
#8
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 461

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 15-04-2010 15h59
Re-bonjour vodkaddict,

Je ne crois pas que
Citation :
... ouvrir toutes les pages du PDF sur une même feuille excel

soit possible.

Par contre, comme je te le disais tout à l'heure la chose est possible dans un formulaire.

Est-ce que:
  1. tu voudrais en savoir plus sur la chose?
  2. ou cherches-tu à t'en tenir à un objet OLE comme dans l'exemple gracieusement fourni par Didier?

Si la réponse est 2 : je ne crois pas la chose possible tout simplement.


Cordialement,

Guy


Hors Ligne
Rapport   Haut 

Re: Insérer un pdf à l'aide d'une macro
#9
Aspirant XLPages

Inscription: 13/04/2010

Messages: 29

Système d'exploitation:
PC
Version Excel utilisée:
excel 2007
Posté le : 15-04-2010 16h19
humm pourrais tu développer ce que tu me proposes ?

En fait, ce que je veux c'est pouvoir imprimer toutes les pages dont j'ai besoin (doc,...) en même temps, comme par exemple sélectionner les feuilles et imprimer ma sélection, d'où ma nécessité a mettre toutes les pages des pdf sur une même feuille ^^

Au passage, c'est possible de faire une macro qui imprime des feuilles prédéfinies ?
Hors Ligne
Rapport   Haut 

Re: Insérer un pdf à l'aide d'une macro
#10
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 461

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 15-04-2010 16h32
Re-re-Bonjour vodkaddict,

Citation :
d'où ma nécessité a mettre toutes les pages des pdf sur une même feuille ^^

À l'impossible Excel n'est pas tenu.

Il y a l'impression des feuilles de calcul gérée par Excel et l'impression des pages du document pdf gérée par Acrobat.

Le boulanger ne vend pas de souliers, c'est l'affaire du cordonnier.

Peut-être que
Citation :
Au passage, c'est possible de faire une macro qui imprime des feuilles prédéfinies ?

devrait faire l'objet d'un autre fil.

Je développerai au sujet du formulaire qui affiche des fichiers pdf plus tard en fin d'après-midi (heure de Montréal, va sans dire).

Cordialement,

Guy

Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes