bonjour à tous! comme d'habitude je viens encore demander de l'aide apres avoir failli passer mon ordi par la fenetre...
j'ai fait un bouton dan outlook pour enregister des piece jointe directement dans un dossier spécifié. cela fonctionne mais lorsque que je veux changer de dossier en fonction de l'objet ou de la date du mail je n'y arrive plus. je pense que je defini mal les "object" au début pourriez vous m'aider?
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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89 Dim ObjItem As Object Dim myMail As Outlook.MailItem Dim myolApp As New Outlook.Application Dim myOlExp As Outlook.Explorer Dim myOlSel As Outlook.Selection Dim MsgTxt As String Dim DateRecep As Date Dim x As Integer Dim titre As String MsgTxt = "Vous devez selectionner un seul mail" Set myOlExp = myolApp.ActiveExplorer Set myOlSel = myOlExp.Selection x = myOlSel.Count If x <> 1 Then MsgBox MsgTxt Exit Sub End If 'récupération du nom de la piece jointe Set attachs = myOlSel.Item(x).Attachments For Each attach In attachs file = attach.FileName 'selection de l'origine du mail : ' 1er cas : petzl '************* 'c'est en dessous que cela coince : "varialbe ou objet non défini" '******************** If myMail.Subject Like "petzl" Then ' If MsgBox("facture à immobiliser?", vbYesNo) = vbYes Then attach.SaveAsFile "Z:\THUNE\2020\ACHATS\petzl\immo\" & file Else: attach.SaveAsFile "Z:\THUNE\2020\ACHATS\petzl\revente\" & file End If '************* 'c'est en dessous que cela coince : "varialbe ou objet non défini" '******************** DateRecep = Format(myMail.ReceivedTime, "dd/mm/yyyy") ' second cas autre facture Else Select Case Month(DateRecep) Case "1" attach.SaveAsFile "Z:\THUNE\2020\ACHATS\01_2020\" & file Case "2" attach.SaveAsFile "Z:\THUNE\2020\ACHATS\02_2020\" & file Case "3" attach.SaveAsFile "Z:\THUNE\2020\ACHATS\03_2020\" & file Case "4" attach.SaveAsFile "Z:\THUNE\2020\ACHATS\04_2020\" & file Case "5" attach.SaveAsFile "Z:\THUNE\2020\ACHATS\05_2020\" & file Case "6" attach.SaveAsFile "Z:\THUNE\2020\ACHATS\06_2020\" & file Case "7" attach.SaveAsFile "Z:\THUNE\2020\ACHATS\07_2020\" & file Case "8" attach.SaveAsFile "Z:\THUNE\2020\ACHATS\08_2020\" & file Case "9" attach.SaveAsFile "Z:\THUNE\2020\ACHATS\09_2020\" & file Case "10" attach.SaveAsFile "Z:\THUNE\2020\ACHATS\10_2020\" & file Case "11" attach.SaveAsFile "Z:\THUNE\2020\ACHATS\11_2020\" & file Case "12" attach.SaveAsFile "Z:\THUNE\2020\ACHATS\12_2020\" & file End Select End If ' de selection facture Next End Sub
Partager