Re: excel -> word (creation d'une colonne)
bonjour Laurent , bonjour Eric
Laurent , tu peux adapter cette macro qui insère une nouvelle colonne en 3eme position dans le 2eme tableau d'un document Word .
la premiere cellule de cette nouvelle colonne est coloriée en bleu et un texte y est inséré
Private Sub CommandButton1_Click()
'nécéssite d'activer la référence Microsoft Word xx.x Object Library
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim Fichier As String
'le document Word est supposé fermé avant le lancement de la macro
'adapter le chemin
Fichier = "C:\Documents and Settings\michel\fichierWord.doc"
Set WordApp = CreateObject("Word.Application") 'creation session Word
WordApp.Visible = False 'pour que word reste masqué pendant l'opération
Set WordDoc = WordApp.Documents.Open(Fichier) 'ouverture du fichier Word
'insertion d'une colonne en 3eme position dans le 2eme tableau du document Word
'colorie en bleu la 1ere cellule dans la colonne insérée
With WordDoc.Tables(2)
.Columns.Add BeforeColumn:=WordDoc.Tables(2).Columns(3)
.Columns(3).Cells(1).Shading.BackgroundPatternColorIndex = wdBlue 'fond de cellule en bleu
.Columns(3).Cells(1).Range.Text = "le forum xld" 'texte dans la cellule
.AutoFitBehavior wdAutoFitWindow ' adapte la dimension du tableau à la feuille
End With
WordDoc.Close True 'ferme le document Word en sauvegardant les modifications
WordApp.Quit 'ferme l'application Word
End Sub
bon après midi
MichelXld