mise en forme en macro

Version imprimable

22/06/2009, 10h25
amour076

mise en forme en macro

bonjour,
j'exporte des emails vers excel.
Je choisis mes champs :
A B C
A(nom) Objet Message

Et donc j'aimerais avoir une bonne mise en forme car dans le document excel, les colonnes n'ont pas automatiquement un format donc cela raccourci le nom.
Dans la colonne C, là où il ya le message, il n'y pas tout le message après l'avoir exporter.
Savez-vous pourquoi cela se produit-il?

pouvez-vous m'aider pour résoudre ce problème svp?
merci
22/06/2009, 10h29
supersnail

Bonjour,
ma boule de cristal est cassée,tu pourrais nous montrer le code de ta macro?

Excuse-moi j'ai oublié de la mettre

Code:

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
 
Sub Macro4 ()
'
‘Macro4 Macro
‘Macro enregistrée le 18/06/2009 par DOC.STAGE
'
'
    Worksheets("Email").Columns("C").Replace What:=Chr(10), Replacement:=""
    Worksheets("Email").Columns("C").Replace What:=Chr(13), Replacement:=""
    Worksheets("Email").Columns("C").Replace What:="Bonjour", Replacement:=""
 
    With ActiveCell.Characters(Start:=1, Length:=500).Font   'active la cellule, les caractères
        .Name = "MS Sans Serif"    ' renvoie une plage de caractères commençant par le 1er
        .FontStyle = "Normal"           ' nombres de caractères à renvoyer
        .Size = 10
        .Strikethrough = False  ' barre les mots
        .Superscript = False  ' met en exposant
        .Subscript = False    ' met en indice
        .OutlineFont = False   'police vectorielle
        .Shadow = False   ' met une ombre
        .Underline = xlUnderlineStyleNone   ' souligne
        .ColorIndex = xlAutomatic  ' met une couleur
    End With
 
End Sub

Je croi au vu des commentaire que tu n'a pas exactement saisie ce que tu faisais (ou alors tu ne décrit pas la ligne sur laquelle est le commentaire)
Code:

1 2 3 With ActiveCell.Characters(Start:=1, Length:=500).Font 'active la cellule, les caractères .Name = "MS Sans Serif" ' renvoie une plage de caractères commençant par le 1er .FontStyle = "Normal" ' nombres de caractères à renvoyer
Code:

1 2 With ActiveCell.Characters(Start:=1, Length:=500).Font
signifie que jusquau

Code:

end with

A chaque fois que tu met .quelquechose ca revient a écrire

Code:

ActiveCell.Characters(Start:=1, Length:=500).Font .quelquechose

Dans ce cas tu travaille sur les 500 premier caractère de la celulle active.

Essaye de mettre
Code:

1 2 With Worksheets("Email").Columns("C").Font
Cela te permettra de définir le style de l'ecriture de la colonne C sans restriction de caractères.

Ensuite il me semble que le nombre de caractère dans une cellule est limité (je ne sais plus à combien par contre), a mon avis ton problème vient de là

Edit : je suis en train de vérifier le coup de la limitation du nombre de caractère (j'ai un doute là)
Bon ben visiblement je n'arrive pas a avoir une limite de nombre de caractère. La macro que tu nous a donné n'est pas ta macro d'importation mais une macro de mise en forme, avant de la lancer ton message est complet?

D'abord, les commentaires sont bons mais pas sur les bonnes lignes
Code:

1 2 3 With ActiveCell.Characters(Start:=1, Length:=500).Font 'active la cellule, les caractères .Name = "MS Sans Serif" ' renvoie une plage de caractères commençant par le 1er .FontStyle = "Normal" ' nombres de caractères à renvoyer
Le com 'renvoie...' renvoie à Start
Le com 'nombre ...' renvoie à Length
Je n'avais pas assez de place à la suite pour les écrire donc je les ai mis en dessous.

La macro que j'ai donné, c'est pour enlever des mots dans le message (colonne C).
Quand j'exporte, le message n'est pas complet.
Je n'ai pas fait de macro d'exportation.
Pourrais-je mettre le message sur 2 ou 3 colonnes quand je l'exporte ?

22/06/2009, 11h09
Krovax

Peut être, mais il faudrait savoir comment tu l'exportes
Car visiblement ton problème ne vient pas du tout de cette macro (le message est incomplet avant même de la lancer) et ca ne fait pas vraiment avancer le schmilblik ;)

ps : pour les commentaires
activecell ne sert pas à activer la cellule mais signifie que l'on travaille sur la cellule active
22/06/2009, 11h19
amour076

Merci pour ActiveCell

Pour exporter mes emails, je fais :

_ dans outlook --> fichier --> importer et exporter --> exporter des données vers un fichier --> Suivant --> Microsoft Excel --> Suivant --> choisir son dossier à exporter --> Suivant --> choisir un emplacement pour l'enregistrer sous (ex : le bureau) --> Suivant --> clic sur Champ personnaliser
--> ouverture d'une nouvelle fenêtre --> clic sur effacer mappage --> faire glisser les champs souhaités --> Ok --> Terminer

Edit : Et après quand j'ouvre mon document excel, j'ai bien mes 3 colonnes avec les 3 champs que j'ai choisi mais dans la 3ème colonne ( c'est le message), il n'y a pas tous les éléments du message, c'est-à-dire la fin du texte.