Discussion :

[Aurore24]

Bonjour,

J’ai créé une macro qui permet d’insérer une image dans un fichier excel. Cette image est située dans un répertoire intitulé « photos », lequel répertoire est lui-même situé au même endroit que mon classeur excel. Une fois toutes les photos insérées, je voudrais que le classeur puisse être copié sur un autre ordinateur qui ne contiendrait pas forcément le répertoire « photos ». Or, si je déplace le classeur, les photos n’apparaissent plus et un message s’affiche : impossible d’afficher l’image liée.

Voici le code que j’utilise :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
chemin = ActiveWorkbook.Path
Set celprefixe = Worksheets("photos").Cells(1, 2) 
prefixe = celprefixe.Value
Set celnumphoto = Worksheets("fichesdetail").Cells(lfiche + 2, 12)
numphoto = celnumphoto.Value
 
If (numphoto <> "") Then
    With celnumphoto
        .Value = ""
    End With
 
    'Worksheets("fichesdetail").Pictures.Insert(chemin & ":photos:" & prefixe & numphoto & ".jpg").Select ‘ cette ligne et la suivante ont le même résultat
 
Worksheets("fichesdetail").Pictures.Insert(":photos:" & prefixe & numphoto & ".jpg").Select

Auriez-vous une solution pour que je puisse déplacer mon fichier vers un autre ordinateur ?

En vous remerciant,

Aurore

[Theze]

Bonsoir Aurore,

Essais avec "Shapes.AddPicture" pour les enregistrer (ou non) avec le classeur, je te poste un petit exemple, adapte à tes besoins :

Code :

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

1
2
3
4
5
6
7
8
 
Dim Image As Shape
Dim Chemin As String
Dim Fichier As String
 
Chemin = ActiveWorkbook.Path & "\"
Fichier = "MaPhoto.jpg"
Set Image = Worksheets("fichesdetail").Shapes.AddPicture(Chemin & Fichier, False, True, 0, 0, 100, 100)

Hervé.

[Aurore24]

Je te remercie, cette méthode fonctionne.
En revanche, cela implique un autre problème que je me permet de vous soumettre. Celui-ci concerne la mise en place et le dimensionnement des images. Voici le code que j'utilisais avec le Picture.Insert :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    If (Selection.Height < Selection.Width) Then 'photo paysage
        With Selection
            .ShapeRange.Left = Cells(lfiche + 2, 7).Left + 1.5
            .ShapeRange.Top = Cells(lfiche + 2, 7).Top + 40 
            .Width = 228 
        End With
    Else
        With Selection 'photo portrait
            .ShapeRange.Left = Cells(lfiche + 2, 7).Left + 40 
            .ShapeRange.Top = Cells(lfiche + 2, 7).Top + 1
           .Height = 230 
        End With
    End If
    Selection.Placement = xlMoveAndSize

Mais remplacer le "With Selection" par un "With Image" ne convient pas. D'où cela peut-il provenir ?
De plus, comment puis-je différencier les cas où ma photo est en paysage ou en portrait ?

En vous remerciant,

Aurore

[Aurore24]

Il s'avère que la réponse concernant le dimensionnement était presque son mon nez, je la donne pour ceux que ça intéresserait.

Code :

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

Set Image = Worksheets("fichesdetail").Shapes.AddPicture(":photos:" & prefixe & numphoto & ".jpg", False, True, Cells(lfiche + 2, 7).Left + 1.5, Cells(lfiche + 2, 7).Top + 30, 228, 171)

Concernant la différence paysage / portrait, je n'ai pas trouvé mais ce n'est pas très grâve.

Aurore