renommer les feuilles

Cousinhub

XLDnaute Barbatruc

• 5 Février 2008

• #2

Re : renommer les feuilles

Bonsoir, oui, c'est possible, mais par macro

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Février 2008

• #3

Re : renommer les feuilles

Bonsoir

edit: mauvais copier coller désormais corrigé

Pour créer 52 feuilles

Code:

Sub C_FeuillesHEBDOS()
Dim i  As Integer
For i = 1 To 52
    Worksheets.Add after:=Worksheets(Sheets.Count)
ActiveSheet.Name = "SEM_" & Format(i, "00") & "-" & Year(Date)
Next i
End Sub

Pour renommer 52 feuilles (attention les 52 feuilles doivent préexistées)

Code:

Sub R_FeuillesHEBDOS()
Dim i  As Integer
For i = 1 To 52
     Sheets(i).Name = "SEM_" & Format(i, "00") & "-" & Year(Date)
Next i
End Sub

 

Dernière édition: 6 Février 2008

Vote positif 0 Vote négatif

sesa

XLDnaute Occasionnel

• 6 Février 2008

• #4

Re : renommer les feuilles

MErci Staple1600 et Bhbh

Staple,

J'ai essayé tes macros super.

Par contre, est il possible de mettre les mois comme juin, juillet etc... en fonction des semaines
ensuite, sur chaque feuille je dois recopier à chaque fois le même tableau de planning qui évidemment changera avec les semaines attribuées
as tu une astuce

merci à tous les deux

mon but est de renommer mes feuilles sur un exercice datant du 01/07/07 au 31/06/08

 

Vote positif 0 Vote négatif

sesa

XLDnaute Occasionnel

• 6 Février 2008

• #5

Re : renommer les feuilles

parler trop vite cette macro n'arrive pas à faire marcher

Sub R_FeuillesHEBDOS()
Dim i As Integer
For i = 1 To 52
ActiveSheet.Name = "SEM_" & Format(i, "00") & "-" & Year(Date)
Next i
End Sub

pas pu joindre un fichier pour test car trop de feuilles
désolé

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 6 Février 2008

• #6

Re : renommer les feuilles

Bonsoir Sesa, Staple

essaye comme ceci, en supposant que tu commences à renommer à partir de la 1ère feuille :

Code:

Dim i As Byte
For i = 1 To 52
    Sheets(i).Name = "SEM_" & Format(i, "00") & "-" & Year(Date)
Next i

bonne soirée
@+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 6 Février 2008

• #7

Re : renommer les feuilles

Re

avec le nom des mois :

[
bonne soirée
@+

Edition : avais pas vu que c'était de juillet à juin.... à tester...

2 ème edition : code supprimé, voir dernier post

 

Dernière édition: 7 Février 2008

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 7 Février 2008

• #8

Re : renommer les feuilles

Bonjour,

petite rectification matinale, pour tenir compte du départ au 1 er juillet, attention à priori il y a 55 semaines sur cette période...

Code:

Sub test()
Dim i As Date, x As Byte, y As Byte, z As Byte
For i = DateSerial(Year(Date) - 1, 7, 1) To DateSerial(Year(Date), 6, 30)
    x = DatePart("ww", i, 2, 2)
    If x <> y Then
        y = x
        z = z + 1
        Sheets(z).Name = "SEM_" & Format(x, "00") & "-" & MonthName(Month(i)) & "-" & Year(i)
    End If
Next i
End Sub

bonne journée.
@+

 

Dernière édition: 7 Février 2008

Vote positif 0 Vote négatif

sesa

XLDnaute Occasionnel

• 7 Février 2008

• #9

Re : renommer les feuilles

MErci Pierrot ça marche

si je souhaite mettre de l'exercice 1 juillet 2008 au 31 juin 2009
quelle est la modification à faire

merci

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 7 Février 2008

• #10

Re : renommer les feuilles

Salut sesa

il te suffit de modifier ceci For i = DateSerial(Year(Date) 0, 7, 1) To DateSerial(Year(Date) +1, 6, 30, )

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 7 Février 2008

• #11

Re : renommer les feuilles

Bonsoir Sesa, phlaurent

modifies comme suit :

Code:

For i = DateSerial(Year(Date), 7, 1) To DateSerial(Year(Date) + 1, 6, 30)

@phlaurent
un zéro et une virgule de trop dans ton code

bonne soirée
@+

 

Vote positif 0 Vote négatif

sesa

XLDnaute Occasionnel

• 7 Février 2008

• #12

Re : renommer les feuilles

Bonsoir à tous les deux, et le forum

C'est ok, marche très bien
vois êtes trop fort.
j'aimerais en faire autant mais je ne comprends pas trop ceci : for i etc... comment faites vous,
y a t il une liste de code pour me permettre de créer ce genre de ligne de commande
bravo
bonne nuit

 

Vote positif 0 Vote négatif