insertion auto d'image

[PASCANI]

sur la feuil 1, un tableau avec cellules : "date", "lieu", "constat",....,"ref. photo,"...
ou ref. photo est le chemin et le nom d'un fichier jpg.
sur la feuil 2, un imprimé 21x29.7 avec des cases "service émetteur", "destinataire",....; il s'agit d'un OS pour nos agent, ou l'on renseigne la ligne de donné; je souhaiterais que la photo référencée sur la ligne indiqué dans la feuil 1 s'affiche, et s'imprime donc, et ceci automatiquement, sans passer par les commandes INSERTION-IMAGE......
je manipule bien excel, mais pas les macro ou vba...
merci à ceux qui peuvent m'aider

 

[Paritec]

Re : insertion auto d'image

Alors on dit Bonjour déjà pour commencer
Donc bonjour et bienvenu sur ce forum
bonne soirée
Papou

 

[PASCANI]

Re : insertion auto d'image

bonjour,
mes excuses, j'était passé par un autre forum (construire) dans lequel j'avais déjà salué.
j'ai aperçu des réponses à ma question, mais pour moi, (j'ai décroché de beaucoup de choses !), vba et macro !!!!!!!

 

[PASCANI]

Re : insertion auto d'image

Bonjour à tous,
j'ai su (grâce à un collègue), insérer une image, la redimensionner,
mais 1) l'image précédente ne s'éfface pas,
2) l'image se met n'importe où, sauf en cellule H13 comme je le souhaiterais

Function insere_image()
Dim fichimg

fichimg = Cells(11, 4).Value

Worksheets("Impression d'OS").Pictures.Insert(fichimg).Select
Selection.ShapeRange.Width = 150

End Function
merci pour l'aide ....

 

[mutzik]

Re : insertion auto d'image

bonjour

image.left = range("H13").left
je te laisse faire pour la position top