envoyer un classeur par internet avec VBA

bonjour michel
cela peut-être :

Sub MailOXpress2()
Dim Dest$, sujet$, texte$

Dim Rep As String
Application.ScreenUpdating = False
Dest = InputBox("entrer l'adresse du destinataire")
sujet = InputBox("entrer l'objet du message")
texte = InputBox("entrer le texte du corps du message")
'Rep est le nom du fichier à joindre.
Rep = Application.GetOpenFilename("Tous les fichiers (*.*), *.*")
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & _
"?subject=" & sujet & _
"&Body=" & texte & ".", vbMaximizedFocus

'envoi à OE5.5, une combinaison de touche qui équivaut à faire insertion
'pièce jointe, joindre le fichier contenu dans la variable Rep, valider
puis
'envoyer.
If Rep = "" Then
SendKeys "~"
End If
Exit Sub
SendKeys "%I" & "p" & Rep & "~" '& "%s" 'en commentaire pour
'ne pas lancer l'envoi de l'email
End Sub

HTH
jps

"Michel Voirain" <michel.voirain@wanadoo.fr> a écrit dans le message de
news:O%23T0vSGNFHA.3760@TK2MSFTNGP12.phx.gbl...

Bonjour à tous,
Comment envoyer un classeur par internet (avec outlook express) à l'aide
de

VBA
Merci
Michel