IMPRIMER pdf par le biais d'hypertexte

[IsabelleC]

bonjour à tous,


j'ai sur une colonne d' un classeur Excel des liens hypertexte vers des PDF
j'aimerais pouvoir les imprimer en boucle.


merci pour votre aide

isabelle

 

[Compte Supprimé 979]

Re : IMPRIMER pdf par le biais d'hypertexte

Salut IsabelleC

Tu trouveras ci-joint le code qui je l'espère te conviendra

Sub ImpLienFichierPDF()
  Dim HLink, strFileName As String
  ' Définition des variables objets pour ACROBAT
  ' ATTENTION
  ' COCHER la LIBRAIRIE "Acrobat" dans les références VBA
  '
  Dim AcroExchApp As Acrobat.CAcroApp
  Dim AcroExchAVDoc As Acrobat.CAcroAVDoc
  Dim AcroExchPDDoc As Acrobat.CAcroPDDoc
  Dim num As Integer
  '
  Set AcroExchApp = CreateObject("AcroExch.App")
  Set AcroExchAVDoc = CreateObject("AcroExch.AVDoc")
  ' Activer cette ligne pour voir le fichier acrobat
  AcroExchApp.Show
  '
  ' Pour chaque lien hypertext
  For Each HLink In Worksheets(1).Hyperlinks
    ' Définir le nom du fichier à ouvrir
    strFileName = HLink.Name
    ' Ouvrir le fichier
    AcroExchAVDoc.Open strFileName, ""
    ' Récupérer le PDDoc associé avec le AVDoc ouvert
    Set AcroExchPDDoc = AcroExchAVDoc.GetPDDoc
    ' Récupérer le nombre de pages à imprimer
    num = AcroExchPDDoc.GetNumPages - 1
    ' Lancer l'impression
    Call AcroExchAVDoc.PrintPages(0, num, 2, 0, 0)
  Next
  ' A la fin de la procédure, refermer
  ' vider les variables objet
  AcroExchApp.Exit
  Set AcroExchApp = Nothing
  AcroExchAVDoc.Close (True)
  Set AcroExchAVDoc = Nothing
  AcroExchPDDoc.Close
End Sub

A+

 

[IsabelleC]

Re : IMPRIMER pdf par le biais d'hypertexte

bonsoir bruno,

merci pour ton super code
mais pour le moment j'ai un pb au démarrage :

"Erreur de compilation :
Type défini par l'utilisateur non défini "


je n'arive pas à trouve la bibliotheque d'objets Microsoft DAO 3.0 (j' ai office 2007)
une idée pour accéder à cela?

bonne soirée
isabelle

 

[Compte Supprimé 979]

Re : IMPRIMER pdf par le biais d'hypertexte

Re,

bibliotheque d'objets Microsoft DAO 3.0

Pourquoi me parles-tu de cette librairie !?

Question subsidiaire : As-tu acrobat sur ton poste ?
Et qu'elle version ?

A+

 

[IsabelleC]

Re : IMPRIMER pdf par le biais d'hypertexte

j'ai regardé à quoi pouvait correspondre cette erreur et c'est ce que j'ai trouvé

j'ai Acrobat 7.0

 

[Compte Supprimé 979]

Re : IMPRIMER pdf par le biais d'hypertexte

Re,

Si tu as dans tes références VBA : Microsoft DAO 3.0 [MANQUANTE]
Décoche là dans un premier temps et exécute de nouveau le code

A+

 

[JCGL]

Re : IMPRIMER pdf par le biais d'hypertexte

Bonjour à tous,

N'apporte rien au fil

Bruno : Te voila reparti pour un fil (une pelote...) Sophie...

Avec plein d'humour pour Sophie et Isabelle mais vous avez raison l'ami Bruno est très fort avec les filles et est très pugnace... avec les filles.

Au plaisir de vous lire toutes les deux et aussi, un peu, Bruno arf arf
A+ à tous

 

[IsabelleC]

Re : IMPRIMER pdf par le biais d'hypertexte

je ne la trouve pas dans les references

 

[Compte Supprimé 979]

Re : IMPRIMER pdf par le biais d'hypertexte

mais pour le moment j'ai un pb au démarrage :
"Erreur de compilation :
Type défini par l'utilisateur non défini "

Isabelle,
Si tu lance un déboggage lors de cette erreur, qu'elle ligne exactement est surlignée ?

A+

 

[IsabelleC]

Re : IMPRIMER pdf par le biais d'hypertexte

Dim AcroExchApp As Acrobat.CAcroApp

 

[Compte Supprimé 979]

Re : IMPRIMER pdf par le biais d'hypertexte

Bonjour à tous,
Bruno : Te voila reparti pour un fil (une pelote...) Sophie...

Avec plein d'humour pour Sophie et Isabelle mais vous avez raison l'ami Bruno est très fort avec les filles et est très pugnace...

Au plaisir de vous lire toutes les deux et aussi, un peu, Bruno arf arf
A+ à tous

Salut JCGL,

Il m'arrive parfois d'être pugnace comme tu le dis
Mais pas seulement avec les filles, je ne suis absolument pas misogyne, ni macho
Mais j'avoue que je perds vite patience avec des débutants sur excel qui veulent se lancer dans des trucs complètement dingues ...
Il faut savoir commencer tout petit pour devenir grand ...

Bien le bonsoir mon cher JCGL

 

[Compte Supprimé 979]

Re : IMPRIMER pdf par le biais d'hypertexte

Dim AcroExchApp As Acrobat.CAcroApp

Autant pour moi Isabelle

J'ai effectivement coché la bibliothèque "Acrobat" dans les références

Essaye de ton côté voir

 

[Staple1600]

Re : IMPRIMER pdf par le biais d'hypertexte

Bonsoir à tous


BrunoM45:

ton code fonctionne avec Acrobat

pas avec Acrobat Reader ?


Ce ne serait pas cela la source du problème ?

 

[Compte Supprimé 979]

Re : IMPRIMER pdf par le biais d'hypertexte

Salut Staple1600,

Non, je ne pense pas, en cochant la bibliothèque
C:\Program Files\Adobe\Reader 8.0\Reader\AcroRd32.dll

Cela fonctionne chez moi !

Mais il est vrai que j'ai les 2 versions d'installées !?

A+

 

[IsabelleC]

Re : IMPRIMER pdf par le biais d'hypertexte

pour les variables c'est ok

merci

et bonne soirée ou bonne nuit

isabelle