Discussion :

[nathalie.de]

Bonjour !

Je cherchais à extraire d'outlook 2007 tous les jours, 3 fichiers portant toujours le même nom, vers un dossier déjà existant (c:\nathalie) juste que là j'y suis parfaitement arrivée. Mais je n'arrive pas à lui dire qu'il faut que ces 3 fichiers arrivent dans un sous dossier qu'il faut créer automatiquement avec la date du jour (02102015). Pourriez vous m'aider ???? milles merci !!!

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
Dim x As Integer
 
    'Permet d'extraire pj de boite de réception 
Sub ExtrairePjXml()
    Dim Ol As New Outlook.Application
    Dim Ns As Outlook.NameSpace
    Dim Inbox As MAPIFolder
 
    Set Ns = Ol.GetNamespace("MAPI")
    Set Inbox = Ns.GetDefaultFolder(olFolderInbox)
 
    Dim x As Integer
    Dim y As Integer
    Dim OLmail 'As Outlook.MailItem
    Dim pceJointe As Outlook.Attachment
    Dim SousDossier As Outlook.MAPIFolder
 
    If Inbox.DefaultItemType = 0 Then
        For Each OLmail In Inbox.Items
            If Not OLmail.Attachments.Count = 0 Then
                For y = 1 To OLmail.Attachments.Count
                     Set pceJointe = OLmail.Attachments(y)
                     'pceJointe.SaveAsFile "C:\" & x & "_" & pceJointe
                     If pceJointe.FileName Like "*PROD.ENTREPARTICULIERS*" Then
                        x = x + 1
                        pceJointe.SaveAsFile "C:\nathalie\" & x & "_" & pceJointe.FileName
                     End If
                    Set pceJointe = Nothing
                Next y
            End If
        Next OLmail
    Else
        MsgBox (Inbox.DefaultItemType)
    End If
 
End Sub

[ProgElecT]

Salut
je pense qu'il faut créer le sous dossier avant de sauvegarder le fichier (et peut être vérifier avant s'il existe ou pas)
Pour construire le nom du sous dossier en VBA

Code :

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

1
2
Dim NomDoss As String
NomDoss = Format(Day(Date), "00") & Format(Month(Date), "00") & Year(Date)

[nathalie.de]

Bonjour,


Merci pour la construction du dossier... reste à savoir comment je m'y prend pour que mes 3 fichiers soit sauvés automatiquement dans un fichier qui doit se créer avec la date du jour...

Nathalie

[SfJ5Rpw8]

Bonjour,

pour créer un dossier en VBA tu peu-utiliser MKDIR

[nathalie.de]

Merci Mr Baker !!

Sauf que je ne suis pas très douée en VBA et que j'arrive au bout de mes "faibles" connaissances... donc... comment puis je utiliser la fonction MKDIR dans le code que j'utilise déjà ? en sachant qu'il me faut un sous dossier chaque jour....

merci

[SfJ5Rpw8]

Re,

voilà :

Code :

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

1
2
3
4
5
6
7
8
'(...)
Dim NomDoss As String
 '(...)
 x = x + 1
 
NomDoss = "c:\ " & Format(Date, "ddmmyyyy")
If Dir(NomDoss, vbDirectory) = "" Then MkDir NomDoss 'Créé le dossier s'il nexiste pas
pceJointe.SaveAsFile NomDoss & "\" & x & "_" & pceJointe.Filename

[nathalie.de]

Merci beaucoup ! ca marche nickel !


merci pour votre aide !