Macro import tableau excel vers word

**mogo107** · 18/06/2013, 08h26

Bonjour, je fais appel à un coup de main

Voila j'ai une macro sur excel qui sert à importer mon tableau sur Word, donc je voudrais mettre une mise en forme lorsque mon tableau est importé dans Word

voici les fonctions que je voudrais rajouter à ma macro:

1) Centrer le tableau

2) Supprimer l'espace après le paragraphe

**Sepia** · 19/06/2013, 03h01

Salut mogo107,

Pour centrer un tableau, le code est le suivant :

Code :

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

ActiveDocument.Tables(1).Rows.Alignment = wdAlignRowCenter

Attention, comme tu n'as pas donné plus d'infos, j'ai pris l'index 1 pour ton tableau mais si tu en as plusieurs, tu devras adapté ta macro à ton besoin et en fonction du nombre de tableau que tu généres.

Pour supprimer le caractère situé après un tableau, tu dois savoir que Word impose d'avoir un caractère (souvent non visible) qui contient des infos qu'il utilise et qu'on ne doit pas le supprimer. Si c'est un espace, il n'y a pas de problème, je pense qu'il serait néanmoins opportun de vérifier que ce caractère est un espace avant de le supprimer. Voilà le code (en supposant toujours que tu n'as qu'un seul tableau dans ton document) :

Code :

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

ActiveDocument.Range(Start:=ActiveDocument.Tables(1).Range.End + 1, End:=ActiveDocument.Tables(1).Range.End + 2).Delete

@+

**mogo107** · 19/06/2013, 08h10

Bonjour,

Voilà j'ai petit probléme avec ma macro

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
Sub ImportWordBordereau1()
 
    Set fd = Worksheets("LOTS N°1")
    'La zone excel débute en A1 e termine en Hi,  i étant variable suivant le nombre de ligne de bordereaux
    fd.Select
    Limite = fd.Range("A65535").End(xlUp).Row 'détermine la dernière ligne de mon tableau
 
    Nomdufichier = InputBox("Nom du fichier", "Saisie")
 
Dim varDoc As Object
        Set varDoc = CreateObject("Word.Application")
                  varDoc.Visible = True
                  Sheets("LOTS N°1").Range("A1:D" & Limite + 4).Copy 'selection du tableau base de donnée
                  varDoc.Documents.Add
                  varDoc.Selection.Paste 'recopie dans le document Word
 
 
                  varDoc.ActiveDocument.SaveAs ThisWorkbook.Path & "/" & Nomdufichier & ".doc"
        Set varDoc = Nothing 'libere l'instance mémoire pile
        Set fd = Nothing
 
ActiveDocument.Tables(1).Rows.Alignment = wdAlignRowCenter
ActiveDocument.Range(Start:=ActiveDocument.Tables(1).Range.End + 1, End:=ActiveDocument.Tables(1).Range.End + 2).Delete
End Sub

j'ai erreur que je puisse pas le résoudre, vous pouvez m'aider, j'ai rajouter les deux de code a la fin de ma macro

Pour être précis, j'ai un seul tableau qui peut prendre plusieure page

**Sepia** · 21/06/2013, 01h21

Salut mogo107,

Il s'agit d'une macro Excel d'export et non une macro Word d'import, il me semble.

Les 2 lignes que je t'ai données sont des lignes de macro Word (pas Excel). Tu dois ajouter ta variable qui représente ton application Word (ici varDoc) pour pouvoir utiliser Word à partir de ta macro Excel, donc les lignes 22 & 23 deviennent

Code :

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

1
2
3
 
varDoc.ActiveDocument.Tables(1).Rows.Alignment = wdAlignRowCenter
varDoc.ActiveDocument.Range(Start:=ActiveDocument.Tables(1).Range.End + 1, End:=ActiveDocument.Tables(1).Range.End + 2).Delete

Et tu dois déplacer aussi ta ligne

Code :

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

Set varDoc = Nothing

après les 2 précédentes

@+

**mogo107** · 21/06/2013, 01h43

Salut

Je suis un peu perdu avec la variable que je dois mettre

Je ne sais pas trop où mettre la variable "varDoc"

**Sepia** · 21/06/2013, 01h52

Salut mogo107,

Je comprends ton problème. Mais ta variable est OK, il suffisait de remplacer les lignes 22 & 23 par celles que je t'avais envoyées. Pour t'aider, je t'envoie toute la macro:

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
Sub ImportWordBordereau1()
 
    Set fd = Worksheets("LOTS N°1")
    'La zone excel débute en A1 e termine en Hi,  i étant variable suivant le nombre de ligne de bordereaux
    fd.Select
    Limite = fd.Range("A65535").End(xlUp).Row 'détermine la dernière ligne de mon tableau
 
    Nomdufichier = InputBox("Nom du fichier", "Saisie")
 
Dim varDoc As Object
        Set varDoc = CreateObject("Word.Application")
                  varDoc.Visible = True
                  Sheets("LOTS N°1").Range("A1:D" & Limite + 4).Copy 'selection du tableau base de donnée
                  varDoc.Documents.Add
                  varDoc.Selection.Paste 'recopie dans le document Word
 
 
                  varDoc.ActiveDocument.SaveAs ThisWorkbook.Path & "/" & Nomdufichier & ".doc"
 
                  varDoc.ActiveDocument.Tables(1).Rows.Alignment = wdAlignRowCenter
varDoc.ActiveDocument.Range(Start:=ActiveDocument.Tables(1).Range.End + 1, End:=ActiveDocument.Tables(1).Range.End + 2).Delete
 
        Set varDoc = Nothing 'libere l'instance mémoire pile
        Set fd = Nothing
 
End Sub

**mogo107** · 21/06/2013, 01h58

j'ai une erreur avec cette ligne

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
Sub ImportWordBordereau1()
 
    Set fd = Worksheets("LOTS N°1")
    'La zone excel débute en A1 e termine en Hi,  i étant variable suivant le nombre de ligne de bordereaux
    fd.Select
    Limite = fd.Range("A65535").End(xlUp).Row 'détermine la dernière ligne de mon tableau
 
    Nomdufichier = InputBox("Nom du fichier", "Saisie")
 
Dim varDoc As Object
        Set varDoc = CreateObject("Word.Application")
                  varDoc.Visible = True
                  Sheets("LOTS N°1").Range("A1:D" & Limite + 4).Copy 'selection du tableau base de donnée
                  varDoc.Documents.Add
                  varDoc.Selection.Paste 'recopie dans le document Word
 
 
                  varDoc.ActiveDocument.SaveAs ThisWorkbook.Path & "/" & Nomdufichier & ".doc"
 
                  varDoc.ActiveDocument.Tables(1).Rows.Alignment = wdAlignRowCenter
varDoc.ActiveDocument.Range(Start:=ActiveDocument.Tables(1).Range.End + 1, End:=ActiveDocument.Tables(1).Range.End + 2).Delete
 
        Set varDoc = Nothing 'libere l'instance mémoire pile
        Set fd = Nothing
 
End Sub

**Sepia** · 21/06/2013, 02h13

Salut mogo107,

Il semble qu'un saut de page est disparu, je te redonne le 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
Sub ImportWordBordereau1()
 
    Set fd = Worksheets("LOTS N°1")
    'La zone excel débute en A1 e termine en Hi,  i étant variable suivant le nombre de ligne de bordereaux
    fd.Select
    Limite = fd.Range("A65535").End(xlUp).Row 'détermine la dernière ligne de mon tableau
 
    Nomdufichier = InputBox("Nom du fichier", "Saisie")
 
Dim varDoc As Object
        Set varDoc = CreateObject("Word.Application")
                  varDoc.Visible = True
                  Sheets("LOTS N°1").Range("A1:D" & Limite + 4).Copy 'selection du tableau base de donnée
                  varDoc.Documents.Add
                  varDoc.Selection.Paste 'recopie dans le document Word
 
 
                  varDoc.ActiveDocument.SaveAs ThisWorkbook.Path & "/" & Nomdufichier & ".doc"
 
                  varDoc.ActiveDocument.Tables(1).Rows.Alignment = wdAlignRowCenter
 
varDoc.ActiveDocument.Range(Start:=ActiveDocument.Tables(1).Range.End + 1, End:=ActiveDocument.Tables(1).Range.End + 2).Delete
 
        Set varDoc = Nothing 'libere l'instance mémoire pile
        Set fd = Nothing
 
End Sub

Si le code ne fonctionne pas, donne-nous plus d'info sur l’erreur pour qu'on puisse t'aider au mieux.

@+

**mogo107** · 21/06/2013, 02h21

Voici mon fichier excel

il ya un bouton import word pour active la macro

lorsque je met en route la macro, elle me donne une erreur

**Sepia** · 21/06/2013, 02h34

Salut mogo107,

Envoyé par Sepia

Pour supprimer le caractère situé après un tableau, tu dois savoir que Word impose d'avoir un caractère (souvent non visible) qui contient des infos qu'il utilise et qu'on ne doit pas le supprimer.

J'ai récupéré, c'est OK. Je t'avais dit précédemment que Word doit garder des caractères ceux qui contiennent les infos des styles...

Ici on ne doit pas le faire, il faut que tu supprimes cette ligne dans ce cas car tu n'as pas d'autre texte après ce tableau et c'est OK mais ce caractère ne doit pas être supprimé.

@+

**mogo107** · 21/06/2013, 08h23

salut

daccord, je vais just centre mon tableau
mais je me suis aperçu que mon tableau n'est pas centre sur word

pouvez-vous m'aider?

**Sepia** · 21/06/2013, 23h13

Salut mogo107,

Je ne vois pas ce que tu veux dire, tu veux centrer ton tableau en largeur ou en hauteur ?

@+

**mogo107** · 22/06/2013, 10h18

Je voudrais centrer en largeur mon tableau

**Sepia** · 23/06/2013, 23h45

Salut mogo107,

Normalement c'est le cas.

@+

**mogo107** · 24/06/2013, 00h33

je ne comprend pas, j'ai fait le test j'arrive pas

**Sepia** · 24/06/2013, 00h48

Salut mogo107,

???

Envoie ton fichier généré sur DVP.com puis essaie d'enregistrer une macro qui met le tableau en centré pour voir si ça fonctionne.

@+

**mogo107** · 24/06/2013, 01h07

voici mon fichier

**mogo107** · 24/06/2013, 01h10

le code pour la macro c'est "mogo"

**Sepia** · 24/06/2013, 02h02

Salut mogo107,

Du coup je mets la discussion en non résolue.

Je regarde ton document.

@+

**Sepia** · 24/06/2013, 02h12

Salut Mogo107,

J'avais oublié une ligne. Du coup, je te remets le code complet

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
Sub ImportWordBordereau1()
 
    Set fd = Worksheets("LOTS N°1")
    'La zone excel débute en A1 e termine en Hi,  i étant variable suivant le nombre de ligne de bordereaux
    fd.Select
    Limite = fd.Range("A65535").End(xlUp).Row 'détermine la dernière ligne de mon tableau
 
    Nomdufichier = InputBox("Nom du fichier", "Saisie")
 
    Dim varDoc As Object
    Set varDoc = CreateObject("Word.Application")
    varDoc.Visible = True
    Sheets("LOTS N°1").Range("A1:D" & Limite + 4).Copy 'selection du tableau base de donnée
    varDoc.Documents.Add
    varDoc.Selection.Paste 'recopie dans le document Word
 
 
    varDoc.ActiveDocument.SaveAs ThisWorkbook.Path & "/" & Nomdufichier & ".doc"
 
    varDoc.ActiveDocument.Tables(1).Rows.Alignment = wdAlignRowCenter
    varDoc.ActiveDocument.Tables(1).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
 
    varDoc.ActiveDocument.Range(Start:=ActiveDocument.Tables(1).Range.End + 1, End:=ActiveDocument.Tables(1).Range.End + 2).Delete
 
   Set varDoc = Nothing 'libere l'instance mémoire pile
   Set fd = Nothing
 
End Sub

@+

Macro import tableau excel vers word

VBA Word

Discussions similaires

Partager

Partager