Discussion :

[Bernard67]

Bonjour le forum,
Que faut il modifier a cette macro qui me stocke le mail dans la boite d'envoi au lieu de l'envoyer directement ?
Que faut il rajouter pour que je puisse mettre une phrase de presentation dans le mail ?
Merci pour l'aide.

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
Sub envoimail()
 
'copie la feuille dans un nouveau classeur
ThisWorkbook.Sheets("IDF").Copy
 
'Sauve le classeur
ActiveWorkbook.SaveAs "C:\Temp\IDF.xls"
 
'Envoi le classeur par mail
ActiveWorkbook.SendMail "AAAAAA@free.fr"
 
'Temporisation de 10 sec
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 10
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
MsgBox "Le message est envoyé"
 
'Ferme sans sauver
ActiveWorkbook.Close False
 
'Supprime le classeur temp crée
Kill "C:\Temp\*.xls"
 
End Sub

[Bernard67]

Est il possible aussi de ne pas envoyer la macro avec la feuille.xls ?
Merci encore

[SilkyRoad]

bonsoir

Que faut il modifier a cette macro qui me stocke le mail dans la boite d'envoi au lieu de l'envoyer directement ?
Que faut il rajouter pour que je puisse mettre une phrase de presentation dans le mail ?

Dans ce cas il serait préférable d'utiliser la bibliothèque "Microsoft Outlook Object Library"

http://excel.developpez.com/faq/?page=Messagerie

Est il possible aussi de ne pas envoyer la macro avec la feuille.xls ?

Cet exemple enregistre le classeur actif et supprime la totalité des procédures
La procédure nécessite d'activer la référence Microsoft Visual Basic for Applications Extensibility 5.3.

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
Sub SupprimeTout()
 
    Dim VbComp As VBComponent
 
    'Enregistre le classeur
    ActiveWorkbook.SaveAs "C:\Sauvegarde.xls"
 
    For Each VbComp In ActiveWorkbook.VBProject.VBComponents
        Select Case VbComp.Type
            Case 1 To 3
                ActiveWorkbook.VBProject.VBComponents.Remove VbComp
            Case Else
                With VbComp.CodeModule
                .DeleteLines 1, .CountOfLines
                End With
        End Select
    Next VbComp
 
    'Sauvegarde les modifications
    ActiveWorkbook.Save
End Sub

bonne soirée
michel

[Bernard67]

Bonsoir SilkyRoad,

J'ai une erreur 1004 sur ces lignes, coment y remedier ?
Merci et bonne soiree

Code :

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

1
2
Destwb.SaveAs Temp
Fichier = Destwb.Path & Application.PathSeparator & Destwb.Name