RECHERCHER UNE IMAGE

*Bonjour GARAULT*,
Pour avoir le nom complet :
en C2 : ="C:D-calcINTEXDevis"&B2&".AFF"&A2&"_very_big.bmp"
Par contre, pour inserer l'image, il va faloir passer par du VB et
savoir où tu veux la mettre

Comment peut on ouvrir un fichier image et l'intégré dans exel.
voici le chemin que je dois prendre pour aller chercher l'image:
C:D-calcINTEXDevisD0001.AFF141_very_big.bmp

dans le tableu 141 correspond a l'image que exel va devoir prendre
et D0001 dans le fichier que l'image se situe


A B C D E
1
2 141 D0001
3
4
5
6

MERCI

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

MERCI,

mais c quoi du vb pour inserer l'image ?

*Bonjour GARAULT*,
Pour avoir le nom complet :
en C2 : ="C:D-calcINTEXDevis"&B2&".AFF"&A2&"_very_big.bmp"
Par contre, pour inserer l'image, il va faloir passer par du VB et
savoir où tu veux la mettre

Comment peut on ouvrir un fichier image et l'intégré dans exel.
voici le chemin que je dois prendre pour aller chercher l'image:
C:D-calcINTEXDevisD0001.AFF141_very_big.bmp

dans le tableu 141 correspond a l'image que exel va devoir prendre
et D0001 dans le fichier que l'image se situe


A B C D E
1
2 141 D0001
3
4
5
6

MERCI

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

GARAULT avait soumis l'idée :

MERCI,

mais c quoi du vb pour inserer l'image ?

Programmation macros (Visual Basic pour Application)

--
JLuc

et vous pourriez m'aiguiller pour l'application que je souhaite faire
la procédure ?
merci

GARAULT avait soumis l'idée :

MERCI,

mais c quoi du vb pour inserer l'image ?

Programmation macros (Visual Basic pour Application)

--
JLuc

GARAULT avait soumis l'idée :

et vous pourriez m'aiguiller pour l'application que je souhaite faire
la procédure ?
merci

GARAULT avait soumis l'idée :

MERCI,

mais c quoi du vb pour inserer l'image ?

Programmation macros (Visual Basic pour Application)

--
JLuc

Pour ça, il faut savoir où tu veux mettre la (les) image(s). Si
possible, mets un classeur sur www.cjoint.com avec l'organisation de
tes données et comment tu veux afficher ces images

--
JLuc

merci

voici un lien http://cjoint.com/?kBiXGLgWC3

je n'ai pas mis le dossier complet trop volumineux, mais c sur cette page
que je souhaiterais que l'image s'affiche en G12 H15 , il faudra que je
fusionne les cellules.

GARAULT avait soumis l'idée :

et vous pourriez m'aiguiller pour l'application que je souhaite faire
la procédure ?
merci

GARAULT avait soumis l'idée :

MERCI,

mais c quoi du vb pour inserer l'image ?

Programmation macros (Visual Basic pour Application)

--
JLuc

Pour ça, il faut savoir où tu veux mettre la (les) image(s). Si
possible, mets un classeur sur www.cjoint.com avec l'organisation de
tes données et comment tu veux afficher ces images

--
JLuc

vous voyez c que je souhaites faire, c possible ?

GARAULT avait soumis l'idée :

et vous pourriez m'aiguiller pour l'application que je souhaite faire
la procédure ?
merci

GARAULT avait soumis l'idée :

MERCI,

mais c quoi du vb pour inserer l'image ?

Programmation macros (Visual Basic pour Application)

--
JLuc

Pour ça, il faut savoir où tu veux mettre la (les) image(s). Si
possible, mets un classeur sur www.cjoint.com avec l'organisation de
tes données et comment tu veux afficher ces images

--
JLuc

GARAULT avait soumis l'idée :

vous voyez c que je souhaites faire, c possible ?

Oui, mais il faut que je prenne un petit moment :oÞ Et là, j'ai pas

trop le temps. Je m'y plonge en fin d'aprés midi :')

--
JLuc

merci c sympas

GARAULT avait soumis l'idée :

vous voyez c que je souhaites faire, c possible ?

Oui, mais il faut que je prenne un petit moment :oÞ Et là, j'ai pas

trop le temps. Je m'y plonge en fin d'aprés midi :')

--
JLuc

*Bonjour GARAULT*,
Voila, après quelque tests, je te delivre le code magique :

Sub InsertImage()
'
'Les cellules G12 à H15 sont fusionnées
'
On Error Resume Next 'Pour le cas où il n'y a pas d'image
ActiveSheet.Shapes("MonImage").Delete
Range("G12").Select
ActiveSheet.Pictures.Insert(Range("J23")).Select
With Selection.ShapeRange
.LockAspectRatio = msoTrue 'Garde les proportions
.Height = 50# 'Pour donner à peu près la hauteur de la cellule
.Name = "MonImage" 'Donne un nom à l'image
End With
Range("C9").Select
End Sub

merci c sympas

GARAULT avait soumis l'idée :

vous voyez c que je souhaites faire, c possible ?

Oui, mais il faut que je prenne un petit moment :oÞ Et là, j'ai pas

trop le temps. Je m'y plonge en fin d'aprés midi :')

--
JLuc

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O