XL 2010 Aide sur la redirection de mes boutons

[eliehass]

Bonjour à tous,

J'ai crée un formulaire de litige et j'aimerais que les clients puissent joindre des photos justifiantes, mais je n'arrive pas à faire suivre le fichier dans une case excel et/ou crée un lien hypertexte se referant au fichier importé. merci

Private Sub CommandButton3_Click()
fileToOpen = Application _
.GetOpenFilename("All Files (*.jpg*), *.jpg*")
If fileToOpen <> False Then
ActiveSheet.OLEObjects.Add(Filename:= _
fileToOpen, Link:= _
False, DisplayAsIcon:=True, IconIndex:=0, IconLabel:=fileToOpen).Select

Avez vous des idées pour que lorque le client appuie sur le bouton envoyer, unniquement le contenu rempli precedement s'envoi et non tout le fichier ? Un peu comme état pour access, jespere qu'on s'est compris, Actuellement voici mon code pour le bouton envoyer

Private Sub CommandButton4_Click()
Application.DisplayAlerts = False
ThisWorkbook.SendMail Recipients:="bidule@bidule.fr", _
Subject:="LITIGE", _
ReturnReceipt:=True
End Sub

 

[eliehass]

Salut !
Merci de ton aide mais les photos que mes clients vont insérer sont leurs propres photos de produits défectueux en guise de justificatif. Je garde ton classeur au cas où !