Technicien-Territorial - Concours, avancement et rémunération

Alors j'ai vite fait un ptit truc :

ICI

j'espère que ca se rapproche de ce que tu veux faire

faut regarder pour l'insérer soit dans une cellule, soit pour redimensionner l'image

un pas a été fait, mais il reste du chemin à parcourir;
je cherche à automatiser la recherche du fichier, (son nom et le "chemin" est écrit dans une cellule), et à le dimensionner, pour loger dans (sur) plusieurs cellule, ou pourquoi pas dans un zone texte.
déjà merci
à +

PASCANI a écrit :un pas a été fait, mais il reste du chemin à parcourir;
je cherche à automatiser la recherche du fichier, (son nom et le "chemin" est écrit dans une cellule)

alors ca il n'y a rien de plus facile, ta variable Ficimg doit recevoir le nom contenu dans la cellule

Tu remplaces la ligne :
Ficimg = Application.GetOpenFilename(".jpg,*.jpg", , "Choisissez l'image") ' choix nom du fichier

Par la ligne :
Ficimg = Cells(1, 1).Value 'récupération du chemin contenu dans la cellule A1

PASCANI a écrit :et à le dimensionner, pour loger dans (sur) plusieurs cellule, ou pourquoi pas dans un zone texte.
déjà merci
à +

ca je n'ai jamais fait il faut que je me plonge dedans, je n'ai pas encore réussi

Bonjour,
cela marche, comme tu le sais;
j'ai changé Sub par Function, et j'ai écrit dans une cellule feuil2, =insere_image(), cela ne fonctionne que si je me met sur la cellule, curseur dansle texte, et enfaisant Entée.
Après, il reste à dimensionner l'image (tjs la même dimension), et à la mettre à une cellule précise (tjs la même cellule)
J'ai réussi pour la dimension avec :
. " Selection.ShapeRange.Width = 150"
il reste à caser l'image en (H 10)
et ce sera touché-coulé ......

Avec la formule (écriture blanche sur fond blanc),je teste la cellule D11, où est écrit le nom et le chemin du fichier photo:
=SI(D11="";"";Insere_Image())
cela permet l'automatisme;
puis le code:

Function insere_image()
Dim fichimg
ActiveSheet.Pictures.Delete

fichimg = Cells(11, 4).Value

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

With ActiveSheet.Pictures
.Top = 230
.Left = 350
End With

End Function

dont je remercie DOWOI pour le plus gros,
cela fonctionne
youpi et encore merci

Parfait et de rien !!