insertion objet PDF

chris

XLDnaute Barbatruc

• 3 Mars 2014

• #2

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

 

Vote positif 0 Vote négatif

B

boule de neige

Guest

• 3 Mars 2014

• #3

Re : insertion objet PDF

Bonjour Chris,

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

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 3 Mars 2014

• #4

Re : insertion objet PDF

Bonjour

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

Code:

    Selection.Name = "monpdf"

 

Vote positif 0 Vote négatif

B

boule de neige

Guest

• 3 Mars 2014

• #5

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

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 3 Mars 2014

• #6

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+

 

Vote positif 0 Vote négatif

B

boule de neige

Guest

• 3 Mars 2014

• #7

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

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 3 Mars 2014

• #8

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...

 

Vote positif 0 Vote négatif

B

boule de neige

Guest

• 3 Mars 2014

• #9

Re : insertion objet PDF

Mon fichier PDF est bien existant

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 3 Mars 2014

• #10

Re : insertion objet PDF

RE

Sous 2010 le code est

Code:

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

 

Vote positif 0 Vote négatif

B

boule de neige

Guest

• 3 Mars 2014

• #11

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

 

Vote positif 0 Vote négatif