Discussion :

[samson_02]

Bonjour à tous et à toutes...


Je voudrais afficher une image .bmp dans une cellule excel, dont le chemin (l'image) est affiché dans une cellule d'une autre feuille excel...

En clair :

J'ai une feuille "F_Edit" qui contient une cellule qui a pour valeur une chaine qui représente le chemin d'une image. Ex: C:\Dossier\sous-dossier\image.bmp

J'ai une autre feuille "Detail" qui contient un SmartArt dans lequel, je voudrais afficher l'image qui correspond au chemin de l'autre feuille. Le tout en vba dans l'évènement OnLoad.... si possible

Pourriez-vous m'aider svp... merci d'avance...

[fred65200]

bonjour,

je te laisse le soin d'adapter les chemins de ce code.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub InsertBMP()
'
Dim cheminBMP As String
cheminBMP = Sheets("Feuil1").Range("H1")
 
    ActiveSheet.Pictures.Insert(cheminBMP).Select
 
    With Selection.ShapeRange
        .Left = Range("J12").Left
        .Top = Range("J12").Top
    End With
 
'
End Sub

cordialement

[samson_02]

Merci bcp pour ta réponse rapide.... Je la teste et te fais un "rapport"...

re,

ça ne semble pas fonctionner...

Voilà ce que j'ai indiqué dans mon module.... rien ne se passe...

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
Sub InsertBMP()
 
Dim cheminBMP As String
cheminBMP = Sheets("F_Edit").Range("AK2")
 
'MsgBox "" & cheminBMP
 
    ActiveSheet.Pictures.Insert(cheminBMP).Select
 
    With Selection.ShapeRange
        .Left = Range("B50").Left
        .Top = Range("B60").Top
    End With
 
End Sub

Je dois peut-être activer la sheet "Detail"...?...

[fred65200]

bonjour,

initialise tes feuilles avant

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
Sub InsertBMP()
 dim F1 as worksheet
dim F2 as worksheet

Set F1 = sheets("F_Edit")
Set F2 = sheets("Détail")

Dim cheminBMP As String
cheminBMP = F1.Range("AK2")
 
'MsgBox "" & cheminBMP
 
    ActiveSheet.Pictures.Insert(cheminBMP).Select
             
    With Selection.ShapeRange
        .Left = F2.Range("B50").Left
        .Top = F2.Range("B60").Top
    End With
 
End Sub

tu nous tiens au courant

[samson_02]

Bonjour à tous....

Désolé pour le "feedback" tardif....
Ca fonctionne très bien, comme tu l'as indiqué..... en initialisant les feuilles...

Il y a cependant un détail que je dois régler, c'est la taille de l'image affichée.
Comment puis-je définir sa taille lors de l'affichage...

De plus, comment puis-je lancer cette macro à partir d'access...?....
Merci beaucoup pour votre aide.... à tous...

[ouskel'n'or]

Suffit que tu continues sur ta lancée...

Code :

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

1
2
3
4
5
6
    With Selection.ShapeRange
        .Left = F2.Range("B50").Left
        .Top = F2.Range("B60").Top
        .Width = F2.Range("B60").Width 
        .Height = F2.Range("B60").Height 
    End With

Bonne journée

(hello fred)

Edit
Avec ce code tu vas avoir une déformation de l'image. Pour régler ce problème, tu dois définir une priorité : Soit tu privilégies la hauteur, soit la largeur.
Si c'est la hauteur, tu établis le rapport Hauteur de l'image/Hauteur de la cellule, rapport que tu appliques à la largeur de l'image, soit... tu fais l'inverse
Pour avoir la hauteur de l'image c'est simplement

Code :

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

1
2
3
    With Selection.ShapeRange
        Hauteur = .Height
        '...

Quant à la hauteur de la cellule, tu l'as avec F2.Range("B60").Height vu plus haut.

[samson_02]

Ok merci beaucoup, je vais appliquer tes conseils et te tenir au courant du résultat...

[samson_02]

Tout marche comme vous me l'avez indiqué, cependant, il est plus facile d'ajuster la taille de l'image dès le départ, au lieu de changer la taille de mes cellules, entrainant des effets indésirables dans ma feuille...

Merci beaucoup pour votre soutien à tous...

[fred65200]

bonjour, pour la taille des images, tu peux aussi regarder ce fil entretenue par Ouskel'n'or et moi

http://www.developpez.net/forums/d41...ensions-image/

fred