Foire aux questions Microsoft Word

Sommaire > VBA > Interraction avec d'autres logiciels
        Comment envoyer un document par mail ?
        Comment utiliser Word avec les autres logiciels de la suite Office ?
        Comment ajouter une référence à mon projet ?

Version PDF (Miroir) Version hors-ligne (Miroir)

Comment envoyer un document par mail ?

[haut]

auteur : Lebeau Olivier

Pour envoyer un document par mail, la méthode la plus simple est :

Methode SendMail


Sub EnvoiDoc()
ActiveDocument.SendMail
End Sub

Cette méthode va ouvrir Outlook et vous devrez entrez les destinataires dans les cases prévues. Le document se trouve en pièce jointe du message.

Vous avez aussi la possibilité d'utiliser une procédure qui fera appel à Outlook directement dans votre code. N'oubliez pas d'ajouter la bibliothèque Microsoft Outlook à votre projet.

Via Outlook


Sub EnvoiMail() 
Dim oApp As Outlook.Application 
Dim MyIt As MailItem 
Dim myAtt As Attachment 
Set oApp = CreateObject('outlook.application') 
Set MyIt = oApp.CreateItem(olMailItem) 
Set myAtt = MyIt.Attachments.Add(ActiveDocument.FullName) 
MyIt.To = 'LeNom@FAI.fr' 
MyIt.Subject = 'Sujet de l'envoi' 
MyIt.BodyFormat = olFormatHTML 
MyIt.Body = 'mon corps de message' 
MyIt.Send 
End Sub

Le code ci-dessus va envoyer le document en tant que pièce jointe.
Si vous voulez que votre document soit le corps du message :

Document comme corps du message


Sub EnvoiMail()
Dim oApp As Outlook.Application
Dim MyIt As MailItem
'Dim myAtt As Attachment
Dim stTemp As String
Dim myRange As Range
Set myRange = ActiveDocument.Range
myRange.WholeStory
myRange.Select
stTemp = Selection.Text
 
Set oApp = CreateObject("outlook.application")
Set MyIt = oApp.CreateItem(olMailItem)
'Set myAtt = MyIt.Attachments.Add(ActiveDocument.FullName)
 
MyIt.To = "olivier.lebeau@mil.be"
MyIt.Subject = "Sujet de l'envoi"
MyIt.BodyFormat = olFormatHTML
MyIt.Body = stTemp
 
MyIt.Send

End Sub

Comment utiliser Word avec les autres logiciels de la suite Office ?

[haut]

auteur : Lebeau Olivier

VBA vous permet d'utiliser les librairies des autres logiciels et de cette manière utiliser les fonctionnalités des autres logiciels.

Les principes énoncés ci-dessous sont applicable à Word, mais aussi aux autres logiciels.

Pour pouvoir utiliser Word dans un autre logiciel, vous devez ajouter les références de Word dans votre projet.

Dans la liste, vous devez choisir la librairie qui correspond à la version de Word que vous utilisez.

Si vous ne référencez pas cette librairie, lors de l'utilisation de votre code, vous lèverez une Erreur.

Pour utiliser Word, vous devez déclarer un objet Word et lui affecter une valeur. Il existe plusieurs manières de travailler :

Affectation dès la déclaration


Dim wApp As New Word.Application

Déclaration et ensuite affectation


Dim wApp as Word.Application
Set wApp = CreateObject("Word.Application")

ou encore si une instance de Word est déjà ouverte et que vous souhaitez l'utiliser


Dim wApp As Word.Application

Set wApp = Word.Application

Il existe également une méthode qui ne nécessite pas le référencement de la librairie. Cette méthode est intéressante si vous ne connaissez pas la version de Word qui sera utilisée. Mais, il y a un mais, vous n'aurez pas l'aide à la saisie de votre code, les erreurs de frappe seront plus difficile à détecter.

Sans référencement à la librairie


Dim wApp As Object
Set wApp = CreateObject("Word.Application")

Cette dernière méthode est appelée le Late Binding ou Liaison Tardive, alors que les deux premières sont appelées Early Binding ou liaison précoce.
Si vous souhaitez utiliser une instance de Word déjà ouverte, utilisez dans ce cas la méthode GetObject.


Dim wApp As Object
Set wApp = GetObject( ,"Word.Application")

Comment ajouter une référence à mon projet ?

[haut]

auteur : Lebeau Olivier

Lorsque vous utilisez un autre logiciel que Word, il est fréquent de faire appel à une autre bibliothèque.
Par exemple si vous désirez accéder à des données issues d'une base de données Access. Word ne permet pas cet accès, pour y arriver, vous devez ajouter la bibliothèque DAO et utiliser ses objets.

Ouvrir la boîte de dialogue

Choisir la référence

Dès que vous avez ajouté les références, l fonction IntelliSense est disponible.

Version PDF (Miroir) Version hors-ligne (Miroir)

Consultez les autres F.A.Q.

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2009 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site ni de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.