XL 2019 Images disparaissent après suppression source/lien

Samtchevsky

XLDnaute Nouveau
Bonjour,

Je n'ai malheureusement pas trouvé de réponse à ma problématique sur les différents forums!
Sur un fichier je fais de l'intégration de photos (en masse) d'un fichier source dans mon Excel avec la macro ci-dessous:

VB:
Sub AffImage()
    Const hDefaut = 200

    Dim msg As String, r As Long, h As Long
    Dim C As Range, numfich As Integer
    Dim fich
    r = 1
    h = 200
    For Each C In Selection 'c.ColumnWidth = 10
        fich = C.Value
        If fich <> "" Then
        C.RowHeight = h
   ActiveSheet.Pictures.Insert(fich).Select
            With Selection.ShapeRange
    .Name = "Photo"
    .LockAspectRatio = msoTrue
    .Height = [D14:H14].Height + 115
    .Left = [D14:H14].Left + 100
    .Top = [D14:H14].Top - 343
                End With
        End If
    Next C
End Sub

La problématique est que lorsque je supprime le dossier source comprenant les-dîtes photos, les photos disparaissent du fichier Excel.
Je n'arrive pas à trouver comment "fixer" ces photos au fichier.

Merci de votre aide.
 

Discussions similaires