excel -> word (creation d'une colonne)

[laurent]

excel -> word (creation d'une colonne)

bonjour

tout d'abord un grand merci aux personnes faisant vivre le forum en aidant les autres et en leur permettant de progresser dans la "programmation" excel

ma question est la suivante:
je voufrais rajouter une colonne d'un tableau se trouvant dans word grace à une macro(ou plutot une userform) lancer sur excel et si possible à un endroit voulu.

merci d'avance

Laurent

 

[eric v.]

Re: excel -> word (creation d'une colonne)

salut
tu peux peut etre utiliser la fonction de publipostage

 

[michel]

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