Macro pour joindre un PDF dans un fichier excel
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:
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 |
