Discussion :

[amour076]

bonjour,
j'ai fait un export d'emails de outlook à excel et j'obtiens :
A B C
A(nom) Objet Message

et j'aimerais dans le Message obtenir seulement le corps, c'est-à-dire enlever les retours chariots, les 'bonjours' et la signature. Puis-je faire ça avec une macro?

j'ai déja une macro que j'ai enregistré mais elle se fait seulement sur les lignes 2 et 3 mais pas sur les autres lignes

voici mon code :

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
Sub Macro4()
'
' Macro4 Macro
' Macro enregistrée le 18/06/2009 par DOC.STAGE
'
 
'
    Range("C2").Select
    ActiveCell.FormulaR1C1 = _
        "" & Chr(10) & "Corinne SOREL" & Chr(13) & "" & Chr(10) & "" & Chr(13) & "" & Chr(10) & " " & Chr(13) & "" & Chr(10) & "" & Chr(13) & "" & Chr(10) & "Assistante du Centre DOCumentation/Ressources Economiques" & Chr(13) & "" & Chr(10) & "" & Chr(13) & "" & Chr(10) & " " & Chr(13) & "" & Chr(10) & "" & Chr(13) & "" & Chr(10) & "Direction des Entreprises et de l’Action Territoriale" & Chr(13) & "" & Chr(10) & "" & Chr(13) & "" & Chr(10) & " " & Chr(13) & "" & Chr(10) & "" & Chr(13) & "" & Chr(10) & "Chambre de Commerce et d’Industrie de Rouen" & Chr(13) & "" & Chr(10) & "" & Chr(13) & "" & Chr(10) & " " & Chr(13) & "" & Chr(10) & "" & Chr(13) & "" & Chr(10) & "Tél : 02.35.14.37.60  Fax : 02.35.14.38.3"
    ActiveCell.FormulaR1C1 = _
        "" & Chr(10) & "Corinne SOREL" & Chr(10) & "Assistante du Centre DOCumentation/Ressources Economiques" & Chr(10) & "Direction des Entreprises et de l’Action Territoriale" & Chr(10) & "Chambre de Commerce et d’Industrie de Rouen" & Chr(10) & "Tél : 02.35.14.37.60  Fax : 02.35.14.38.3"
    With ActiveCell.Characters(Start:=1, Length:=212).Font
        .Name = "MS Sans Serif"
        .FontStyle = "Normal"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("C3").Select
    ActiveCell.FormulaR1C1 = _
        "" & Chr(10) & "Corinne SOREL" & Chr(10) & "Assistante du Centre DOCumentation/Ressources Economiques" & Chr(10) & "Direction des Entreprises et de l’Action Territoriale" & Chr(10) & "Chambre de Commerce et d’Industrie de Rouen" & Chr(10) & "Tél : 02.35.14.37.60  Fax : 02.35.14.38.31"
    With ActiveCell.Characters(Start:=1, Length:=213).Font
        .Name = "MS Sans Serif"
        .FontStyle = "Normal"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("C7").Select
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
End Sub

Merci de m'aider
Cordialement
Audrey

[Krovax]

Je m'étais dit que le prochain qui n'utilise pas les balise code je laisse tombé, mais bon entre stagiaire faut bien s'aider.

Mais pour la prochaine fois met des balise regarde ce lien pour savoir comment

Il faudrait que tu nous dise ou se trouve le message dans une cellule? Toujours au meme endroit?
Comment peut tu reconnaitre automatiquement la signature?
(elle commence toujours de la meme facon? c'est toujours le meme nombre de ligne? il faut un critère fixe un être humain est capable de se dire facilement "tiens ca c'est une signature" un ordi non )

Tu peux essayer la fonction replace

Code :

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

1
2
 
range("C2")=replace(Range("C2"),chr(13),"")

pareille avec "bonjour" et chr(10) a la place de chr(13)

Avec un peu plus d'info on pourra faire un peu mieu, avec bcp plus d'info (utile et précise) on pourra faire beaucoup mieu