Solved: Change word file generation depending on a selection

[ray444]

Hello,

I attached my file,
I'd like to generate a word document from an excel (cf vba code) but the generation depends on the "type of product" in the cell 'TS GENERATOR'!B5
the generated word document has to select'Template produits'!A1:B19 or 'Template produits'!D1:E20 depending on the type of product chooser in the 'TS GENERATOR'!B5.

How can I do this?

Thank you very much in advance

Ray

[ray444]

OK this is my code what shoud I add when I want that the selection changes depending on the cell TS GENERATOR'!B5?

Sub RemplirTableauWordDepuisDonnéesExcel()
Dim docword As Object
Dim appword As Object

Set appword = CreateObject("word.application")
Application.DisplayAlerts = True
appword.showme
appword.Visible = True
'Ouvre le document Word
Set docword = appword.Documents.Add

' Copie les données Excel
Feuil11.Range("A1:B19").Copy
' Colle les données dans Word
appword.Selection.Paste

docword.Tables(1).autoFitBehavior 2
Application.CutCopyMode = False
End Sub

[Kenneth Hobs]

Untested:

Sub RemplirTableauWordDepuisDonnéesExcel()
Dim docword As Object
Dim appword As Object

Set appword = CreateObject("word.application")
Application.DisplayAlerts = True
appword.showme
appword.Visible = True
'Ouvre le document Word
Set docword = appword.Documents.Add

' Copie les données Excel
Select Case Feuil5.Range("B5").Value
Case "Reverse Convertible"
Feuil11.Range("A1:B19").Copy
Case "Autocallable"
Feuil11.Range("D1:C20").Copy
Case Else
End Select

' Colle les données dans Word
appword.Selection.Paste

docword.Tables(1).autoFitBehavior 2
Application.CutCopyMode = False
End Sub