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
| Sub Traitement Objet()
'
' Macro d'extraction des informations contenu dans l'objet du mail
'
Dim valeur As String
Dim tableau() As String
Dim feuil As Worksheet
Dim i, a, b, end_ligne_temp As Integer
Sheets(1).Select
end_ligne_temp = ActiveCell.SpecialCells(xlCellTypeLastCell).Row
For a = 1 To end_ligne_temp
Cells(a, 1).Select
valeur = Cells(a, 1).value
tableau = Split(valeur, " ")
For i = 0 To UBound(tableau)
Cells(a, i + 2).value = tableau(i)
Next i
Next a
For b = 1 To end_ligne_temp
If Len(Cells(b, 9).value) = 17 Then
Cells(b, 9).value = Mid(Cells(b, 9).value, 11, 6)
End If
If Len(Cells(b, 9).value) = 19 Then
Cells(b, 9).value = Mid(Cells(b, 9).value, 11, 8)
End If
Next b
End Sub |
Partager