XL 2019 Images disparaissent après suppression source/lien

[Samtchevsky]

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:

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.

 

[sousou]

Regarde le module ajouter, il pourrait remplacer tout ton code, sauf si il existe des cas différents dans le fichier complet

 

[Samtchevsky]

Regarde le module ajouter, il pourrait remplacer tout ton code, sauf si il existe des cas différents dans le fichier complet

Sousou,

Merci pour tes retours.
Je vais prendre le temps d'analyser tout ça et de faire des essais.