IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

supprimer des caractères


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Juin 2009
    Messages
    36
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2009
    Messages : 36
    Par défaut supprimer des caractères
    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

  2. #2
    Membre Expert Avatar de Krovax
    Profil pro
    Inscrit en
    Juillet 2008
    Messages
    1 888
    Détails du profil
    Informations personnelles :
    Âge : 39
    Localisation : France

    Informations forums :
    Inscription : Juillet 2008
    Messages : 1 888
    Par défaut
    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

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Supprimer des caractères d'une chaine
    Par femtoserv dans le forum Access
    Réponses: 6
    Dernier message: 26/02/2007, 10h24
  2. [Tableaux] Supprimer des caractères dans une chaine
    Par ddubois dans le forum Langage
    Réponses: 10
    Dernier message: 16/12/2006, 13h53
  3. Supprimer des caractères.
    Par benitoelputoamo dans le forum Général Python
    Réponses: 2
    Dernier message: 30/10/2006, 20h17
  4. [Système] supprimer des caractères avec preg_replace
    Par Fritzoune dans le forum Langage
    Réponses: 3
    Dernier message: 02/10/2006, 13h59
  5. [VB6] Supprimer des caractères d'une chaine
    Par Overflow64 dans le forum VB 6 et antérieur
    Réponses: 3
    Dernier message: 13/10/2005, 10h26

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo