Pilotage de word à partir d'excel
Bonjour à tous et toutes,
Bon voila je vous explique en deux mots mon souci. J'utilise un macro excel pour piloter un document word. Cette macro envoie les informations d'une base de données dans excel vers un document word ou les données sont censé ce mettre en page en vue de produire un rapport.
Pour l'instant j'ai réussi à extraire les donnée du tableau excel et à les ranger en colonnes dans word.
Mon problème: J'ai effectué une première mise en forme (police, couleur...) dans excel mais celle-ci est ignorer par la macro.
Voici la partie du code qui pose problème:
Dim c As Range
Dim WordApp As Object
Dim LastRow As Integer, i As Integer, r As Integer, Records As Integer
Dim Wdoc As String
Wdoc = InputBox
On Error Resume Next
Application.ScreenUpdating = False
' Start Word and create an new document
Set WordApp = CreateObject("Word.Application")
With WordApp
.Documents.Add
With .Selection.PageSetup.TextColumns
.SetCount NumColumns:=3
.EvenlySpaced = True
.LineBetween = False
End With
With .Selection
For Each c In Worksheets("Sheet1").Range("A1:G47") 'change to this range-Range("A1:F47")
.InsertAfter Text:=c.Value 'counts columns in range and adds a tab after each column
.InsertAfter Text:=vbCr 'adds a carriage return
Next c
'.Range.ConvertToTable Separator:=wdSeparateByTabs
'.Tables(1).AutoFormat Format:=wdTableFormatClassic1
End With
Merci par avance si quelqu'un à une petite idée.
Bonjour à tous et toutes,
Bon voila je vous explique en deux mots mon souci. J'utilise un macro excel pour piloter un document word. Cette macro envoie les informations d'une base de données dans excel vers un document word ou les données sont censé ce mettre en page en vue de produire un rapport.
Pour l'instant j'ai réussi à extraire les donnée du tableau excel et à les ranger en colonnes dans word.
Mon problème: J'ai effectué une première mise en forme (police, couleur...) dans excel mais celle-ci est ignorer par la macro.
Voici la partie du code qui pose problème:
Dim c As Range
Dim WordApp As Object
Dim LastRow As Integer, i As Integer, r As Integer, Records As Integer
Dim Wdoc As String
Wdoc = InputBox
On Error Resume Next
Application.ScreenUpdating = False
' Start Word and create an new document
Set WordApp = CreateObject("Word.Application")
With WordApp
.Documents.Add
With .Selection.PageSetup.TextColumns
.SetCount NumColumns:=3
.EvenlySpaced = True
.LineBetween = False
End With
With .Selection
For Each c In Worksheets("Sheet1").Range("A1:G47") 'change to this range-Range("A1:F47")
.InsertAfter Text:=c.Value 'counts columns in range and adds a tab after each column
.InsertAfter Text:=vbCr 'adds a carriage return
Next c
'.Range.ConvertToTable Separator:=wdSeparateByTabs
'.Tables(1).AutoFormat Format:=wdTableFormatClassic1
End With
Merci par avance si quelqu'un à une petite idée.
Dernière édition:
