Discussion :

[ArnaudTar]

Bonjour à tous et à toutes.

Pour vous présenter mon projet :
Je vais recevoir sur une boîte mail des e-mails provenant d'une application mobile (application utilisée sur chantier). Ces e-mails auront tous un objet sous le même format :
N°Chantier - TypeFichier - Date
Chaque mail comprendra une unique pièce jointe.
J'aimerais, à l'arrivée de chaque mail, que la pièce jointe soit enregistrée dans le bon dossier, c'est à dire :
Sous X:\Registres\
1er dossier : N° Chantier
---2nd dossier : Type de fichier
------Enregistrement de la PJ sous la forme : N°Chantier - TypeFichier - Date

Actuellement, dans mon dossier principal, se trouve juste un modèle comprenant tous les type de sous-dossiers possibles :
Sous X:\Registres\
1er dossier : Modèle
---2eme dossier : Type de fichier 1
---------------------Type de fichier 2
...

J'ai donc tenté de faire moi-même mon code VBA en prenant à droite et à gauche des informations sur les forums, cela donne :

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
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
 
    'Déclarations
    Dim MonApp As Outlook.Application
    Dim MonMail As Object
    Dim MonNameSpace As Outlook.NameSpace
    Dim MonDossier As Outlook.Folder
    Dim NomMail As Object
    Dim pceJointe As Outlook.Attachment
 
    'Instance des objets
    Set MonApp = Outlook.Application
    Set MonNameSpace = MonApp.GetNamespace("MAPI")
    Set MonDossier = MonNameSpace.GetDefaultFolder(olFolderInbox)
    Set MonMail = Application.Session.GetItemFromID(EntryIDCollection)
 
    Set NomMail = MonMail.Subject
    Set PJ = MonMail.Attachements
 
    Dim NumChantier As String
    Dim NbCaracNumChantier As String
 
        'Test si l'expéditeur correspond
        If MonMail.SenderEmailAddress = "a.tarbour@gmail.com" Then
            'Vérifier si le répertoire existe, si non le créer
                'Compte le nombre de caracteres avant le premier - et les extraits dans la variable NumChantier
            NbCaracNumChantier = InStr(NomMail, "-")
            NumChantier = Left(NomMail, NbCaracNumChantier)
            'Si le répertoire avec le numéro de chantier n'existe pas, le créer
            If Dir("X:\Registres" & NumChantier, vbDirectory) <> "" Then
            Else
                FileSystemObject.CopyFolder "X:\Registres\Modele dossier chantier", "X:\Registres\" & NumChantier
            End If
            'Extraire le type de fiche reçue et le copier dans le bon répertoire
                'Se placer après le premier tiré, puis aller chercher le prochain tiré pour extraire seulement le type de fichier
            x = NbCaracNumChantier + 1
            NbCaracFiche = InStr(x, NomMail, "-")
            NomFiche = Mid(NomMail, NbCaracNumChantier, NbCaracFiche - NbCaracNumChantier)
                'Sauvegarder la pièce jointe dans le dossier correspondant à la fiche, en la renommant avec le nom du mail (numchantier - type fichier - date).
            PJ.SaveAsFile "X:\Registres\" & NumChantier & "\" & NomFiche & "\" & NomMail
 
        End If
 
End Sub

Je me retrouve avec deux soucis :
1 : Je ne peux plus quitter le mode création...
2 : Lorsque je pouvais encore effectuer mes test, cela ne fonctionnait pas tellement...

Je suis loin d'être un expert en VBA et en programmation en règle général, et je vous avoue commencer à atteindre mes limites de compétences.

Je vous remercie par avance pour votre aide.
Bonne journée à tous.

Arnaud.

[Oliv-]

Bonjour,
C'est un bon début

Par contre

Code :

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

Set PJ = MonMail.Attachements

représente toutes les PJ du mail, donc tu ne peux faire

Code :

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

PJ.SaveAsFile "X:\Registres\" & NumChantier & "\" & NomFiche & "\" & NomMail

tu dois parcourir toutes les PJ avec un Fora each ou autre boucle ou si tu es sûr qu'il n'y en a qu'une

Code :

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

PJ(1).SaveAsFile "X:\Registres\" & NumChantier & "\" & NomFiche & "\" & NomMail

[ArnaudTar]

Bonjour Oliv,

Merci pour votre réponse. Je vais déjà corriger cette partie.

Avez-vous une idée pour le mode création? Car je n'arrive pas à m'en dépatouiller :/

[Oliv-]

le mode création est dans VBE (ALT+F11) à partir d'outlook.
c'est l'icone



également dans le menu Exécution

[ArnaudTar]

Bonjour Oliv,

J'ai ce message qui s'affiche



Je suis allé voir dans les paramètres "sécurité des macro", mais même en activant toutes les macro rien en bouge...
Une idée?

Merci d'avance !

Arnaud.



EDIT : En activant les macro au démarrage, cela re-fonctionne !

Je continue de tester ma petite Macro, je reviens vers toi si j'ai un problème.
Merci en tout cas de ta précieuse aide !

Bien à toi,
Arnaud,

[ArnaudTar]

Me revoilà, moi et mes soucis. Et comme une image vaut bien mieux que 1000 mots, voici en clair ce qui se passe :



Je ne comprend pas très bien les déclarations, quand je regarde sur la FAQ elles diffèrent d'un code à l'autre...
Si quelqu'un a des explications à m'apporter, je suis bien évidemment preneur !

Merci d'avance,

Cordialement,
Arnaud.