Discussion :

[kbv14]

bonjour,

débutant en vba , je cherche à faire une macro qui ira chercher les informations contenus dans des mails, tous situé dans un même dossier.
Chaque ligne de caractère compris entre ":" et le retour chariot du mail N°1 doit se retrouver dans la cellule A1 puis B1....etc
chaque ligne du mail N°2 doit se retrouver dans la cellule A2 puis B2...etc

Voila le code que j'ai fait mais ça ne marche pas tout à fait puisque je me retrouve avec un tableau excel remplis en "escalier"...:

----------------------------------------------------------------------------------------------------------------------
Sub copie()


Set olApp = CreateObject("Outlook.Application")
Set olns = olApp.GetNamespace("MAPI")
Set olxFolder = olns.GetDefaultFolder(6).Folders("web") ' olns.GetDefaultFolder(olFolderInbox).Folders("web")

On Error Resume Next

'verif chaque ligne du mail
For Each i In olxFolder.Items
'on commence à la ligne 9 du mail
For x = 9 To UBound(Split(i.body, vbCrLf))
ligne = ligne + 1
n = n + 1
Cells(n, ligne) = Split(i.body, vbCrLf)(x)
Next x


Next


End Sub
------------------------------------------------------------------------------------

voila,

si quelqu'un peut m'aider

Merci d'avance

[Menhir]

En phase de développement, "On Error Resume Next" est à éviter absolument : ce n'est pas en masquant les erreurs qu'on peut les corriger.

Pour le reste, n'ayant jamais manipulé d'objet Outlook, je ne peux pas t'aider.

[joe.levrai]

Bonjour,

pour chaque mail, on doit se décaler d'une ligne : il faut donc modifier la ligne quand on change de mail
pour chaque ligne du mail, on doit se décaler d'une colonne : il faut donc réinitialiser la colonne à chaque mail, et incrémenter la colonne pour chaque ligne du mail

Regarde si c'est mieux ainsi

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
Sub copie()
 
Set olApp = CreateObject("Outlook.Application")
Set olns = olApp.GetNamespace("MAPI")
Set olxFolder = olns.GetDefaultFolder(6).Folders("web")
 
For Each i In olxFolder.Items
   ligne = ligne + 1
   n = 0
 
   For x = 9 To UBound(Split(i.body, vbCrLf))
        n = n + 1
       Cells(n, ligne) = Split(i.body, vbCrLf)(x)
   Next x
Next
 
End Sub

[kbv14]

bonjour,

merci beaucoup joe.levrai.

je m'étais mal exprimé mais du coup votre solution m'a mis sur la bonne voie et le tableau excel se remplit comme il faut:
chaque info identique de chaque mail se met dans une cellule et ainsi de suite donc dans la colonne 1 j'ai toutes les infos "nom", dans la colonne 2 toutes les infos "identifiant".....
---------------------------------------------------------------------------------------------------------------------------------
Sub copie()


Set olApp = CreateObject("Outlook.Application")
Set olns = olApp.GetNamespace("MAPI")
Set olxFolder = olns.GetDefaultFolder(6).Folders("web") ' olns.GetDefaultFolder(olFolderInbox).Folders("web")

n = 1

'verif chaque ligne du mail
For Each i In olxFolder.Items
ligne = 0
n = n + 1
'on commence à la ligne 9 du mail
For x = 3 To 23
ligne = ligne + 1
Cells(n, ligne) = Split(i.body, vbCrLf)(x)
Next x


Next


End Sub
-------------------------------------------------------------------------

Merci beaucoup.