Discussion :

[phal2ip]

Bonjour,
Voilà une question qui me turlupine et je ne sais pas si cela est possible de faire.
Je dois envoyer chaque semaine des fichiers Excel par mail dont les destinataires sont dans les fichiers Excel en question.
Ma Question est toute simple, Puis je créer automatiquement (en cliquant sur un bouton par exemple dans le fichier Excel) l’ouverture d’un mail, y mettre en destinataire les personnes présentes dans le fichier Excel, remplir l’objet en fonction d’une date et y joindre le fichier correspondant ?
Si cela est possible, est ce que quelqu’un a un semblant de macro de départ ??

Merci pour tout

[Invité]

Bonjour

As-tu fait une recherche dans la FAQ Excel ?

Un exemple avec le mot mail : http://excel.developpez.com/faq/inde...echercher=mail

Tu peux aussi rechercher avec Email ou OutLook.

Philippe

[p0l1n]

j'ai fait quelque chose qui ressemble beaucoup à ce que tu veux faire, te reste à l'adapter à tes besoins

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
     Data = CStr(ActiveSheet.Cells(6, 30))      'Chemin vers dossiers où sauvegarder le fichier avant de l'envoyer dans le mail, car dans mon application j'archive la feuille dans le dossier avant de l'envoyer
     If Data = 0 Then
     MsgBox "Vous n'avez pas choisi de dossier source"
     Exit Sub
     Else
     GoTo Line1
     End If
 
Line1:
 'Prépare l'onglet dans un nouveau classeur
    ActiveSheet.Copy
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollColumn = 1
 
 'Supprime le bouton d' "envoi par courriel"
    ActiveSheet.Shapes("CommandButton1").Delete
 
 
 'Écrase le fichier s'il existe déjà sans afficher une boite de dialogue
     Application.DisplayAlerts = False
 
 'Prépare le nom de fichier "enregistré sous" tu peux changer les variables ils seront différent surement pour ton application
 
     ANNÉE = Str(ActiveSheet.Cells(2, 20))
     EMPL = "AUTO"
     CIP = CStr(ActiveSheet.Cells(2, 30))
     PÉRIODE = CStr(ActiveSheet.Cells(3, 30))
     NOM = CStr(ActiveSheet.Cells(7, 30))
     ONGLET = "2"
     BB = CStr(ActiveSheet.Cells(4, 30))
 
 
     ActiveWorkbook.SaveAs Filename:= _
        "" + Data + "\" + "Feuille Temps -" + " pér " + PÉRIODE + " - " + CIP + ".xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
 
 
    Application.DisplayAlerts = True
 
 'Prépare l'objet du courriel
    objet = "Feuille Temps" & Range("$n$2") & " période: " & PÉRIODE & "-" & NOM
     destinataire = CStr(ActiveSheet.Cells(5, 30))
 
 'Ouvre un courriel
    Application.Dialogs(xlDialogSendMail).Show destinataire, objet

Bonne chance ! en esperant que ca pourra t'aider mon ami !

[phal2ip]

Merci pour votre aide, je vais le tester et vous tiens au courant.