Discussion :

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[la-breche]

bonjour, j'utilise office 2003 et ta syntaxe pour écrire ne fonctionne pas...
j'ai essayé de plusieur autre manière mais a chaque fois j'ai une erreur, pour ta syntaxe l'erreur est "objet requis", il n'y a pas d'aide pour activedocument, peut tu m'eclairer sur ce point merci.

[dadavyvy]

Je pense que c'était du [VBA-W] -> ActiveDocument n'est pas un objet connu en VBA-E

[la-breche]

oui j'ai bien vu...j'ai essayé avec activesheet, mais il me retourne une erreur "propriété ou methode non gérée par cet objet"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.ActiveSheet.Shapes(3).TextFrame.TextRange.Text = "kvjhfj"

[la-breche]

voila, j'ai trouvé, donc en VBA-E la solution serait:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.ActiveSheet.Shapes(1).TextFrame.Characters.Text = "ça marche!"