date dans rectangle

Salut,

Essaye ainsi, en une ligne :
ActiveSheet.Shapes("rectangle1").TextFrame.Characters.Text = Format(Now,
"dd/mm/yyyy")


A+
--
Nicolas B.

bonjour !
j'ai cette macro qui ne fonctionne pas ! pourquoi ?
Sub date_rectangle()
ActiveSheet.Shape("rectangle1").Characters.Text = Now
Sh.Shape(Adr).NumberFormat = "dd/mm/yyyy hh:mm:ss"
End Sub

Sub date_rectangle()
Dim txt As String
txt = Now
ActiveSheet.Shapes("rectangle 1").Select
Selection.Characters.Text = txt
End Sub
--
.

Fred
Ôter nsp pour répondre
"gaston" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 3c6c01c42a1a$529cf1b0$a001280a@phx.gbl...

bonjour !
j'ai cette macro qui ne fonctionne pas ! pourquoi ?
Sub date_rectangle()
ActiveSheet.Shape("rectangle1").Characters.Text = Now
Sh.Shape(Adr).NumberFormat = "dd/mm/yyyy hh:mm:ss"
End Sub