Macro pour insérer une image dans Word à partir d'Excel

Bonjour

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 apparaître une image (différente en fonction de la ligne) mais je ne sais pas bien comment faire pour d’insérer la photo qui est dans cadre image de l'userforme

dans word publipostage

deux fichier joint

merci d'avance

52sidali.xlsm (160.93 Ko)
30contrat.docx (48.88 Ko)

Bonjour,

premièrement insérer un Signet sur le document (.doc), enregister et fermer le document.

Set Img = docWord.Bookmarks("LeSignet").Range.InlineShapes.AddPicture("C:\MonRepertoire\MonImage.jpg", False, True)

bonjour i20100

dans quelle bouton mettre le code

merci

Private Sub CommandButton2_Click()

lrw = Sheets(2).Cells(Rows.Count, 2).End(xlUp).Row

If TextBox2 = "" Or TextBox4 = "" Or TextBox7 = "" Or TextBox8 = "" Or TextBox9 = "" Or TextBox10 = "" Or TextBox11 = "" Or TextBox12 = "" < 0 Then

MsgBox "Saisie incomplète !Merci de remplir les Champs vides"

Exit Sub

End If

For j = 1 To 38

Sheets(2).Cells(lrw + 1, j) = Controls("TextBox" & j).Text

Next j

For i = 1 To 38

Controls("TextBox" & i).Text = ""

Next i

ListBox1.AddItem

ListBox1.List(ListBox1.ListCount - 1, 0) = Sheets(2).Cells(lrw + 1, 2).Value

ListBox1.List(ListBox1.ListCount - 1, 1) = lrw + 1

TextBox1.Value = Application.WorksheetFunction.Max(Sheets(2).Range("A2:A5000")) + 1

TextBox2.SetFocus

ActiveWorkbook.Save

SavePicture UserForm1.Image2.Picture, "f:\Activation\photos\" & Me.TextBox1 & ".jpg"

Image2.Picture = LoadPicture("")

Macro1

Set Img = docWord.Bookmarks("OLE_LINK1").Range.InlineShapes.AddPicture("f:\Activation\photos\" & Me.TextBox1 & ".jpg", False, True)

End Sub

Bonjour,

si la question est résolu

pour clôture le fil, fait un clic sur le bouton indiquer par la flèche verte

resolu

Merci!

J'ai pas compris ou je met le code

re,

c'est pas toi qui a écrit la macro dans le message précédent ( 24 janv. 2019, 14:13) ?

Non ci pas moi

Moi mon probleme est d'inserer une photo depuis userform a un document word publipstage comme j'ai cite le 23/01

Non ci pas moi

ça veut dire quoi ? tu n'es pas l'auteur du code ?

Voici mon code du button ajouter un element

Private Sub CommandButton2_Click()

lrw = Sheets(2).Cells(Rows.Count, 2).End(xlUp).Row

If TextBox2 = "" Or TextBox4 = "" Or TextBox7 = "" Or TextBox8 = "" Or TextBox9 = "" Or TextBox10 = "" Or TextBox11 = "" Or TextBox12 = "" < 0 Then

MsgBox "Saisie incomplète !Merci de remplir les Champs vides"

Exit Sub

End If

For j = 1 To 38

Sheets(2).Cells(lrw + 1, j) = Controls("TextBox" & j).Text

Next j

For i = 1 To 38

Controls("TextBox" & i).Text = ""

Next i

ListBox1.AddItem

ListBox1.List(ListBox1.ListCount - 1, 0) = Sheets(2).Cells(lrw + 1, 2).Value

ListBox1.List(ListBox1.ListCount - 1, 1) = lrw + 1

TextBox1.Value = Application.WorksheetFunction.Max(Sheets(2).Range("A2:A5000")) + 1

TextBox2.SetFocus

ActiveWorkbook.Save

SavePicture UserForm1.Image2.Picture, "f:\Activation\photos\" & Me.TextBox1 & ".jpg"

Image2.Picture = LoadPicture("")

Macro1

il y a déjà une macro qui fait ce boulot,

et je vois que ce code a été écrit par mon ami Denis Michon, alias ("MichD")

Private Sub CommandButton6_Click()

Dim Wd As Word.Application, Dc As Word.Document
Dim Chemin As String, Fichier As String
Dim FichierImage As String, Rg As Word.Range
Dim Img As Word.InlineShape

'*************************************************
'où est le document Word
Chemin = "G:\Activation"
'Le nom du fichier Word à ouvrir
Fichier = "G:\Activation\BADGE.docx"
'Chemin et nom du fichier Image à insérer
FichierImage = "G:\Activation\photos\AA.jpg"
'*************************************************

Application.ScreenUpdating = False

Set Wd = CreateObject("Word.Application")
Wd.Visible = True
Set Dc = Wd.Documents.Open(Chemin & Fichier)

With Dc
'Teste si le signet existe
If .Bookmarks.Exists("MichD") Then
Set Rg = .Bookmarks("MichD").Range
'supprimer les images si déjà présentes
'dans le signet
With Rg
While .InlineShapes.Count > 0
.InlineShapes(1).Delete
Wend
Set Image2 = .InlineShapes.AddPicture(FichierImage, False, True)

End With

.Bookmarks.Add "MichD", Rg

'fermer le document Word avec sauvegarde
Dc.Close True
'Fermer l'instance Word
Wd.Quit
End If
'Libérer la mémoire des objets
Set Rg = Nothing: Set Image2 = Nothing
Set Dc = Nothing: Set Wd = Nothing
Application.ScreenUpdating = True
End With
End Sub

bonjour

le code de MichD ne fonctionne pas chez moi !!!!!???

je vous adapter ce code mais .......

vous pouvez m'aidez svp

merci

Salut

La macro est ajoute dans le bouton «CommandButton2 « elle se lance apres ajout des infos sur la feuille 2

Le doc "contrat.docx " :

J ai ajouté des champs de fusion, comme ca toute les informations contenus dans les textbox seront transférées aux champs sur doc "contrat.docx "

Vous devez répertorier la place de doc «contrat.docx dans la macro

'-----------##############-----------
   ' n oublier pas de modier les addresses des fichier/images
    '-----------##############-----------
    chmn_de_image = "G:\Activation\photos\" & Me.TextBox1 & ".jpg"
    chmn_de_doc = "G:\contrat.docx"
    '-----------##############-----------
    '-----------##############-----------

'Nécessite d'activer la référence "Microsoft Word xx.x Object Library" Pour l activer voir ça :

24desktop.7z (231.58 Ko)

ton fichier modifié:

30sidali.xlsm (127.23 Ko)
30contrat.docx (45.70 Ko)

Bonjour amir

j'ai essayer avec ton code mais il bogue

je vous envoi mes fichiers

merci

21sidali.xlsm (295.71 Ko)
12contrat.docx (119.73 Ko)
12badge.docx (138.46 Ko)

erreur d'exécution 5152

nom du fichier non valide

essayer des opérations suivantes:

  • vérifier votre saisie
  • sélectionnez un fichier dans la liste des dossiers et fichiers .
.InlineShapes.AddPicture Filename:=chmn, LinkToFile:=False, _
      SaveWithDocument:=True

Salut SIDALIADEM

je veux savoir :

le dossier dans lequel tu garde les images et comment tu nome les images

Bjr Amir

Je garde mes photo dans le dossier c:\Activation\photos\

Et je les nomme suivant la numerotation d'incrimentation

Merci

Rechercher des sujets similaires à "macro inserer image word partir"