Discussion :

[djibouli]

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

[Oliv-]

SALUT,

est ce que les dossier de destination existent bien ?

[djibouli]

bonjour, je n'avai pas reçu de mail signalent votre réponse du coup je viens de la voir que maintenant, désolé de vous réponde si tard. en revanche mon problème a empiré je n'arrive plus à lancer aucune macro depuis outllok, pour tant elles fonctionnent bien quand je les lance en manuel depuis l'explorateur de projet VBA. j'ia essayer de réparer office et de mettre ces macro sur d'autre poste avec la même licence office 365 sans suces aurriez-vous une idée?