Discussion :

[nonesofar]

Bonjour,

J'ai développé une macro qui permet de télécharger la PJ d'un email dans un dossier sur le lecteur C de l'utilisateur.

La macro fonctionne parfaitement sauf que lorsqu'un utilisateur est sous 2010, il faut activer Microsoft Outlook 14.0 Object Library

Or sous 2013 il faut activer Microsoft Outlook 15.0 Object Library comme sur la capture d'écran ci-dessous.


Cela fait bugger à chaque fois le code entre les deux utilisateurs, ce qui pénible !!

J'ai essayé de bindé mon code sans succés .

Si vous avez une piste sur ce sujet?

Merci d'avance !!

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
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
    Dim olApp As Object
    Dim olSpace As Object
    Dim olInbox As Object
    Dim olFolder As Object
    Dim olMail As Object
    Dim pceJointe As Object
    Dim PJ As Boolean
 
 
Dim NomDossier As String
Dim i As Integer
Dim strPath As String, PathOrigine As String
Dim NomOrigine As String
Dim reponse As Variant
 
'test si outlook ouvert
    Set olApp = CreateObject("Outlook.Application")
 
 If olApp.ActiveWindow Is Nothing Then
        Sheets("Start").Activate
        Title = "Error"
        reponse = MsgBox("Thanks to open Microsoft Outlook before updating database", vbCritical + vbOKOnly, Title)
        Exit Sub
    End If
 
Compare = False
PJ = False
 
Application.DisplayAlerts = False
Application.ScreenUpdating = False
 
'Défini le dossier OutLook recherché
NomDossier = "LCR Wemed"
 
    Set olSpace = olApp.GetNamespace("MAPI")
    Set olInbox = olSpace.GetDefaultFolder(olFolderInbox)
    Set olFolder = olInbox.Folders(NomDossier)
    Set olMail = olApp.CreateItem(olMailItem)
    Set pceJointe = olMail.Attachments
 
'Check si dossier tampon existe sur le pc et va le créer sinon
If Len(Dir("C:\Tampon\", vbDirectory)) = 0 Then
   MkDir "C:\Tampon\"
End If
 
PathOrigine = "C:\Tampon\"
Bascule = False
 
For Each olMail In olFolder.Items
 
   If Day(olMail.SentOn) = Day(Now) And Abs(DateDiff("h", olMail.ReceivedTime, Now())) <= 24 And olMail.SentOn > lastin Then
       If olMail.Attachments.Count > 0 Then
 
           For y = 1 To olMail.Attachments.Count
               Set pceJointe = olMail.Attachments(y)
 
               If InStr(1, pceJointe.Filename, "LCR16-Voyage All Legs") Then
 
                    NomOrigine = y & "_" & pceJointe
                    pceJointe.SaveAsFile PathOrigine & NomOrigine
                    lastin = olMail.SentOn
 
                    Bascule = True
               End If
 
               Set pceJointe = Nothing
           Next y
 
        End If
    End If
 
Next olMail

[Marc-L]

Bonjour,

ne pas activer de référence dans le projet (déclaration anticipée) au profit de la déclaration tardive

comme expliqué dans le tutoriel Les fiches VBA - Comprendre : Early ou Late Binding

sans compter les nombreux exemples dans les discussions de ce forum !

_________________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …

[nonesofar]

Salut Marc-L,

J'ai déjà fait la demarche de déclarer les variables as object dans mon code.

C'est pour ça que je ne comprends pas d'ou peut venir mon erreur.

Code :

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

1
2
3
4
5
 
 
Dim olApp As Object
 
Set olApp = CreateObject("Outlook.Application")

Sinon j'ai vu qu'on peut activer les références en vba comme ci-dessous. Peut-être une solution??

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub ActiveRef()
'Active la référence à Outlook selon la version d'excel    
Select Case Application.Version
        Case "11.0"
            Call Addref("c:\Program Files\Microsoft Office\OFFICE11\msoutl.olb")
        'Case le no de version de 2007
            'Call Addref("L'adresse du fichier")
    End Select
End Sub
 
Sub Addref(AdresseRef As String)
  On Error Resume Next
  ThisWorkbook.VBProject.References.AddFromFile AdresseRef
End Sub

[Marc-L]

ne pas activer de référence dans le projet

[nonesofar]

Merci de ta réponse mais c'est encore un peu flou encore pour moi.

Si je n'active pas les références à outlook mon code bloque à ce niveau avec un argument ou appel de procédure incorrect.

Code :

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

Set olInbox = olSpace.GetDefaultFolder(olFolderInbox)

Pourtant j'ai bien déclaré comme objet la variable!!

Code :

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

1
2
3
4
5
6
 
 
Dim olInbox As Object
 
 
Set olInbox = olSpace.GetDefaultFolder(olFolderInbox)

Donc je peux en déduire que c'est cette déclaration qui ne fonctionne pas??


Cordialement.

[joe.levrai]

Bonjour,

en liaison tardive, c'est à dire sans activer la référence à Outlook, tu ne peux pas utiliser les constantes de façon nominatives, dans ton cas c'est olFolderInbox

tu dois remplacer le nom de la constante par sa valeur numérique, cette constante, par exemple, est la numéro 6

[nonesofar]

Bonjour à tous,

Merci pour votre expertise .

En effet j'ai rajouté

Code :

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

1
2
3
 
Const olFolderInbox As Long = 6
Const olMailItem = 0

Cela semble fonctionner correctement avec les références désactivés du coup.


Merci et bonne journée.