Macro pour insérer une image dans Word à partir d'Excel
L
Bonjour,
J'étais venue chercher des conseils il y a quelques mois, et j'avais été super bien aidée, donc je retente ma chance
Je dois faire une macro publipostage à partir d'Excel pour créer des docs Words (chaque ligne d'Excel = 1 doc Word)
Sur chaque doc Word, je dois faire apparaitre une image (différente en fonction de la ligne) mais je ne sais pas bien comment faire pour que cela se fasse automatiquement dans ma macro.
J'ai tenté en mettant un lien hypertexte mais cela n'a pas fonctionné...
Je vous mets les fichiers en questions en PJ si ça peut aider...
Et la macro que j'ai pour le moment:
Sub Photos()
'
' Photos Macro
'
'
'Variables:
Dim i As Integer
' nombre de fiches à générer
Dim nbredoc As Integer
' répertoire ou seront générées les fiches
Dim dirdoc As String
' variable de travail : nom de la fiche générée
Dim Filename As String
' repertoire ou les documents generes sont sauvegardes
Dim sauvegarde As String
' definition du nom du document cree
Filename = codeEtude & "Photos.doc"
codeEtude = ActiveDocument.MailMerge.DataSource.DataFields(1).Value
' Nombre de documents a generer
With ActiveDocument.MailMerge
With .DataSource
nbredoc = .RecordCount
End With
End With
' nbredoc = 10
For i = 1 To nbredoc
'creation du document
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.MailAsAttachment = False
.MailAddressFieldName = ""
.MailSubject = ""
.SuppressBlankLines = True
With .DataSource
.FirstRecord = i
.LastRecord = i
End With
.DataSource.ActiveRecord = i
.Execute Pause:=True
codeEtude = .DataSource.DataFields(1).Value
'codeEtude = ActiveDocument.MailMerge.DataSource.DataFields(1).Value
End With
'Enregistrement du document publiposté
With ActiveDocument
.SaveAs "C:\Users\Desktop\test\" & codeEtude & "_Photo.doc"
.Close
End With
codeEtude = ActiveDocument.MailMerge.DataSource.DataFields(1).Value
Next i
End Sub
Merci d'avance pour votre aide!
Lilas
L
En fait j'ai fini par trouver en poussant mes recherches.
Merci quand même.
Lilas