Discussion :

[scoubi77]

Bonjour à toutes et à tous,

Tout d'abord je vous souhaite un joyeux noël et de bonnes fêtes de fin d'années.

Je tourne en rond depuis des jours pour arriver à envoyer un mail depuis un classeur.
Après moultes essais j'ai réussi mais il me reste trois points sur lesquels je n'arrive pas à avancer.

J'ai un bouton sur la feuil1 qui me permet d'envoyer un bon de commande qui est en feuille cachée, voici la macro qui affiche la feuille et permet d'envoyer par un command bouton la feuille6

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Bouton31_Clic()
Worksheets("commande").Visible = 0
Worksheets("synoptique").Select
Call mail
End Sub

Et voici la macro mail :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub mail()
 
On Error Resume Next
 
ThisWorkbook.Sheets(6).Copy
With ActiveWorkbook
.SendMail Recipients:=Array("xxxxx@xxxxxxx.fr")
Subject:="Veuillez trouver ci-joint xxxxxxx" & " " & Format(Date, "dd/mmm/yy")
Body:="blablabla"
.Close SaveChanges:=False
End With
 
 
End Sub

ça fonctionne sans problème sauf que je voudrais ajouter un body ( qui ne s'affiche pas dans Outlook), et le mon du fichier attaché qui est une copie de ma feuille6 a comme nom classeur1.xlsx alors que je voudrais le renommer en commande.xls .

Mon dernier problème réside dans le fait que dans ma feuille6 il y a un bouton qui permet d'envoyer le mail, lors de la création de la copie de la feuille6 il reste dans cette dernière et je n'arrive pas à le supprimer.

Un grand merci par avance pour l'aide que vous pourrez m'apporter
Cordialement scoubi77

[scoubi77]

Bonjour à toutes et à tous,

Mes recherches d'hier soir ainsi que l'utilisation de l'aide du VBA dans Excel ( touche F1 après surlignage de la fonction Sendmail ) il semblerai que le coprs du message ne soit pas compatible avec cette fonction !!!

" SendMail(Destinataires, Objet, AccuséRéception) "

il faut que je reprenne à 0 mon code arf à moins que vous ayez une astuce supérieure à mes maigrelettes connaissances !!!

Au plaisir de vous lire et en attente de vos précieux conseils

Cordialement
scoubi77

[scoubi77]

Re bonjour,

J'ai changé mon code par celui-ci,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub mail()
Dim fichier As String
Dim ol As New Outlook.Application
Dim olmail As MailItem
ThisWorkbook.ActiveSheet.Copy
With ActiveWorkbook
    fichier = .Name & ".xls"
    .SaveAs Filename:=ThisWorkbook.Path & "\" & fichier
    .Close
End With
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
With olmail
    .To = "xxxxx@wanadoo.fr"
    .Subject = "sujet"
    .Attachments.Add ThisWorkbook.Path & "\" & fichier
    .Body = "Texte dans le corps de message"
    .Display
    '.Send
End With
Kill ThisWorkbook.Path & "\" & fichier
End Sub

il ne me reste plus qu'à renommer ma feuille car pour l'instant elle est nommé par défaut en classeur1.xls et supprimer la macro et le boutton dans la feuille copié.

[scoubi77]

Re bonjour,

J'ai réussi à corriger mes beug, voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Sub mail()
Dim fichier As String
Dim ol As New Outlook.Application
Dim olmail As MailItem
ThisWorkbook.ActiveSheet.Copy
With ActiveWorkbook
    fichier = "commande de fournitures.xls"
ActiveSheet.Buttons.Delete
.SaveAs Filename:=ThisWorkbook.Path & "\" & fichier
    .Close
End With
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
With olmail
    .To = "xxxxx@xxxx.fr"
    .Subject = "commande "
    .Attachments.Add ThisWorkbook.Path & "\" & fichier
    .Body = "Bonjour," & vbCrLf _
 & vbCrLf _
 & "Vous trouverez ci joint le détail" & vbCrLf _
 & vbCrLf _
 & "Cordialement" & vbCrLf _
 & vbCrLf & vbCrLf _
 & "Fab"
    .Display
    '.Send
End With
Kill ThisWorkbook.Path & "\" & fichier
End Sub

Il ne me reste plus qu'un détail, le fichier crée a du mal à s'ouvrir, à l'ouverture du fichier crée j'ai ce message:

"Le format du fichier que vous tentez d'ouvrir,<"commande de fournitures.xls"> est différent de celui spécifié par l'extension du fichier, si je click sur oui il s'ouvre mais d'où vient cette erreur ???

[Marc-L]

Bonjour,

regarder l'aide de la méthode Workbook.SaveAs ou encore via l'Enregistreur de macros …

[scoubi77]

Merci à toi,

j'ai trouvé, j'ai rajouté

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.SaveAs Filename:=ThisWorkbook.Path & "\" & fichier , FileFormat:=56

et ça marche.
Je laisse mon post ça pourrait servir à d'autres.

Bonne fêtes de fin d'années

Cordialement

Scoubi77