Suppression de photo

Salut G'Claire, bonsoir tout le monde.

Est-ce que cela ne suffit pas de mettre à la fin de ta procédure de suppression de référence:
Image1.Picture = LoadPicture()
comme tu le fait dans la recherche dans ta routine d'erreur traitant du cas où l'image est indisponible.

Bonne chance.
Laurent.

Laurent TBT, le forum,

Merci pour ta réponse, je vous liste le code pour la suppression de la référence :

Private Sub BoutSupprimeFiche_Click()


'MsgBox Ligne
Dim réponse1
réponse1 = MsgBox(" Cette fiche va être définitivement supprimée, voulez-vous continuer ? ", vbYesNo + vbQuestion, "Validation")
If réponse1 = vbYes Then


With Sheets(Archi1)
.Rows(Ligne10).Delete
End With

ActiveWorkbook.Save
MsgBox " La fiche est définitivement supprimée "

Range("A8").Resize(rowsize:=Range("F1").Value, columnsize:=1).Select
UserForm5Archives.ListBox1.List = Selection.Value

'comptage nb de fiches
Call calculnombrefichesArchives

'sortir
Unload Me


End If
End Sub

Et la modifification a apporter, si je pense avoir bien compris :

Private Sub BoutSupprimeFiche_Click()


'MsgBox Ligne
Dim réponse1
réponse1 = MsgBox(" Cette fiche va être définitivement supprimée, voulez-vous continuer ? ", vbYesNo + vbQuestion, "Validation")
If réponse1 = vbYes Then


With Sheets(Archi1)
.Rows(Ligne10).Delete
End With

ActiveWorkbook.Save
MsgBox " La fiche est définitivement supprimée "

Range("A8").Resize(rowsize:=Range("F1").Value, columnsize:=1).Select
UserForm5Archives.ListBox1.List = Selection.Value

Image1.Picture = LoadPicture() <--------ICI LA MODIFICATION

'comptage nb de fiches
Call calculnombrefichesArchives

'sortir
Unload Me


End If
End Sub

Ce que j'ai fait et cela ne fonctionne pas, mais je pense plutôt ne pas avoir bien compris.

Merci, et bon week-end, G'Claire

Bonjour à tous.

Vite fait, car je suis un peu pris ce dimanche...

Peut-être faut-il simplement rajouter UserForm5Archives devant:
UserForm5Archives.Image1.Picture = LoadPicture()

Ceci va simplement enlever l'image de ton contrôle dans le Userform.

Mais après réflexion, je me suis dit que ton but était peut-être carrément de supprimer le fichier image de ton disque dur?
Dans ce cas, je mettrais une variable qui stockerais d'abord le nom du fichier image, Ensuite je supprime l'image du userform, et enfin, je supprime l'image du disque dur. En effet, si on supprime directement l'image du disque dur, cela va peut-être causer une erreur pous l'image du userForm.
Bref, voici peut-être un code (non testé):

Private Sub BoutSupprimeFiche_Click()
Dim NomImage as string
'MsgBox Ligne
Dim réponse1
réponse1 = MsgBox(" Cette fiche va être définitivement supprimée, voulez-vous continuer ? ", vbYesNo + vbQuestion, "Validation")
If réponse1 = vbYes Then


With Sheets(Archi1)
.Rows(Ligne10).Delete
End With

ActiveWorkbook.Save
MsgBox " La fiche est définitivement supprimée "

Range("A8").Resize(rowsize:=Range("F1").Value, columnsize:=1).Select
UserForm5Archives.ListBox1.List = Selection.Value

NomImage=UserForm5Archives.Image1.Picture
UserForm5Archives.Image1.Picture=loadpicture()
kill NomImage

'comptage nb de fiches
Call calculnombrefichesArchives

'sortir
Unload Me


End If
End Sub


Voilà, mais c'est répondu vite fait, sans avoir essayé.

Bon dimanche.
Laurent.

Private Sub BoutSupprimeFiche_Click()

Dim NomImage As String
Dim réponse2


réponse2 = MsgBox(" Cette fiche va être définitivement supprimée " & vbCrLf & " voulez-vous continuer ? ", vbYesNo + vbQuestion, "Validation")

If réponse2 = vbYes Then


With Sheets(Archi1)

.Rows(Ligne10).Delete

End With

ActiveWorkbook.Save

MsgBox " La fiche est définitivement supprimée "

Range("A8").Resize(rowsize:=Range("F1").Value, columnsize:=1).Select
UserForm5Archives.ListBox1.List = Selection.Value

MsgBox " La photo est définitivement supprimée "

'Suppression de l'image sur le disque

NomImage = RésultatArchives.Image1.Picture
RésultatArchives.Image1.Picture = LoadPicture()
Kill NomImage

'comptage nb de fiches

Call calculnombrefichesArchives

'sortir

Unload Me


End If

End Sub

Alors cela me donne une erreur "Fichier introuvable"

et surligne en jaune : Kill NomImage

Je pense qu'il faut donner le chemin du dossier, je vais essayer de trouver , merci, G'Claire