Bonjour,

Je suis étudiante en biologie alimentaire donc rien à voir avec l'informatique... Pourtant depuis 4 jours j'ai du me mettre aux macros, ce qui laisse sous entendre que mon niveau est très très bas...

Je souhaiterai que tous les fichiers joints de mes emails aillent dans un dossier de mes documents automatiquement sans que j'ai besoin de faire quoi que ce soit.

Le premier hic c'est que j'ai un code dont j'aimerai qu'il apparaisse dans les scripts car je voudrais l'utiliser dans les règles et alertes...

Le second hic c'est que ce code utilisé en macro me demande de choisir l'endroit ou se trouvent mes pièces jointes


Or moi je sais que que c'est dans ma boite de réception que ce trouvent mes PJ !

Sauriez vous comment modifier ce code pour que ça s'execute automatiquement et qu'il apparaisse dans les scripts ?

Je sais qu'il existe déjà un tas de codes sur ce sujet mais aucun n'a fonctionné jusque là hormis celui là et j'en ait déjà éssayé plein

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
Sub Script(strPath As String)
Dim Ol_App As New Outlook.Application
Dim Ol_MAPI As Outlook.NameSpace
Dim Ol_Items As Outlook.Items
Dim Ol_Item As Outlook.MailItem
 
 
Set Ol_MAPI = Ol_App.GetNamespace("MAPI")
Set Ol_Items = Ol_MAPI.PickFolder.Items
For Each Ol_Item In Ol_Items
NbAttachments = Ol_Item.Attachments.Count
i = 1
 
Do While i <= NbAttachments
strAttachment = Ol_Item.Attachments.Item(i).FileName
Ol_Item.Attachments.Item(i).SaveAsFile strPath & strAttachment
i = i + 1
Loop
Next Ol_Item
 
Set Ol_Item = Nothing
Set Ol_Items = Nothing
Set Ol_MAPI = Nothing
Set Ol_App = Nothing
End Sub
Sub PJenregistrement()
Call Script("C:\Documents and Settings\oroux\Mes documents\Analyses LABO\")
End Sub