Onglets_VBA

Bonjour,

Sub moisfeuilles()
dim i as integer
For i = 1 to 12
sheets(i).name=Format("01/" & i & "/2007","mmmm yyyy")
next
end sub

'Cdlt

'lSteph

Bonsoir à tous

Comment peut-on faire par VBA:
Renommer par exemple feuil1 à feuil12
par Janvier à Décembre 2007.

Merci d'avance.

Jean

Bonjour,

Et si dans tes feuilles il y a des feuilles grahiques et que tu
souhaites seulement
le faire avec les feuilles de calcul:

Sub moisfeuilles()
Dim i As Integer
For i = 1 To 12
Worksheets(i).Name = Format("01/" & i & "/2007", "mmmm yyyy")
Next
End Sub

lSteph

(avant que la milice débarque)

Bonsoir à tous

Comment peut-on faire par VBA:
Renommer par exemple feuil1 à feuil12
par Janvier à Décembre 2007.

Merci d'avance.

Jean

Merci infiniment STEPH.Je vais tester tout cela

Jean

"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
ejY$GJEhHHA.4516@TK2MSFTNGP03.phx.gbl...

Bonjour,

Et si dans tes feuilles il y a des feuilles grahiques et que tu souhaites
seulement
le faire avec les feuilles de calcul:

Sub moisfeuilles()
Dim i As Integer
For i = 1 To 12
Worksheets(i).Name = Format("01/" & i & "/2007", "mmmm yyyy")
Next
End Sub

lSteph

(avant que la milice débarque)

Bonsoir à tous

Comment peut-on faire par VBA:
Renommer par exemple feuil1 à feuil12
par Janvier à Décembre 2007.

Merci d'avance.

Jean