insertion objet PDF

[boule de neige]

Bonjour le Forum,

Voici ma demande.

Je cherche à intégré un PDF dans un fichier excel en VBA

Je cherche une solution pour utiliser
insertion, objet et adobe acrobat ducument.

A la création il donne un numéro à l'objet
Comment donné toujours le même numéro.

En espérant être sufisament limpide.

Merci

 

[chris]

Re : insertion objet PDF

Bonjour

Plutôt que le numéro qu'on ne maîtrise pas, je te conseille de renommer l'objet créé, quel que soit le numéro donné par Excel, sous le nom que tu souhaites permanent

 

[boule de neige]

Re : insertion objet PDF

Bonjour Chris,

Ok oui je préfére, mais comment faire.

 

[chris]

Re : insertion objet PDF

Bonjour

Quand tu insères l'objet il est automatiquement sélectionné donc juste après la ligne d'insertion :

    Selection.Name = "monpdf"

 

[boule de neige]

Re : insertion objet PDF

Re,

Voila mon code

ActiveSheet.OLEObjects.Add(ClassType:="AcroExch.Document.7", Link:=False, _
DisplayAsIcon:=False).Activate
Selection.Name = "monpdf"

Je pense que c'est pas bon pour moi

 

[Compte Supprimé 979]

Re : insertion objet PDF

Bonjour le fil

Juste une petite question comme ça au passage, pourquoi vouloir intégrer un PDF dans un fichier Excel ?

A+

 

[boule de neige]

Re : insertion objet PDF

Bonjour BrunoM45

C'est un fichier de présentation, C'est pour avoir un seule fichier et pas avoir une piéce jointe PDF

 

[chris]

Re : insertion objet PDF

Bonjour
Coucou Bruno

Bonne question.

Quoi qu'il en soit mon code est un peu différent car j'insère un fichier pdf existant ce qui ne semble pas être ton cas mais je n'ai pas 2003 sous la main pour vérifier...

 

[boule de neige]

Re : insertion objet PDF

Mon fichier PDF est bien existant

 

[chris]

Re : insertion objet PDF

RE

Sous 2010 le code est

    ActiveSheet.OLEObjects.Add(Filename:= _
        "E:\_Documents\machin.pdf", Link:=False, DisplayAsIcon _
        :=False).Select
   Selection.Name = "monpdf"

 

[boule de neige]

Re : insertion objet PDF

Re,

Bon avec ton code et mon code, et par deduction.

ActiveSheet.OLEObjects.Add(ClassType:="AcroExch.Document.7", Link:=False, _
DisplayAsIcon:=False).Select
Selection.Name = "monpdf"

Il fallait remplacer .activate
par.select

merci