Remplacer ou écrire 1 texte dans une zone de texte

[ouskel'n'or]

Code :

1
2
3
Sub Remplacer()
ActiveDocument.Shapes(1).TextFrame.TextRange.Text = Replace(ActiveDocument.Shapes(1).TextFrame.TextRange.Text, vbCr, "")
End Sub

Code :

1
2
3
Sub Ecrire()
ActiveDocument.Shapes(1).TextFrame.TextRange.Text = "Coucou c'est nous"
End sub

Pour VBA-Excel, c'est là, par la-breche