Sub Four_tubulaire_NF_EN50305()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Set WordApp = CreateObject("word.application") 'ouvre session word et le fichier voulu
Set WordDoc = WordApp.Documents.Open(ActiveWorkbook.Path & "\Rapport FR-EN Four Tubulaire NF EN 50305.docx ") 'ouvre document Word"
WordApp.Visible = False 'word masqué pendant l'operation
Dim cc As ContentControl
Dim docCCs As ContentControls
Set docCCs = WordDoc.SelectContentControlsByTag("DebFour")
If docCCs.Count <> 0 Then
For Each cc In docCCs
cc.Range.Text = Feuil5.Cells(3, 3)
Next
Else
MsgBox "No content controls found150"
End If
WordApp.Visible = True 'affiche le document Word
'WordDoc.PrintOut 'si on veut imprimer
WordDoc.Close True 'si on veut fermer le document word en sauvegardant les données
WordApp.Quit 'ferme la session Word
End Sub