Bonsoir à tous,
J'ai trouvé un petit bout de code (merci le forum) me permettant d'importer des données de Excel vers Word, voici le code:
Sub Test()
Chemin = ThisWorkbook.Path
Set Wapp = CreateObject("Word.application")
Wapp.Visible = True
Set MonDoc = Wapp.Documents.Add(DocumentType:=0)
For Each X In Range("C1:" & Range("C65536").End(xlUp).Address)
If X.Offset(0, 1).Value = "Oui" Then
Wapp.Selection.TypeText Text:=X & ""
Wapp.Selection.TypeParagraph
End If
Next
MonDoc.SaveAs Filename:=Chemin & "\Test.doc"
Wapp.Quit
Set Wapp = Nothing
End Sub
Je souhaiterais en plus garder la mise en forme (gras, italique, souligné....)...
Est ce possible ?
Merci.
Niepce
J'ai trouvé un petit bout de code (merci le forum) me permettant d'importer des données de Excel vers Word, voici le code:
Sub Test()
Chemin = ThisWorkbook.Path
Set Wapp = CreateObject("Word.application")
Wapp.Visible = True
Set MonDoc = Wapp.Documents.Add(DocumentType:=0)
For Each X In Range("C1:" & Range("C65536").End(xlUp).Address)
If X.Offset(0, 1).Value = "Oui" Then
Wapp.Selection.TypeText Text:=X & ""
Wapp.Selection.TypeParagraph
End If
Next
MonDoc.SaveAs Filename:=Chemin & "\Test.doc"
Wapp.Quit
Set Wapp = Nothing
End Sub
Je souhaiterais en plus garder la mise en forme (gras, italique, souligné....)...
Est ce possible ?
Merci.
Niepce