Bonjour,
Voici mon problème :
Je suis en train de créer un programme qui me copie des cellules d'un fichier excel vers un document word. Pour cette partie c'est OK.
Mon problème c'est quand je copie plusieurs cellules dans une même cellule d'un tableau sous word, mes données sont écrasées et seulement la dernière cellule copiée est présente.
Je cherche donc à faire un saut de ligne après chaque copier-coller.
Pouvez-vous m'aider ?
Voici le code :
Sub ZoneTexte21_Clic()
Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Set wordApp = CreateObject("word.application")
wordApp.Visible = True 'mettre False pour garder Word masqué
Set wordDoc = wordApp.Documents.Open("C:\Users\F98970\Documents\CETAC\DOCS\Trame fiche alarme CETACV1.doc") 'ouvre le document Word
On Error Resume Next
wordDoc.Tables(1).Columns(2).Cells(1).Range.Text = Range("F16")
wordDoc.Tables(1).Columns(4).Cells(2).Range.Text = Range("F20")
wordDoc.Tables(1).Columns(2).Cells(2).Range.Text = Range("F22")
wordDoc.Tables(1).Columns(2).Cells(3).Range.Text = Range("F24")
wordDoc.Tables(1).Columns(4).Cells(3).Range.Text = Range("F26")
wordDoc.Tables(1).Columns(4).Cells(1).Range.Text = Range("I16")
wordDoc.Tables(2).Columns(1).Cells(1).Range.Text = Range("Y6") ==> je cherche ici à faire un saut de ligne pour ne pas écraser ce qui suit
wordDoc.Tables(2).Columns(1).Cells(1).Range.Text = Range("Y7")
'wordDoc.Close True 'ferme le document Word en enregistrant les modifications
'wordApp.Quit 'ferme l'application Word
wordApp.Visible = True
End Sub