Bonjour,
J'ai un bout de code qui m'insère une image. Une fois que celle ci est insérée je voudrai pouvoir la supprimer par une autre procédure. Comment dois-je m'y prendre?
 
Voici le code d'insertion:
 

 
Merci d'avance

Sub logo()
Dim club As String
club = Feuil2.Cells(10, "A" ).Value
Feuil1.Range("L3" ).Select
    Feuil1.Pictures.Insert("c:\dossier\logo\" & club & ".gif" )Select
    Selection.Name = club
End Sub
 
Sub efface()
Dim club As String
club = Feuil2.Cells(10, "A" ).Value
Feuil1.Pictures(club).Delete
End Sub
 
petite modif dans ton prog pour que le code efface fonctionne, normalement c'est bon

".gif" ).Select et non ".gif" )Select dsl

Super! la classe! t'es un chef! ca marche parfaitement.
Merci beaucoup

juste une dernière petite chose comme faut il que je fasse pour que si l'image "club" n'existe pas qu'il ne fasse rien (sinon il m'envoie un message 400)
Merci

modifie ton code d'insertion
 
Sub logo()
Dim club, chemin As String
club = Feuil2.Cells(10, "A" ).Value
chemin = "c:\dossier\logo\"  & club & ".gif"
Feuil1.Range("L3" ).Select
If Dir(chemin) <> "" Then
    Feuil1.Pictures.Insert(chemin).Select
    Selection.Name = club
else msgbox("Ce fichier n'existe pas" )   'petite fantaisie
End If
End Sub

Pardon je pense que je me suis mal exprimé,
ce n'est pas lors de la création que ca me pose un problème mais lors ce que j'efface le logo.
Je voudrai que s 'il ne trouve pas de logo sur ma page il ne me renvoie pas d'erreure 400 mais par exemple un petit "pas de logo"
 
Merci

essai ça, jpense que c'est se que tu veux.
 
Sub efface()
Dim club As String
club = Feuil2.Cells(10, "A" ).Value
For Each pic In Feuil1.Pictures
If pic.Name = club Then Feuil1.Pictures(club).Delete
GoTo 1
Next
MsgBox ("pas de logo" )
1:
End Sub

pas cette ligne If pic.Name = club Then Feuil1.Pictures(club).Delete  
mais  
If pic.Name = club Then  
Feuil1.Pictures(club).Delete  
goto 1  
end if
 
dsl

j'explique mal dsl version final:
 
 Sub efface()  
Dim club As String  
club = Feuil2.Cells(10, "A" ).Value  
For Each pic In Feuil1.Pictures  
If pic.Name = club Then  
Feuil1.Pictures(club).Delete  
GoTo 1  
Next  
MsgBox ("pas de logo" )  
1:  
End Sub

J'ai essayé mais malheureusement ca ne marche pas.
J'ai essayé de mettre un nom "logo" a l image et essayer comme ca.
 
Alors quand il n'y a pas d'image ca m'envoie effectivement un message d'erreur.
mais malheureusement il me l'envoie aussi quand il y a bien une image. Il n'as pas l'air de trouver l'image. Que ce que je peux faire?
 
Merci

moi sa merche parfaitement avec se code ds le code precedent j'avais oublier un end if
 
 
Private Sub CommandButton1_Click()
Dim club As String
club = Feuil2.Cells(10, "A" ).Value
Feuil1.Range("L3" ).Select
    Feuil1.Pictures.Insert("c:\dossier\logo\" & club & ".gif" ).Select
    Selection.Name = club
End Sub
 
Private Sub CommandButton2_Click()
Dim club As String
club = Feuil2.Cells(10, "A" ).Value
For Each pic In Feuil1.Pictures
If pic.Name = club Then
Feuil1.Pictures(club).Delete
GoTo 1
End If
Next
MsgBox ("pas de logo" )
1:
End Sub
 
chaque code et attribué a un bouton placé dans la feuille 1
 
je te file mon msn au cas ou si cela ne fonctionne pas
 
chitiwi@hotmail.com