Excel comment envoyer un document en pièces jointe en VBA ?

Menu : Fichier / Envoyer vers / Destinataire du message (en tant que pièce
jointe)

Bonjour,
j'ai créé un formulaire sous Excel dans lequel les utilisateurs
saisissent des informations. Ces dernières sont ensuite inscrites dans
la Feuil1 de mon document Excel. Je voudrais pouvoir transmettre ces
données à une personne par le biais d'un mail. Comment faire ? Merci
d'avance

clario avait soumis l'idée :

Bonjour,
j'ai créé un formulaire sous Excel dans lequel les utilisateurs
saisissent des informations. Ces dernières sont ensuite inscrites dans
la Feuil1 de mon document Excel. Je voudrais pouvoir transmettre ces
données à une personne par le biais d'un mail. Comment faire ? Merci
d'avance

Pour avoir la réponse de Richard en VBA, Outils/Macro... Nouvelle
macro...

--
JLuc

Bonjour

essayer ceci

'mettre en colonne A les adresses des destinataires.
Sub Mail_Every_Worksheet()
Dim sh As Worksheet
Dim wb As Workbook
Dim strdate As String
Dim MyArrIndex As Long
Dim E_Mail_Count As Long
Dim cell As Range
Dim MyArr() As String
Application.ScreenUpdating = False
For Each sh In ThisWorkbook.Worksheets
If sh.Range("a1").Value Like "*@*" Then
strdate = Format(Now, "dd-mm-yy h-mm-ss")

E_Mail_Count =
sh.Columns("A").Cells.SpecialCells(xlCellTypeConstants).Count
ReDim MyArr(1 To E_Mail_Count)
MyArrIndex = 1
For Each cell In
sh.Columns("A").Cells.SpecialCells(xlCellTypeConstants)
If cell Like "*@*" Then
MyArr(MyArrIndex) = cell.Value
MyArrIndex = MyArrIndex + 1
End If
Next
ReDim Preserve MyArr(1 To MyArrIndex)

sh.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs sh.Name & " de " _
& ThisWorkbook.Name & " " & strdate & ".xls"
.SendMail MyArr, _
"ici, C'est la ligne objet"
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
End If
Next sh
Application.ScreenUpdating = True
End Sub



salutations

RGI

Bonjour,
j'ai créé un formulaire sous Excel dans lequel les utilisateurs
saisissent des informations. Ces dernières sont ensuite inscrites dans
la Feuil1 de mon document Excel. Je voudrais pouvoir transmettre ces
données à une personne par le biais d'un mail. Comment faire ? Merci
d'avance