Discussion :

[Glawiiin]

Bonjour,

Je me permets de demander de l'aide sur votre forum pour un projet que j'ai à réaliser, voilà la question :

J'ai dans un onglet un listing quatre colonnes remplies : DATE/LIEU/DESIGNATION/PRIX en gros.

A partir de cette liste j'insère une ligne vide entre chaque ligne et redimensionne la hauteur de cette ligne (j'ai réussis seul ), mais je voudrais que pour chaque ligne, la macro cherche l'image correspondant à la désignation (placée dans un dossier).
Je comptais procéder de la manière suivante :

Code :

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

1
2
3
4
5
6
ActiveSheet.Pictures.Insert("F:\NOM DE LA DESIGNATION.jpg").Select
 
With Selection
.ShapeRange.Left = Sheets("MENU").Cells(i, 3).Left
.ShapeRange.Top = Sheets("MENU").Cells(i, 3).Top
End With

D'ou mes questions :
* Comment faire en sorte que dans le code du chemin de l'image excel prenne la valeur de la case i-1,3 et y ajoute juste ".jpg" (l'image correspondant à la désignation portera le même nom + ".jpg").
* Comment redimensionner l'image à la hauteur de la ligne

Merci

[mercatog]

Code :

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

"F:\" & Sheets("MENU").Cells(i-1,3) &".jpg"

[Glawiiin]

Merci, mais j'ai encore un soucis, voilà le code que j'ai entré :

Code :

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

1
2
3
4
5
6
        ActiveSheet.Pictures.Insert("G:\" & Sheets("RESULTAT").Cells(a - 1, 4) & ".jpg").Select
 
    With Selection
        .ShapeRange.Left = Sheets("RESULTAT").Cells(3, 3).Left
        .ShapeRange.Top = Sheets("RESULTAT").Cells(3, 3).Top
    End With

J'ai le message d'erreur 1004 "Impossible de lire la propriété Insert de la classe Pictures" et la première ligne est surlignée en jaune.

J'ai tout essayé, mais je ne comprends pas d'où vient le soucis...

[mercatog]

Une autre proposition (à adapter)

Code :

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

1
2
3
4
5
6
7
8
9
Sub aaa()
Dim Image As String
 
With Sheets("RESULTAT")
    Image = "C:\Documents and Settings\Administrateur\Mes documents\" & .Cells(1, 1) & ".jpg"
    'Image: chemin fichier, 0: non liée, 1: enregistrer avec document, Gauche, Haut, Largeur, Hauteur
    .Shapes.AddPicture Image, 0, 1, .Cells(3, 3).Left, .Cells(3, 3).Top, 70, 50
End With
End Sub

[Glawiiin]

Désolé mais je n'y arrive toujours pas...

Point positif : l'erreur précédente n'est plus d'actualité. Pour vérifier que je n'ai pas fait de bétises, voilà le code que j'ai utilisé (image sur la clé usb G):

Code :

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

1
2
3
4
5
6
7
Dim Image As String
 
With Sheets("RESULTAT")
    Image = "G:\" & Sheets("RESULTAT").Cells(a - 1, 4).Value & ".jpeg"
    'Image: chemin fichier, 0: non liée, 1: enregistrer avec document, Gauche, Haut, Largeur, Hauteur
    .Shapes.AddPicture Image, 0, 1, .Cells(a, 3).Left, .Cells(a, 3).Top, 70, 50
End With

L'erreur est désormais la suivante "Erreur 1004 : Le fichier spécifié est introuvable". Pourtant j'ai vérifié et essayé dans d'autres cas, à chaque fois le chemin est le bon (et c'est le bon que le programme place dans "image").
C'est désormais la ligne qui commence par .Shape.... qui est surlignée en jaune !

[mercatog]

C'est quoi ton a?
Fais ce test et reporte ce que tu as dans les 2 msgbox

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub aaa()
Dim Image As String
 
With Sheets("RESULTAT")
    MsgBox a
    Image = "G:\" & .Cells(a - 1, 4).Value & ".jpeg"
    MsgBox Image
    'Image: chemin fichier, 0: non liée, 1: enregistrer avec document, Gauche, Haut, Largeur, Hauteur
    '.Shapes.AddPicture Image, 0, 1, .Cells(a, 3).Left, .Cells(a, 3).Top, 70, 50
End With
End Sub