Lien d'une image dans un fichier

Bonjour,

j'utilise cette fonction pour insérer une image dans une feuille, le seul soucis c'est qu’elle garde le "lien" donc si l'image change de place sur mon disque dur, plus d'image!!!

Savez vous quelle application je dois changer pour que l'image soit INTEGRER DANS le fichier

Merci par avance

Function OuvertureImage() As String
  With Application.FileDialog(msoFileDialogFilePicker)
    .Title = " "
    .AllowMultiSelect = False
    .Filters.Clear
    .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
    If .Show = True Then
      OuvertureImage = .SelectedItems(1)
    End If
  End With
End Function

Bonjour

La balise "Code" permet de rendre les Codes plus lisibles.

Cordialement

autant pour moi et merci pour l'info!!!!!!

ok, voici la solution, j'ai fini par trouvé mon bonheur:

Fichier = Application.GetOpenFilename(FileFilter:="Pictures, *.jpg; *.png; *.gif; *.tif; *.tiff; *.bmp", Title:=" ", MultiSelect:=False)
If Fichier = False Then GoTo no_image

With ActiveSheet.Shapes.AddPicture(Fichier, True, True, Range(Emplacement).Left, Range(Emplacement).Top, Range(Emplacement).Width, Range(Emplacement).Height)
.Name = "Nom"
End With

a+