Supprimer image

Bonjour,

J'ai trouvé pour enregistrer une image dans un fichier venant d'un UF

Var = Me.Txt_CodeArt.Text
SavePicture Me.Image1.Picture, ThisWorkbook.Path & "\img\" & Var & ".jpg"

j'aimerai maintenant avec le bouton "Supprimer" pouvoir la supprimer, j'ai donc pensé à Delete à la place de Save mais cela ne marche pas.

Comment puis-je faire ?

Private Sub Cmd_Supprimer_Click()
Dim Ligne As Long

  If Me.lst_Article.ListIndex = -1 Then
    MsgBox "Vous devez choisir un article dans la liste"
    Exit Sub
  End If
'------
  If MsgBox("Confirmez-vous la SUPPRESSION de l'article" & Chr(10) & Me.Txt_CodeArt & " - (" & Me.Txt_Designation & ") ?", _
                                          vbQuestion + vbYesNo, strAppName) = vbYes Then
    Ligne = Me.lst_Article.ListIndex + 2
Var = Me.Txt_CodeArt.Text
SavePicture Me.Image1.Picture, ThisWorkbook.Path & "\img\" & Var & ".jpg"
    With WsBase
      .Range("A" & Ligne & ":J" & Ligne).Delete shift:=xlShiftUp
      Ligne = .Range("A" & Rows.Count).End(xlUp).Row
    End With
'------
    Affiche_Article     ' Réaffiche la liste des articles
    Init_Article        ' Réinitialise le formulaire pour la saisie suivante
    Initialize          ' Suppression des doublons dans les CBx
    InitImage           ' Image par defaut
  End If
End Sub

Merci à vous.

Cdlt

Bonsoir,

Tu n'as pas besoin de la supprimer. Tu la remplaces simplement par une autre.

Sinon pour avoir un contrôle vide :

Me.Image1.Picture = Nothing

A+

Bonjour Galopin01

Merci de ta réponse.

Sur Image1, je la remplace déjà par une avec ma macro InitImage (Image par défaut), c'est dans le fichier ou sont les images que j'aimerai supprimer.

Car, quand on supprime une ligne du tableau de la BDD j'aimerai que l'image disparaisse du fichier image (img).

Cdlt

Utilise kill (avec modération !)

kill ThisWorkbook.Path & "\img\" & Var & ".jpg"

Bonsoir

Utilise kill (avec modération !)

Juste pour effacer, en espèrent le faire le moins possible bien évidemment.

Autrement je viens d'apprendre le Kill, connaissais pas. Et ça marche nickel.

Merci encore mon sauveur,