salut a tou(te)s,
je debute en VB (je fais plus de C++) et voila mon pb:
j'ai une feuille Excel dans laquelle je veux extraire du texte en le copiant et le coller dans un tableau Word
le pb est que je copie 3 cellules separement (une par une) et je les colle dans Word(une par une evidement): mais dans mon tableau Word il ne me donne que la derniere collée.
en faisant du pas à pas je vois que tout ce colle au meme endroit.
peut etre faut il changer le curseur de place? comment?
peut etre faut il deselectionné quelque chose, quoi?
voici un bout de mon code:
Public Sub gendoc_Click()
appExcel.Cells(ligne, 6).Select
appExcel.Cells(ligne, 6).Copy
Set appWord = CreateObject("Word.Application")
Set docWord = appWord.Documents.Add
appWord.Visible = True
docWord.Activate
appWord.ActiveDocument.Tables.Add Range:=appWord.Selection.Range, NumRows:=7, NumColumns:=2
appWord.ActiveDocument.Tables.Item(1).Range.Font.Size = 14
appWord.ActiveDocument.Tables.Item(1).Range.Font.Name = "Arial"
appWord.ActiveDocument.Tables.Item(1).Cell(Row:=1, Column:=1).Range.PasteSpecial
'appWord.Selection.PasteSpecial
appExcel.Cells(ligne, 1).Select
appExcel.Cells(ligne, 1).Copy
'appWord.Selection.PasteSpecial
appWord.ActiveDocument.Tables.Item(1).Cell(Row:=1, Column:=1).Range.PasteSpecial
appExcel.Cells(ligne, 3).Select
appExcel.Cells(ligne, 3).Copy
'appWord.Selection.PasteSpecial
appWord.ActiveDocument.Tables.Item(1).Cell(Row:=1, Column:=1).Range.PasteSpecial
appWord.ActiveDocument.Tables.Item(1).Cell(Row:=1, Column:=1).Range.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter
Form1.Show
End Sub