Copier image d'une cellule excel ds word VBA

FM38 -  
lermite222 Messages postés 9042 Statut Contributeur -
Bonjour à tous,

Je suis sur un programme VBA excel 2003,

J'ai un souci, je cherche à copier le contenu d'une cellule (c'est une image dans la cellule), par le biais de VBA pour la coller sur un signet sur Word.
J'ai lier une image à la cellule (je l'ai mis a la bonne dimension de la cellule,j'ai fait clique droit, format de l'image, déplacer et dimensionner avec les cellules).
Mais lorsque je veux coller la cellule dans mon fichier word, il m'envoi du blanc... ;(

Comment faire svp?

Merci à tous

Cdt

3 réponses

  1.
    lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    Bonjour,
    L'image n'est pas dans la cellule mais dans un "ShapeRange" et c'est cela qu'il faut copier.
    Pour le code, employer l"éditeur de macro, sélectionner l'image(avec poignée) copier et coller dans une autre cellule.
    Ensuite adapter le code pour aller dans Word.
    A+
    0
  2. FM38
     
    Merci lermite222,

    J'ai passé ma matinée à chercher, pour copier l'image sur un document Word.
    J'ai éssayé de copier l'image de la cellule sur une autre cellule, cela marche:

    Sub Macro1()
    Range("E1").Select
    Selection.Copy '''' j'ai pas compris pourquoi on devait prendre cette cellule, mais avec ça, sa marche.... ''''
    Range("A1").Select
    ActiveSheet.Pictures.Paste(Link:=True).Select
    Application.CutCopyMode = False
    ActiveSheet.Pictures.Insert("U:\Test.jpg").Select
    ''copier sur une autre cellule:
    Sheets("Feuil1").Select
    Range("B1").Select
    Selection.Copy
    Sheets("Feuil1").Select
    Range("C1").Select
    ActiveSheet.Paste

    Et pour copier sur un doc word, j'ai testé pas mal de choses (pour mettre un peu sur la piste:

    Private Sub CommandButton1_Click()
    Dim appword As Word.Application
    Set appword = New Word.Application
    Application.DisplayAlerts = True
    appword.ShowMe
    appword.Visible = True
    appword.Documents.Open Filename:="U:\doc1.doc"

    DocWord.Bookmarks("Image").ActiveSheet.Shapes ("U:\Test.jpg")
    ''' code faux au dessus, je vois pas du tout comment coller la cellule B1 sur le signet "Image" du doc1
    MsgBox " Document Word à jour "
    End Sub

    Avez-vous une idée?

    Merci beaucoup.

    Cdt
    0
  3. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    Voir ce tuto pour un peu plus d'explication sur la copie des images.
    Concernant mettre l'image dans Word.. j'ai encore jamais fais.
    0