Macro pour joindre un PDF dans un fichier excel

**semarokaben** · 07/12/2017, 11h19

Bonjour,

j'ai cette macro pour joindre un fichier PDF à une fcihier excel.
Elle fonctionne parfaitement à l'exception du fait qu'elle ne me prend que la première page du PDF et pas les suivantes
Un expert aurait il la solution pour me sauver?
d'avance merci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub addem()
 
ActiveSheet.Protect userinterfaceonly:=True
Dim vFile As Variant, Sh As Object
 
vFile = Application.GetOpenFilename("All Files,*.*", Title:="Find file to insert")
If LCase(vFile) = "false" Then Exit Sub
ActiveSheet.OLEObjects.Add Filename:=vFile, Top:=700, Left:=10, Link:=False, DisplayAsIcon:=False, IconFileName:= _
"C:\WINDOWS\Installer\{90110409-6000-11D3-8CFE-0150048383C9}\xlicons.exe", _
IconIndex:=0, IconLabel:=vFile
 
 
End Sub

**kiki29** · 12/12/2017, 12h19

Salut, à consulter

**semarokaben** · 27/03/2018, 09h34

Envoyé par kiki29

Salut, à consulter

Bonjour,

merci pour le lien...mais hélas il ne m'aide pas.

Convertir le fichier XLS en PDF ne pose pas probleme.
Y joindre un autre PDF externe non plus.

Mon probleme est que je ne reçois que la première page de mon PDF lorsque celui-ci est multi page.

d'avance merci pour votre aide

**Menhir** · 27/03/2018, 10h07

Envoyé par semarokaben

Elle fonctionne parfaitement à l'exception du fait qu'elle ne me prend que la première page du PDF et pas les suivantes

En fait, les suivantes y sont aussi mais il affiche l'objet en quelque sorte comme une icone et ne montre donc que la première page.
Si on clique sur l'objet, on accède au fichier complet.

Si tu veux vois l'intégralité de ton PDF dans Excel, il faudra soit convertir ses données pour les intégrer à Excel et t'affranchir du PDF, soit décomposer ton PDF en autant de fichiers à page unique.

**semarokaben** · 27/03/2018, 11h32

Merci beaucoup

mais hélas, je viens de tester et quand je clique sur l'image jointe dans le fichier xls, rien ne se passe...

de plus, il s'agit ici d'un document xls, cense être rempli par un utilisateur lambda, lequel y joint ses justificatifs sous format PDF. Ensuite, le tout est transformé en PDF et envoyer dans une boite mail générique afin d'y subir tout un traitement automatisé (donc, je dois éviter toute action manuelle compémentaire

)