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+

[Vince_93700]

Ok je vais regarder ca d 'un peu plus pres.
Encore merci pour ton aide

[Vince_93700]

Bonjour
En fait cette solution en fonctionne qu'un seule fois. Des que j execute le code, et bien cela me copie une image dans le document Word mais ensuite le message d'erreur suivant s affiche
Erreur definie par l'application ou par l'objet
Le debuggueur m indique la ligne

Code :

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

ActiveSheet.Shapes(Limage.Name).Copy

Je ne comprend pas d'ou vient cette erreur
Merci

[ouskel'n'or]

Là je n'ai pas le temps de tester mais essaie d'ajouter

Code :

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

        ActiveSheet.Shapes(Limage.Name).Select

avant la ligne

ActiveSheet.Shapes(Limage.Name).Copy

Et teste le nom de Limage.Name quand ça plante (passe la souris dessus)
A+

[Vince_93700]

Je viens d'essayer ce que tu m as dis mais ca ne change rien. L'erreur se trouve maintenant sur le

Code :

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

ActiveSheet.Shapes(Limage.Name).Select

Quand je passe la souris sur Limage.Name, rien ne s'affiche

[ouskel'n'or]

Il serait bien que tu donnes la méthode utilisée pour placer tes images dans Word. Pour ma part, je les ai toutes insérée par Insertion -> Image -> Du fichier.
Si tu les as insérées dans un contrôle image, ma méthode ne fonctionne pas. Mais il me semble que dadavyvy a donné le code dans ce cas là.
Tu peux nous dire ?
A+

[Vince_93700]

En fait les images ont ete inserees par copier/coller et ont comme proprite "deplacer et dimensionner avec les cellules"