Bonjour,
Je dois faire une macro dans Word pour inserer un document PDF. J'ai créer un bouton et inserer un élément PDF. J'arrive à aller chercher le document Word sur mon disque dur mais j'arrive pas à donner le path du document PDF à mon controle PDF.
Voici mon code actuel qui marche pour une image :
Code :
Dim vrtSelectedItem As Variant
Dim cheminImage As String
Set dlgOpen = Application.FileDialog(msoFileDialogOpen)
dlgOpen.AllowMultiSelect = False
dlgOpen.Title = "Insertion image"
dlgOpen.Filters.Add "Images", "*.gif; *.jpg; *.jpeg; *.pdf", 1
dlgOpen.FilterIndex = 1
dlgOpen.InitialFileName = "C:\"
dlgOpen.Show
For Each vrtSelectedItem In dlgOpen.SelectedItems
cheminImage = vrtSelectedItem
Next
ThisDocument.ImageCroquis.Picture = LoadPicture(cheminImage)
ThisDocument.Application.ScreenUpdating = True
ThisDocument.Application.ScreenRefresh
Je voudrais faire la même avec un PDF, j'ai accès à un élément PDF de cette manière :
Code :
ThisDocument.AcroPDF1
J'ai bien un LoadFile mais j'ai essayé les manières communes de le faire marcher et ce sans la moindre réussite. Si vous avez une sugestion, se sera apprécié.