Discussion :

[amour076]

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

[supersnail]

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

[amour076]

Excuse-moi j'ai oublié de la mettre

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
 
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

[Krovax]

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 :

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

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 :

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

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

signifie que jusquau

Code :

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

end with

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

Code :

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

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 :

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

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?

[amour076]

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

Code :

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

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 ?

[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