Discussion :

[snico78]

bonsoir tous le monde

j'aurais besoin de vos aide

tous les matins je fait une extraction SAP qui me sauvegarde un fichier en EXCEL avec ce nom " piece" & Day(Date)
jusque la pas de problème

ensuite je l'envoi via a un mail outlook manuellement

ce que j'aimerez faire c'est lancer la macro et que sa m'envoi le mail en auto mais je bloque sur comment dire a la macro d'allé cherché t-elle fichier sachant qu'il change tous les jours juste la date mais pas le nom

quel est la solution ?

merci de vos aide

bonne soirée

[snico78]

bonsoir tous le monde

j'avance doucement dans mais problème

mon problème maintenant est que j'arrive a créez mais mail avec le texte que je veut
mais je n'arrive pas a y joindre de pièce jointe



a savoir que je fait une extraction et que mon fichier change de date tous les jours

voici le nom de mon fichier il faudrait que la macro cherche le fichier avec la date du jour pour la mettre en PJ dans le mail

T:\piece\piece 16-octobre-2014.xlsx

merci de vos aide
bonne soirée

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
Dim AppOut As Object
Dim oMailItem As Object
Dim NomModele As String
Dim NomFichier As String
 
NomModele = "C:\Temp\piece.oft"
 
 
 
 
Set AppOut = CreateObject("Outlook.Application")
 
 
 
Set oMailItem = AppOut.CreateItemFromTemplate(NomModele)
oMailItem.Display
 
 
 
 
With oMailItem
 
        .Attachments.Add "T:\piece\piece 16-octobre-2014.xlsx"
 
        .Display

[Emmanuel R]

Bonjour,
Pour modifier la date, il suffit d'utiliser l'objet Now et de le mettre au bon format.
Dans ton cas ça donne ça :

Code :

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

.Attachments.Add "T:\piece\piece " & Format(Now, "d-mmmm-yyyy") & ".xlsx"

Petite digression, mais je pensais qu'il existait une possibilité d'envoyer directement des mails à partir d'une planification SAP (en tout cas c'est ce qu'on fait dans ma boîte avec Business Objects). Ce serait peut-être plus simple pour toi que de rajouter une deuxième couche d'application.

[snico78]

merci pour la réponse pour SAP vue que j'ai besoin de modifier le fichier excel plus simple de mon point de vue

merci pour me code

Code :

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

.Attachments.Add "T:\piece\piece " & Format(Now, "d-mmmm-yyyy") & ".xlsx"

donc en mettant Now quand mon mail sera envoyer et il ira cherche le fichier avec la date du jour ?

exemple j'ai 3 fichiers je lance la macro je veut qu'il m'envoi le pièce 17 octobre

Code :

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

1
2
3
.Attachments.Add "T:\piece\piece 17-octobre-2014.xlsx"
.Attachments.Add "T:\piece\piece 16-octobre-2014.xlsx"
.Attachments.Add "T:\piece\piece 15-octobre-2014.xlsx"

merci

[Emmanuel R]

Ouaip'. En fait, le code Format(Now, "d-mmmm-yyyy") te renvoie une unique valeur. Du coup, ça ne mettra qu'un seul fichier en PJ.

Si tu veux tester ce que ça donne en terme d'affichage, essaie avec des MsgBox. De plus, si tu souhaites une date différente, tu peux ajouter ou décrémenter Now.

Code :

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

1
2
3
4
Sub test()
    MsgBox "T:\piece\piece " & Format(Now, "d-mmmm-yyyy") & ".xlsx"
    MsgBox "T:\piece\piece " & Format(Now - 1, "d-mmmm-yyyy") & ".xlsx"
End Sub

[snico78]

merci pour la réponse

Je joint qu'une pièce jointe mais je veut que sa soit celle qui est daté du jours qui soit prise

Code :

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

Attachments.Add "T:\piece\piece " & Format(Now, "d-mmmm-yyyy") & ".xlsx"

donc besoin d'utilisé que ça ?

merci pour ton aide Emmanuel

[snico78]

merci sa fonctionne