Problème de liens entre classeur suite à la duplication

bonjour, j'ai créer un fichier Excel qui duplique un onglet vers un autre classeur.

le problème, c'est que si je l'ouvre chez une autre personne, j'ai un problème avec l'image qui se trouve dedans.

il me marque que cet objet a été déplacé, renommé…

comment remédier à ce problème?

je joint les fichiers.

merci par avance

Bonjour joon49

Quand je vois le code Dupli() je me dis qu'il a été fait à l'arrache, ce n'est jamais bon

1) Utilisez "Option Explicit", permet un débogage simplifié
2) Définissez vos variables
3) Passez vos paramètres dans des variables, plus simple à corriger par la suite

Voici le code ainsi modifié

Option Explicit

Sub Dupli()
  Dim sPath As String, sFic As String
  Dim Wbk1 As Workbook
  ' Chemin du fichier à ouvrir
  sPath = ThisWorkbook.Path & "\essai\"
  ' Nom du fichier
  sFic = "essai.xlsx"
  ' Ouvrir le classeur
  Set Wbk1 = Workbooks.Open(Filename:=sPath & sFic)
  '
  With ThisWorkbook
    .Activate
    ' dupliquer la feuille
    .ActiveSheet.Copy After:=Wbk1.Sheets(Wbk1.Sheets.Count)
  End With
  ' fermer et enregistrer le classeur
  Wbk1.Close SaveChanges:=True
  ' Libérer la mémoire et la variable objet
  Set Wbk1 = Nothing
 End Sub

La procédure d'insertion de l'image n'est pas correcte, il faut utiliser

Dim Photo As Shape
Set photo = ActiveSheet.Shapes.AddPicture(cheminn & ActiveSheet.Range("B11") & ".png", False, True, ActiveCell.Left, ActiveCell.Top, -1, -1)

Sinon vous aurez toujours le même problème

A+