[Excel] macro outlook ne traite jamais dernier mail sauf si un seul

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Excel] macro outlook ne traite jamais dernier mail sauf si un seul

wago

Bonjour à tous,

clairement je galère, je suis en train de créer une macro sous excel qui va récupérer des fichiers xml reçus en PJ de mail.
lorsque j’exécute cette macro tout va bien:

Code :

Sub test()
Application.Calculation = xlManual
Application.ScreenUpdating = False
Dim myOlApp As Outlook.Application
Dim myNameSpace As Object
Dim myInbox As Object
Dim DossierSource As Object
Dim DossierTraite As Object
Dim myItem As Object, myAttachments As Object
Dim RepSauv As String
Dim ExtFich As String
Set myOlApp = CreateObject("Outlook.Application" )
Set myNameSpace = myOlApp.GetNamespace("MAPI" )
Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
Set DossierSource = myInbox.Folders("XML" )
Set DossierTraite = myInbox.Folders("XML" ).Folders("Traités" )
RepSauv = "C:\XML\test\"
For Each myItem In DossierSource.Items
Set myAttachments = myItem.Attachments
If myAttachments.Count > 0 Then
'for all attachments do...
For i = 1 To myAttachments.Count
ExtFich = Mid(myAttachments(i), InStrRev(myAttachments(i), "." ) + 1)
If ExtFich = "xml" Then
'save them to destination
myAttachments(i).SaveAsFile RepSauv & myAttachments(i).DisplayName
End If
Next i
End If
'Set myItem = myItem.Move(DossierTraite) (Ignorée car me pose Pb)
Next
Application.Calculation = xlAutomatic
End Sub

il récupère bien que les XML des mails dans le répertoire défini.

Par contre dès que j'active cette ligne dans mon code pour déplacer le mail traité dans le sous répertoire "traités":

Code :

Set myItem = myItem.Move(DossierTraite)

A chaque fois il me zappe un mail, il ne le traite pas du tout, comme s'il n'existait pas, et quand je relance à nouveau la macro là il le traite.
Je ne comprends pas pourquoi?!? :pt1cable: Et c'est systématiquement le dernier mail de la liste qu'il ne traite pas.

Help me :hello:

Message édité par wago le 20-06-2017 à 12:21:56

Publicité

Marc L

Bonjour,

pourquoi Set myItem = ?! Quel intérêt ?

wago

J'ai pris ce bout de code sur un forum. J'ai essayé sans mais ça ne fonctionne pas, ça me renvoie une erreur.

Marc L

C'est bien là le problème : Copier / Coller n'est pas coder …

Comme la variable est celle utilisée par la boucle, il ne faut surtout pas la modifier au sein de cette boucle !
Es-tu sûr au moins que le code copié fonctionne déjà là où tu l'as pris ?! Car tel quel, j'en doute fort …

Message cité 1 fois

wago

Marc L a écrit :

Je croyais être sur un forum d'entre aide pas de leçon... Bref j'ai trouvé comment faire, en rejouant tout bêtement en boucle le déplacement tant qu'il y a des mails dans le répertoire concerné.
Si ça intéresse qqn:

Code :

Sub DEPLACEMENT()
'Macro de déplacement des emails traités vers le repertoire "Traités" de la bal outlook
Application.ScreenUpdating = False
'Déclaration des variables
Dim MyOlapp As Object
Dim myNameSpace As Object
Dim myInbox As Object
Dim myDestFolder As Object
Dim myItems As Outlook.Items
Dim myItem As Object
On Error GoTo err
'Deplace chaque mail vers le repertoire traité de la boite mail
deplace:
Set MyOlapp = CreateObject("Outlook.Application" )
Set myNameSpace = MyOlapp.GetNamespace("MAPI" )
Set myInbox = myNameSpace.Folders("Ma boite de fonction" ).Folders("Boîte de réception" ).Folders("XML" )
Set myItems = myInbox.Items
Set myDestFolder = myNameSpace.Folders("Ma boite de fonction" ).Folders("Boîte de réception" ).Folders("XML" ).Folders("Traités" )
For Each myItem In myItems
myItem.Move myDestFolder
Next
'Teste la présence de mail dans le repertoire xml, s'il reste des mail rejoue le bloc du dessus
testmail:
Dim EmailCount As Integer
EmailCount = myInbox.Items.Count
If EmailCount > 0 Then
GoTo deplace
End If
Exit Sub
err:
MsgBox ("Une erreur est survenue." & Chr(10) & "Il se peut que:" & Chr(10) & " -Outlook ne soit pas executé" & Chr(10) & " -Le repertoire XML n'existe pas" )
End Sub

Merci quand meme :hello:

Message édité par wago le 04-07-2017 à 22:11:14

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[Excel] macro outlook ne traite jamais dernier mail sauf si un seul

Sujets relatifs
Macro de suppression pour word	envois mail par macro sous excel
mise en forme automatique des titres d'un fichier word par un macro v	Macro capture d'écran
Export Excel=> TXT avec suppression doublon	Extraction de données de logs dans un répertoire vers Excel
Enregistrer les données contenues dans un formulaire excel (textbox) v
Plus de sujets relatifs à : [Excel] macro outlook ne traite jamais dernier mail sauf si un seul

Page générée en 0.052 secondes