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