Bonjour à toutes et tous,
Voici mon problème à partir d’Excel
1- Vérifier que l’application Word est ouverte, si elle est ouverte je copie une photo de la manière suivante :
Dim AdrIm As String, WordApp As Object
AdrIm = Sheets("ENTREE").Range("G1").Value & "\" & ListPhotos.Value
Set WordApp = GetObject(, "Word.Application")
WordApp.Selection.InlineShapes.AddPicture Filename:=AdrIm, LinkToFile:=False _
, SaveWithDocument:=True
2- Si l’application n’est pas ouverte j’ouvre un document Word non nommé puis je repasse à l’item 1
D’avance merci pour vos réponses
Cordialement
Pierre
Voici mon problème à partir d’Excel
1- Vérifier que l’application Word est ouverte, si elle est ouverte je copie une photo de la manière suivante :
Dim AdrIm As String, WordApp As Object
AdrIm = Sheets("ENTREE").Range("G1").Value & "\" & ListPhotos.Value
Set WordApp = GetObject(, "Word.Application")
WordApp.Selection.InlineShapes.AddPicture Filename:=AdrIm, LinkToFile:=False _
, SaveWithDocument:=True
2- Si l’application n’est pas ouverte j’ouvre un document Word non nommé puis je repasse à l’item 1
D’avance merci pour vos réponses
Cordialement
Pierre