Bonjour,

Voilà j'ai démarré une macro pour envoyer par mail des fichiers excel,
voici le 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
30
31
32
33
34
35
36
37
38
 
Sub Macro1()
    Dim CorpsMessage As String
    Dim reponse As Integer
    Dim message As String, titre As String
 
 
    message = "ATTENTION ! Les fiches de conformité doivent être toutes transférées pour la journée. La journée est-elle terminée ?"
    titre = "Feuille de conformité"
 
    reponse = MsgBox(message, vbCritical + vbYesNo, titre)
    If reponse = vbNo Then
        Exit Sub
    End If
    Application.ScreenUpdating = False
 
    Dim MonOutlook As Object
    Dim MonMessage As Object
 
        Set MonOutlook = CreateObject("Outlook.Application")
        Set MonMessage = MonOutlook.createitem(0)
        MonMessage.To = "**@**"
        MonMessage.Subject = "Feuilles de conformité, feuille de saisies"
        MonMessage.body = "Bonjour," & vbCrLf & vbCrLf _
                    & "Veuillez trouvez ci-joint les feuilles en rapport avec l'agréage" & Range("C74").Value & vbCrLf & vbCrLf _
                    & "Cordialement " & vbCrLf _
 
 
 
 
        MonMessage.Attachments.Add "S:\Publicag\projet d'agréage\Sauvegardes\Sauvegardes\Feuille de saisies_280411.xls"
        MonMessage.Attachments.Add "S:\Publicag\projet d'agréage\Sauvegardes\Sauvegardes\Feuilles_De_Conformité.xls"
 
        MonMessage.display
 
        Set MonOutlook = Nothing
        Application.ScreenUpdating = True
End Sub

La macro fonctionne très bien mais,

En faite je voudrai à la place d'aller chercher les fichiers sur mon réseau, mettre les 2 feuilles qui sont déjà dans mon fichier sans passer par une phase d'enregistrement temporaire.

donc je voudrai changer ces deux lignes :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
        MonMessage.Attachments.Add "S:\Publicag\projet d'agréage\Sauvegardes\Sauvegardes\Feuille de saisies_280411.xls"
        MonMessage.Attachments.Add "S:\Publicag\projet d'agréage\Sauvegardes\Sauvegardes\Feuilles_De_Conformité.xls"
Je ne sais pas trop comment m'y prendre, j'ai essayé diverses choses mais ça ne fonctionne pas avec le fait de mettre MonMessage.Attachments.Add


Voilà,

Merci d'avance,

Ed'