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

VBA Word Discussion :

Mise en place d'un tableau dans un bas de page word depuis Excel VBA


Sujet :

VBA Word

  1. #1
    Futur Membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    mars 2022
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Alpes Maritimes (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : mars 2022
    Messages : 5
    Points : 6
    Points
    6
    Par défaut Mise en place d'un tableau dans un bas de page word depuis Excel VBA
    Bonjour à tous, dans le cadre d'un projet de génération automatique de documents j'aurai besoin de créer des tableaux dans des bas de page word en utilisant excel vba. J'ai déjà avancé mais je me retrouve face à quelques problèmes. J'ai bien crée une cellule de dimension (1,1), mais j'aurai besoin de changer sa taille ainsi que sa position. Sauriez ce que je pourrais ajouter ?

    Merci d'avance

    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
     
    Option Explicit
     
    Sub test()
     
    'Déclaration des variables
    Dim I As Integer
    Dim Fichier As String
    Dim MaFeuille As Worksheet
    Dim ListeBordures As Variant
    Dim word_app As Word.Application, word_fichier As Word.Document, tbl As Word.Table, rngCell As Word.Range
     
    'On récupère le fichier test
     
        Fichier = ActiveWorkbook.Path & "\" & "test.docx"
     
     
    'Ouverture de word
        Set word_app = CreateObject("Word.Application")
        With word_app
             .Visible = True
             .WindowState = 1
             Set word_fichier = .Documents.Open(Fichier)
       End With
     
    'Test tableau bas de page
       With word_fichier
            Set tbl = .Tables.Add(.Sections(1).Footers(wdHeaderFooterPrimary).Range, 1, 1, wdWord8TableBehavior)
            ListeBordures = Array(-1, -2, -3, -4)
            With tbl
                 .Cell(1, 1).Range.Text = "test"
                 For I = LBound(ListeBordures) To UBound(ListeBordures)
                     With .Borders(ListeBordures(I))
                          .LineStyle = wdLineStyleDot
                          .LineWidth = wdLineWidth100pt
                     End With
                 Next I
            End With
       End With
     
       Set tbl = Nothing: Set word_fichier = Nothing: Set word_app = Nothing
     
    End Sub

  2. #2
    Futur Membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    mars 2022
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Alpes Maritimes (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : mars 2022
    Messages : 5
    Points : 6
    Points
    6
    Par défaut
    Pour ceux que ça interesserait voici une solution :

    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
    44
    45
    46
    47
    48
     
    Option Explicit
     
    Sub test()
     
    'Déclaration des variables
    Dim I As Integer
    Dim Fichier As String
    Dim MaFeuille As Worksheet
    Dim ListeBordures As Variant
    Dim word_app As Word.Application, word_fichier As Word.Document, tbl As Word.Table, rngCell As Word.Range
     
    'On récupère le fichier test
     
        Fichier = ActiveWorkbook.Path & "\" & "test.docx"
     
     
    'Ouverture de word
        Set word_app = CreateObject("Word.Application")
        With word_app
             .Visible = True
             .WindowState = 1
             Set word_fichier = .Documents.Open(Fichier)
       End With
     
    'Test tableau bas de page
       With word_fichier
            Set tbl = .Tables.Add(.Sections(1).Footers(wdHeaderFooterPrimary).Range, 1, 1, wdWord8TableBehavior)
            ListeBordures = Array(-1, -2, -3, -4)
            With tbl
                 .Cell(1, 1).Range.Text = "test"
                 .Rows.HorizontalPosition = InchesToPoints(1)
                 .Rows.VerticalPosition = InchesToPoints(-2)
                 .Columns(1).SetWidth ColumnWidth:=310.7, RulerStyle:=1
                 For I = LBound(ListeBordures) To UBound(ListeBordures)
                     With .Borders(ListeBordures(I))
                          .LineStyle = wdLineStyleSingle
                          .LineWidth = wdLineWidth225pt
                          .Color = RGB(255, 0, 0)
                     End With
                 Next I
            End With
       End With
     
     
       Set tbl = Nothing: Set word_fichier = Nothing: Set word_app = Nothing
     
    End Sub

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

Discussions similaires

  1. [XL-2010] Probleme pour creer un tableau word depuis excel VBA
    Par amiralbhar dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 18/02/2016, 20h54
  2. Mise en page d'un document word depuis excel VBA
    Par tinange dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 04/12/2012, 12h42
  3. Réponses: 12
    Dernier message: 13/11/2007, 09h52
  4. [VBA-E]Mise en place de 2 valeurs dans une meme cellule
    Par baptbapt dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 25/08/2006, 15h06
  5. Réponses: 2
    Dernier message: 05/04/2006, 11h43

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