Discussion :

[lili189]

Bonjour,

j'aimerais ajouter un petit détail à ma macro.
Je désire envoyer ma feuille active par mail par le biais d'un bouton, jusque là OK. J'ai bien mon outlook qui s'ouvre, mon titre de sujet, et ma pièce jointe.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub envoiMailEtFeuilleActive()
'
'
'
ActiveSheet.Copy ' crée une copie de la feuille active
Recipients = Array("")
ActiveWorkbook.SendMail Recipients, Subject:="Fichier Demande" 'envoi Mail
MsgBox "Votre fichier a bien été envoyé dans Outlook."
Application.DisplayAlerts = False
ActiveWorkbook.Close ' supprime le classeur créé après l'envoi
Application.DisplayAlerts = True
Shell "C:\Program Files\Microsoft Office\Office11\OUTLOOK.EXE"
End Sub

Par contre, mon fichier joint dans outlook se nomme classeur1.xls

Est-il possible de lui affecter un autre nom par défaut. Car mon classeur se nomme Demande et mon onglet se nomme Demande également. Donc j'aimerais avoir ce mot comme pièce jointe : demande.xls au lieu de classeur.xls

est-ce possible ?

merci d'avance.

[gnusti]

Bonjour,

De manière simple, tu peut enregistrer ton classeur actif (ActiveWorkbook.SaveAs...) et une fois ton fichier envoyé (il devrait avoir le bon nom cette fois) et ton classeur fermé, tu fait un kill "leChemin\Demande.xls" pour ne pas polluer...

Il doit y avoir une autre solution mais je n'ai pas cherché

[lili189]

Bonjour, merci de ta réponse.

Etant débutante en macro, peux tu m'aider ou dois je placais ce save as, et le kill svp ?

merci d'avance.

[gnusti]

Alors pour le saveAs, tu peut le mettre entre
ActiveSheet.Copy ' crée une copie de la feuille active
et
Recipients = Array("")

et le kill en dernier

[fring]

Bonjour,

Je crains que les infos données par gnusti soient encore un peu trop vagues

Teste ceci :

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
Sub envoiMailEtFeuilleActive()
Dim Nom As String
 
Application.ScreenUpdating = False
ActiveSheet.Copy ' crée une copie de la feuille active
Recipients = Array("")
With ActiveWorkbook
    Nom = "C:\Temp\" & .Sheets(1).Name & ".xls"
    .SaveAs Nom
    .SendMail Recipients, Subject:="Fichier Demande" 'envoi Mail
    MsgBox "Votre fichier a bien été envoyé dans Outlook."
    Application.DisplayAlerts = False
    .Close False ' ferme le classeur créé après l'envoi
End With
Application.DisplayAlerts = True
Shell "C:\Program Files\Microsoft Office\Office11\OUTLOOK.EXE"
Application.ScreenUpdating = True
Kill Nom ' supprime le classeur créé après l'envoi
 
End Sub

[gnusti]

Merci fring pour le complément

Je suis en plein boulot donc j'ai juste eu le temps de donner la piste