Discussion :

[Vince_93700]

Bonjour,
Ca va bientot faire 2 jours que je cherche sans rien avoir trouver c'est pourquoi j espere que vous pourrez m aider.
En fait j'ai un fichier Excel qui contient pas mal d'image. L'objectif est que je copie chaque image dans un fichier Word (1 image par fichier word).Le probleme, c'est que je n'arrive pas a distinguer les images car elles sont considérées comme des cellules vides par Excel.
L'image a ete copiee directement dans la cellule par un copier/coller.
J'aurai voulu savoir s'il y avait un moyen de les distinguer
Merci

[k-eisti]

Bonjour ,

j'ai une soulution mais je ne sais si c'est ce que tu cherche. car j'vais le même problème avec le publipostage dans Word.

la soulution est la suivante:

-tu enregistre tes images dans un répertoire que tu met sur le bureau par exemple

-et dans Excel : tu met dans les celules seulement le chemin vers tes image de cette facon:


C:\\Documents and Settings\\i017602\\Desktop\\ChallengeApplication\\Signatures\\image1.jpg
C:\\Documents and Settings\\i017602\\Desktop\\ChallengeApplication\\Signatures\\image2.jpg
C:\\Documents and Settings\\i017602\\Desktop\\ChallengeApplication\\Signatures\\image3.jpg



et pour récuperer tes images dans le fichier word tu suis les étapas suivantes: le SITE


juste une remarque : pour taper la commonde {INCLUDEPICTUR"{MERGEFIELDE"image"}"} il faut appuyer sut CTRL+F9

[Vince_93700]

J'avais bien penser a enregistrer chaque image dans un fichier specifique. Le probleme, c'est que j'ai 3 fichiers Excel avec plus de 100-150 images par fichier. Ce qui me prendrait vraiment beaucoup de temps.
Mais merci de ta reponse

[ouskel'n'or]

Tu peux tester ça
Nécessite d'activer les références Microsoft Word 10.0 Object Library et Microsoft Scripting Runtime

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub CopierPhotosDansWordDepuisExcel()
Dim Wd As Word.Application
Dim dwd As Word.Document
Dim Cl As Worksheet
Dim NoLigne As Long, i As Long, LeText As String
    Set Cl = ActiveSheet
    Set Wd = CreateObject("Word.Application")
    Set dwd = Wd.Documents.Open("d:\doc\CollerDansWord.doc")
    Wd.Visible = True
    DoEvents
 
    For Each Limage In Worksheets("Feuil1").Shapes
        ActiveSheet.Shapes(Limage.Name).Copy
        Wd.Selection.Paste
        DoEvents
    Next
 
    dwd.Close true
    Wd.Quit
    Set dwd = Nothing
    Set Wd = Nothing
    Set Cl = Nothing
End Sub

A+

[Vince_93700]

Merci de ta reponse.
Ta solution semble marcher, par contre est ce que tu pourrai m expliquer a quoi correspond :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim NoLigne As Long, i As Long, LeText As String
Limage

Et est ce qu'il est possible de recuperer le N° de la ligne sur laquelle est située l'image que l'on est en train de copier?
Merci

[ouskel'n'or]

Merci de ta reponse.
Ta solution semble marcher, par contre est ce que tu pourrai m expliquer a quoi correspond :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim NoLigne As Long, i As Long, LeText As String
Limage

Ben, ce sont des déclarations qui ne servent à rien... enfin pas dans la procédure telle que je l'ai écrite
Par contre, comme tu l'as si bien relevé () j'ai oublié de déclarer Limage as variant

Et est ce qu'il est possible de recuperer le N° de la ligne sur laquelle est située l'image que l'on est en train de copier ?
Merci

Pas simplement. SilkyRoad a récemment donné une solution, tu devrais faire une recherche sur le forum VBA. Il s'agit d'un test sur la position haute de l'image (Top) et la position haute de la ligne (Top aussi)
A+