Image qui disparait

Bonjour à tous,

J’ai un petit problème avec un de mes fichiers.

J’ai un bouton lié à un code qui m’ouvre l’explorateur de fichier pour sélectionner une image qui sera mise dans une cellule.

Le problème est que l’image disparaît lorsque j’envoie le fichier à quelqu’un, que je déplace ou supprime l’image. D’après ce que j’ai compris il y a une liaison qui se crée, c’est assez embêtant.

Pourriez-vous m’aider à modifier ce code pour que l’image reste même après transfert ou suppression de l’image ?

Ci-joint le fichier concerné

Copie de TEST.xlsm (58,6 Ko)

Cordialement,

TARCI

Bonsoir tarcii

C’est normal, car Pictures.Insert, importe une image liée au fichier
Il faut utiliser ce code

  Dim strFileName As String
  Dim objPic As Picture
  Dim rngDest As Range
  strFileName = Application.GetOpenFilename( _
    FileFilter:="Images (*.jpg;*.gif;*.png;*.jfif),*.jpg;*.gif;*.png;*.jfif", _
    Title:="Please select an image...")
  If strFileName = "Faux" Then Exit Sub
  Set rngDest = Worksheets("Page de garde").Range("C27:AB47")
  'Set objPic = Worksheets("Page de garde").Pictures.Insert(strFileName)  ' Créé un lien avec l'image
  Worksheets("Page de garde").Shapes.AddPicture strFileName, msoFalse, msoCTrue, _
    rngDest.Left, rngDest.Top, rngDest.Width, rngDest.Height

Bonjour,

D’accord, merci pour l’explication, vous êtes génial. :smiley: .

C’est impeccable, ça fonctionne comme je le souhaitais merci à vous.