[XL-2007] Envoie fichier par email [Résolu]

[Ambrocbt]

Bonjour,

j'utilise actuellement une macro me permettant d'afficher une partie de mon tableau dans un document word.

Est il possible qu'automatiquement, ce document word s'ajoute en PJ d'un email avec une adresse et un objet prédéfini?

la macro est la suivante?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Excel_Word()
 
Dim oWdApp As Object 'Word.Application
Dim oWdDoc As Object 'Word.Document
 
'Lancer une instance Word
Set oWdApp = CreateObject("Word.Application")
 
'Ouvrir un nouveau document
Set oWdDoc = oWdApp.Documents.Open("C:\Users\utilisateur\contrat.docx")
 
'Rendre Word visible
oWdApp.Visible = True
 
'Copier une plage depuis Excel
ActiveSheet.Range("A10:X38").Copy
 
'Coller la plage dans Word
oWdApp.Selection.Paste
 
'Annuler le mode couper/copier
Application.CutCopyMode = False
 
End Sub

Merci pour votre aide.

[Daniel.C]

Bonjour,

Essaie :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub Excel_Word()
 
Dim oWdApp As Object 'Word.Application
Dim oWdDoc As Object 'Word.Document
 
'Lancer une instance Word
Set oWdApp = CreateObject("Word.Application")
 
'Ouvrir un nouveau document
Set oWdDoc = oWdApp.Documents.Open("C:\Users\Daniel\Documents\Donnees\Daniel\mpfe\contrat.docx")
 
'Rendre Word visible
oWdApp.Visible = True
 
'Copier une plage depuis Excel
ActiveSheet.Range("A10:X38").Copy
 
'Coller la plage dans Word
oWdApp.Selection.Paste
 
'Annuler le mode couper/copier
Application.CutCopyMode = False
 
'Enregistrer le document
oWdDoc.Save
oWdDoc.Close
    Set OlApp = CreateObject("Outlook.application")
    Set m = OlApp.CreateItem(olMailItem)
    With m
        .Subject = "Subject"
        .Attachments.Add "C:\Users\utilisateur\contrat.docx"
        .Recipients.Add "test@test.com"
        .Send
    End With
Set oWdDoc = Nothing
Set oWdApp = Nothing
Set m = Nothing
Set OlApp = Nothing
End Sub

[Ambrocbt]

Merci Daniel pour ta réactivité, cela fonctionne parfaitement

Pour info : est il possible de valider le mail avant de l'envoyer?

[Daniel.C]

Oui,

Mets :

Code :

.Display

en ligne 33 au lieu de :

Code :

.Send

[Ambrocbt]

Super !

Super, vraiment un grand merci !!!

J'ai juste une dernière question :

Sais-tu comment rajouter du texte dans le corp de message.

.Textbody = "test" ==> ne fonctionne pas.

A+

[Daniel.C]

Code :

.Body = "test"

[patricktoulon]

bonjour la macro de daniel est tres bien, ca tombee bien que tu a outlook mais si tu utilise ton fichier ou outlook n'est pas configuré la la cata!!

tu a la solution avec "CDO" aussi en utilisant le smtp de ton "FAI"
cette solution marche dans tout les cas il suffit de metre le bon serveur de ton fournisseur

tu a çà dans les contributions

le lien est dans ma signature


au plaisir

[Ambrocbt]

@Patrick : Visiblement je n'ai pas de problème avec Outlook. Quel pourrait être le soucis?

@Daniel : encore question : La macro copie une zone Excel de toutes les feuilles précédentes or je veux uniquement la zone de la feuille sur laquelle on active la macro. Je pensais que Activesheet.Range permettait d’éviter cela

Encore merci pour l'aide.

Finalement je me rends compte que la macro de Daniel enregistre le doc Word, donc des que je relance la macro cela superpose les infos.

Est il possible de mettre en PJ uniquement le word "temporaire" , j'aimerai que mon doc reste vierge par la suite(ne pas l'enregistrer)

[patricktoulon]

bonjour

il n'y a pas de problème avec outlook si ce n'est que si tu utilise ton fichier

sur plusieurs or dis et que sur l'un d'entre eux n'a pas outlook ou si outlook n'est pas configuré et ben c'est le mur
tandis que si tu regarde mon fichier mailler dans les contributions et il y en a d'autre aussi ,ce fichier utilise la méthode "CDO" et donc le serveur smtp du fournisseur d'accès sur le quel l'ordi est connecté
dans mon fichier on sélectionne le fournisseur, le destinataire,expéditeur,la pièce jointe, et cela sans sortir du fichier

tu pourrais adapter la macro envoi mail qui ce trouve dans son propre module
a mon fichier

le lien est dans ma signature

voila

au plaisir

[Daniel.C]

Que tu utilises ma macro ou plus généralement CDO, tu ne peux envoyer qu'un fichier enregistré. Il faut que tu l'enregistres sous un autre nom qui te servira pour l'envoi.