Discussion :

[EvaristeGaloisBis]

Bonjour à tous,
Je me permets de vous soliciter car j'ai un petit soucis dont je ne vois aucunement la solution.
J'ai fait un morceaude code pour inserer automatiquement un fichier pdf en utilisant un objet oleobject.
Seulement ce document faisant deux pages je n'arrive pas a afficher plusieurs pages. il me met invariablement la page 1...
Comment pourrai je faire? (autrement qu'en découpant le fichier pdf original en pdf page par page)
voici le code que j'utilise (il est volontairement mince)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Sub tt()
Dim truc As OLEObject
Dim stchemin As String
Dim stfichier As String
 
    stchemin = "C:\"
    stfichier = "mon.pdf"
    Set truc = OLEObjects.Add(, stchemin & stfichier, , , , , False)
 
End Sub

[casefayere]

Bonjour,

1 - tu veux inserer ou ouvrir un pdf ?

2 - si c'est pour ouvrir, j'ai peut-etre ne solution mais je n'oublie pas de dire(cette fois ) qu'elle n'est valable que pour excel 2007