Fin d'instruction ??

[EXCELERATOR]

La macro bloque avec la fin d'instruction Next
j'ai essayé next et next olMsg
Mais ça marche pas.. ?
quelqu'un à une idée ? merci d'avance



Private Sub Application_NewMail()
Dim olSpace As NameSpace
Dim olFolder As MAPIFolder, olInbox As MAPIFolder
Dim olMsg As MailItem
Dim pceJointe As Attachment
Dim y As Integer, x As Integer

Set olSpace = Application.GetNamespace("MAPI")
Set olInbox = olSpace.GetDefaultFolder(olFolderInbox)

'boucle sur tous les messages de la boîte de réception
For Each olMsg In olInbox.Items
If Left(olMsg.Subject, 17) = "Rapport journalier" Then
If Not olMsg.Attachments.Count = 0 Then
For y = 1 To olMsg.Attachments.Count
Set pceJointe = olMsg.Attachments(y)
x = x + 1
pceJointe.SaveAsFile "D:\Bureau\RJ\" & x & "_" & pceJointe
Set pceJointe = Nothing
Next y
End If
End If
Next
End Sub

 

[Compte Supprimé 979]

Re : Fin d'instruction ??

Salut Excelerator,

Tout à l'air bon pourtant tu as bien des
If .. End IF
For .... Next

Qu'elle référence as-tu déclaré dans VBA pour définir

Dim olSpace As Namespace

Trouvé, c'est pour Outlook ?

Ce ne serait pas plutôt ça

Dim olSpace As [COLOR=blue][B]Outlook.[/B][/COLOR]nameSpace
Dim olFolder As [COLOR=blue][B]Outlook.[/B][/COLOR]MAPIFolder, olInbox As [COLOR=blue][B]Outlook.[/B][/COLOR]MAPIFolder
' Etc ...

A+

 

[EXCELERATOR]

Re : Fin d'instruction ??

Salut BrunoM45
et merci pour ta réponse !

J'ai récupérer cette macro en cherchant sur le forum.
C'est une macro de MichelXld .


J'essaie de l'utiliser pour récupérer des fichiers excel dans Outlook vers un dossier sur mon bureau.

Et pour répondre à ta question => j'ai rien défini, j'ai recopié tel quel.

Alors peut-être que les erreurs viennent de là ?
Aucune idée...

 

[EXCELERATOR]

Re : Fin d'instruction ??

Je me rends compte que je suis pas assez explicite, c'est une macro qui est directement sous OUTLOOK!

 

[Compte Supprimé 979]

Re : Fin d'instruction ??

Re,

c'est une macro qui est directement sous OUTLOOK!

Wouahouuuuu .... alors tu n'es pas sur le bons forum

Ici on ne parle que d'Excel .....

Mais bon, je ne peux pas t'aider, nous n'avons pas Outlook

A+

 

[EXCELERATOR]

Fin d'instruction ?? ou fin de discussion ???

Dans tous les cas je te remercie BrunoM45


A plus dans le bus

 

[PascalXLD]

Re : Fin d'instruction ??

Bonjour

Fil déplacé sur le bon forum