Soucis d'image liée

Bonjour,
mon application en cours crée une succession de codes-barres dans des images au format bmp et chacun d'eux est sauvegardé sur le répertoire de l'application. Tout de suite après la création, j'insère ces images dans une feuille Excel. Tout va bien jusque là. Après avoir sauvegardé le classeur et fermé l'application, je supprime les images. C'est là que vient le problème: dans le classeur, à la place de chaque image, j'ai le message suivant: "Impossible d'afficher l'image liée. Le fichier a peut-être été déplacé, renommer ou supprimé..."
Voici le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

Decal = 3 For j = 1 To NbCat jdec = j + Decal Contenu = CatAIDA(j)   Call CodeBarreBMP(j, Contenu)   wsExcel = wbExcel.Worksheets("AIDA") wsExcel.Activate() wsExcel.Cells(1, jdec).select   With wsExcel.Pictures.Insert(My.Application.Info.DirectoryPath + "\Image" & j & ".bmp") With .ShapeRange .LockAspectRatio = True .Width = 70 .Height = 160 End With .Left = wsExcel.Cells(1, jdec).Left .Top = wsExcel.Cells(1, jdec).Top .Placement = 1 .PrintObject = True End With   Next   appExcel.Visible = True wbExcel.Save() wbExcel.Close() 'Fermeture du classeur Excel appExcel.Quit() 'Fermeture de l'application Excel appExcel = Nothing wbExcel = Nothing   For Each ObjPro As Process In Process.GetProcessesByName("EXCEL") ObjPro.Kill() Next   For j = 1 To NbCat My.Computer.FileSystem.DeleteFile(My.Application.Info.DirectoryPath + "\Image" & j & ".bmp") Next

---

Quand je supprime les trois dernières lignes, les images s'affichent correctement dans le classeur. Quelqu'un peut-il m'aider à comprendre comment fonctionne ce lien vers les images et comment contourner le problème pour pouvoir faire le ménage parmi les images sans dégrader le classeur excel?
D'avance merci de votre aide

avec le insert, ça conserve le lien.

Il faudrait plutôt utiliser Shapes.AddPicture qui permet d'indiquer si on veut conserver la liaison ou pas dans ces paramètres.
https://learn.microsoft.com/fr-fr/do...view=excel-pia

Bonjour,
merci pour votre réponse.
J'ai essayé cette méthode shapes.addpictures et voici le code utilisé

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

For j = 1 To NbCat jdec = j + Decal Contenu = CatAIDA(j)   Call CodeBarreBMP(j, Contenu)   wsExcel = wbExcel.Worksheets("AIDA") wsExcel.Activate() wsExcel.Cells(1, jdec).select   Dim T As Single Dim L As Single T = wsExcel.Cells(1, jdec).Top L = wsExcel.Cells(1, jdec).left wsExcel.Shapes.AddPicture(My.Application.Info.DirectoryPath + "\Image1.bmp", Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoCTrue, L, T, 160, 70)   Next

---

Malheureusement, j'ai créé trois erreurs de syntaxe pour cette ligne Shapes.addpicture:
- deux erreurs "BC30456 'Core' n'est pas un membre de 'Microsoft.Office' " ces 2 erreurs font référence aux paramètres 2 et 3 je suppose,
- et une erreur "BC30652 'Une référence à l'assembly 'Interop.Microsoft.Office.Core, Version=2.8.0.0, Culture=neutral, PublicKeyToken=null' contenant le type 'MsoTriState' est requise. Ajoutez-en une à votre projet."

Or, je précise que dans l'onglet Projet -> Propriétés du Projet, au titre des références, j'ai bien "Microsoft.Office.Core" qui est coché.

et les déclarations d'import en tête de projet sont les suivantes:

Code:

---

1 2 3 4 5

Option Explicit On Imports System.Windows.Forms.VisualStyles Imports Microsoft.Office.Interop.Excel Imports Windows.Win32.System Imports Excel = Microsoft.Office.Interop.Excel

---

(Les déclarations de Windows.forms.visualStyles et Windows.win32.system sont grisées comme non utiles)
Je n'ai pas fait d'import de Microsoft.Office.Core dans la mesure où j'utilise les noms complets dans le code.
Pour mémoire, j'utilise la version VisualStudio 2022 avec Windows11

Aussi, merci de votre aide pour corriger cela car je ne m'en sors pas avec ces espaces de noms!

bonjour,
après avoir bidouillé les références et les dépendances du projet, les différentes erreurs se sont corrigées: j'ai inclus Microsoft Office dans l'onglet COM des dépendances de l'explorateur de Projet et ça a suffit à corriger les références manquantes. Du coup, l'exécution s'est bien déroulée et le problème initial est résolu vu que les images sont bien collées dans excel et pas seulement un lien.
Merci à vous