Image qui disparait

[tarcii]

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

[NonoDu45]

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

[tarcii]

Bonjour,

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

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