envois de formulaire via outlook

voila mon code tu va comprendre d apres celuil la

c est une copie du classeur que j envois et le nom de ce fichier il
est par defaut "calsseur1.xls"
et moi je veux qu il prend le nom du fichier source avec son extention


Set messagerie = CreateObject("Outlook.Application")
Set message = messagerie.CreateItem(olMailItem)
Set ObjetAttache = message.Attachments

If cboDest.Value = "" Then
MsgBox "Veuillez choisir un destinataire SVP !"
End If

ActiveWorkbook.Windows(1).SelectedSheets.Copy
AccuseReception = True

ActiveWorkbook.SendMail cboDest.Value, Label1, True

'message.Attachments.Add
ActiveWorkbook.Windows(1).SelectedSheets
ActiveWorkbook.Close False



End Sub






merci

Il y a dess incohérences dans ton code. Explique précisément ce que tu
veux faire.
Daniel

Bonjour,

une possibilité, supposant adresse destination en R1:

Sub envoiPlageCellules()
ActiveSheet.Range("MaPlage").Activate
ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope
.Introduction = "bonjour, " & Chr(10) & "ci joint le tableau"
.Item.To = [R1]
.Item.Subject = "Suite à notre CT"
.Item.Send
End With
End Sub

'LSteph


On Jun 23, 2:33 pm, joseph84 <youwangs...@gmail.com> wrote:

Merci a vous deux :)

j ai finalement change d avis je voudrais creer le formulaire sur
excel et l envoye avec outlook

le truc que je ne suis pas capable d envoye la forme

merci

je voudrais creer un formulaire sur une feuille excel qui inclus des
radio boutton, des check box et des combo box

l utilisateur va modifier ce formulaire puis il va clicker sur un
boutton pour l envoyer par mail a un utilisateur qu il va choisir lui
meme

et le destinataire va recevoir cette feuille et qui va avoir la
posssibilite de modifier ce formulaire et de le renvoyer a nouveau

merci encore pour votre aide

Ceci suffit pour envoyer le classeur. Ne compte pas trop sur les
accusés de réception, à moins que les destinataires aient des clients
de messagerie très homogènes :

Sub EnvoiClasseur()

If cboDest.Value = "" Then
MsgBox "Veuillez choisir un destinataire SVP !"
End If
ThisWorkbook.SendMail cboDest.Value, Label1, True
ThisWorkbook.Close False

End Sub

Daniel

je voudrais creer un formulaire sur une feuille excel qui inclus des
radio boutton, des check box et des combo box

l utilisateur va modifier ce formulaire puis il va clicker sur un
boutton pour l envoyer par mail a un utilisateur qu il va choisir lui
meme

et le destinataire va recevoir cette feuille et qui va avoir la
posssibilite de modifier ce formulaire et de le renvoyer a nouveau

merci encore pour votre aide

Merci beaucoup daniel c est exactement ce que je cherche :)