Excel OUTOOK

Bonjour à tous,

Je développe un projet pour envoyer un fichier excel en corps de mail avec outlook. Sauf que ca bug à un moment. Ne maitrisant pas vba ni l'anglais, je sollicite un peu d'aide.

Merci d'avance.

Option Explicit

'-----------------------------------------------------------------------

'

' Lit le contenu d'un fichier texte et retourne son

' contenu

'

'-----------------------------------------------------------------------

Public Function ReadFile(sFileName) As String

Dim fso As Object, fFile As Object

Dim sTemp As String

Set fso = CreateObject("Scripting.FileSystemObject")

Set fFile = fso.OpenTextFile(sFileName, 1, False)

sTemp = fFile.ReadAll

fFile.Close

Set fFile = Nothing

ReadFile = sTemp

End Function

'-----------------------------------------------------------------------'

' Cette routine va créer une instance de Outlook (si

' pas encore démarré) et va ensuite ouvrir une

' fenêtre de type mail. Le corps du message sera

' initialisé avec le contenu d'un fichier de type

' HTML. Ce fichier aura été préalablement

' créé par la routine SendRangeByMail

'

' Nécessite l'ajout d'une référence vers "Microsoft

' Outlook Object Library"

'

'-----------------------------------------------------------------------

Sub PrepareOutlookMail(ByVal sFileName As String)

Dim appOutlook As Outlook.Application

Dim oMail As Outlook.MailItem

Set appOutlook = CreateObject("Outlook.Application")

' Si Outlook n'était pas ouvert, l'instruction

' ci-dessus aura eu pour conséquence de

' démarrer Outlook.

'Ce type de démarrage par automation fait

'apparaître une fenêtre de sécurité qui demande

'à l'utilisateur de permettre au programme de

'continuer.

'

'Le message est "A program is trying to send an

'email. Do you want to allow..."

'

'Dans le cas où l'utilisateur aurait cliqué sur No,

'l'objet appOutlook est égal à Nothing. Il est

'donc impossible de continuer.

If Not (appOutlook Is Nothing) Then

Set oMail = appOutlook.CreateItem(olMailItem)

oMail.HTMLBody = ReadFile(sFileName)

oMail.Display

Set oMail = Nothing

Set appOutlook = Nothing

End If

End Sub

Bonjour,

Merci d'éditer ton message et de mettre le code entre les balises prévues à cet effet

[ Code] et [ /Code] sans espace après [