Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel nommer des feuilles

nommer des feuilles

18 réponses
Avatar
karine
bonjour et bonne année à tous

je souhaiterai créer un classeur avec autant de feuilles que de semaine dans
l'année. de plus je souhaiterai que ces feuilles soit automatiquement
renommé avec le N° de la semaine, voire la date du 1er jour.

Est possible??? si oui comment????

merci d'avance
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Pascal Engelmajer
Salut,
avec une macro :
Sub weeks()
'supprimer les feuilles de départ sauf la première
Sheets(1).Name = "Semaine_1"
For i = 2 To 52
Set ws = Sheets.Add(after:=Worksheets(Worksheets.Count))
ws.Name = "Semaine_" & i
Next i
End Sub

--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"karine" a écrit dans le message de news:

bonjour et bonne année à tous

je souhaiterai créer un classeur avec autant de feuilles que de semaine
dans

l'année. de plus je souhaiterai que ces feuilles soit automatiquement
renommé avec le N° de la semaine, voire la date du 1er jour.

Est possible??? si oui comment????

merci d'avance




Avatar
garnote
Bonjour Karine,

Une variante à la macro de Pascal :

Sub Semaines_Commencant_Lundi()
'supprimer les feuilles de départ sauf la première
dd = #1/3/2004#
Sheets(1).Name = Format(dd, "dd-mm-yy")
For i = 1 To 51
Set ws = Sheets.Add(after:=Worksheets(Worksheets.Count))
ws.Name = Format(dd + 7 * i, "dd-mm-yy")
Next i
End Sub

Serge

"karine" a écrit dans le message de news:

merci pour ta réponse
je vais essayer de tester.

"Pascal Engelmajer" a écrit dans le
message de news:
Salut,
avec une macro :
Sub weeks()
'supprimer les feuilles de départ sauf la première
Sheets(1).Name = "Semaine_1"
For i = 2 To 52
Set ws = Sheets.Add(after:=Worksheets(Worksheets.Count))
ws.Name = "Semaine_" & i
Next i
End Sub

--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"karine" a écrit dans le message de news:

bonjour et bonne année à tous

je souhaiterai créer un classeur avec autant de feuilles que de
semaine



dans
l'année. de plus je souhaiterai que ces feuilles soit automatiquement
renommé avec le N° de la semaine, voire la date du 1er jour.

Est possible??? si oui comment????

merci d'avance












Avatar
garnote
Et une variante sur la variante de Pascal :

Sub Semaines_Commencant_Lundi()
'supprimer les feuilles de départ sauf la première
dd = #1/3/2004#
Sheets(1).Name = "S1 " & Format(dd, "dd-mm-yy")
For i = 1 To 51
Set ws = Sheets.Add(after:=Worksheets(Worksheets.Count))
ws.Name = "S" & i + 1 & " " & Format(dd + 7 * i, "dd-mm-yy")
Next i
End Sub

Serge

"garnote" a écrit dans le message de news:
ohAKb.27819$
Bonjour Karine,

Une variante à la macro de Pascal :

Sub Semaines_Commencant_Lundi()
'supprimer les feuilles de départ sauf la première
dd = #1/3/2004#
Sheets(1).Name = Format(dd, "dd-mm-yy")
For i = 1 To 51
Set ws = Sheets.Add(after:=Worksheets(Worksheets.Count))
ws.Name = Format(dd + 7 * i, "dd-mm-yy")
Next i
End Sub

Serge

"karine" a écrit dans le message de news:

merci pour ta réponse
je vais essayer de tester.

"Pascal Engelmajer" a écrit dans le
message de news:
Salut,
avec une macro :
Sub weeks()
'supprimer les feuilles de départ sauf la première
Sheets(1).Name = "Semaine_1"
For i = 2 To 52
Set ws = Sheets.Add(after:=Worksheets(Worksheets.Count))
ws.Name = "Semaine_" & i
Next i
End Sub

--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"karine" a écrit dans le message de
news:




bonjour et bonne année à tous

je souhaiterai créer un classeur avec autant de feuilles que de
semaine



dans
l'année. de plus je souhaiterai que ces feuilles soit
automatiquement




renommé avec le N° de la semaine, voire la date du 1er jour.

Est possible??? si oui comment????

merci d'avance
















Avatar
garnote
Un peu plus chic ;-)

Sub Semaines_Commencant_Lundi()
'supprimer les feuilles de départ sauf la première
dd = #1/3/2004#
Sheets(1).Name = "S1 " & Format(dd, "dd mmmm yyyy")
For i = 1 To 51
Set ws = Sheets.Add(after:=Worksheets(Worksheets.Count))
ws.Name = "S" & i + 1 & " " & Format(dd + 7 * i, "dd mmmm yyyy")
Next i
End Sub

Serge


"karine" a écrit dans le message de news:

merci pour ta réponse, je préfèrerai effectivement avoir le 1er jour de la
semaine
amicalement

"garnote" a écrit dans le message de news:
ZoAKb.27820$
Et une variante sur la variante de Pascal :

Sub Semaines_Commencant_Lundi()
'supprimer les feuilles de départ sauf la première
dd = #1/3/2004#
Sheets(1).Name = "S1 " & Format(dd, "dd-mm-yy")
For i = 1 To 51
Set ws = Sheets.Add(after:=Worksheets(Worksheets.Count))
ws.Name = "S" & i + 1 & " " & Format(dd + 7 * i, "dd-mm-yy")
Next i
End Sub

Serge

"garnote" a écrit dans le message de news:
ohAKb.27819$
Bonjour Karine,

Une variante à la macro de Pascal :

Sub Semaines_Commencant_Lundi()
'supprimer les feuilles de départ sauf la première
dd = #1/3/2004#
Sheets(1).Name = Format(dd, "dd-mm-yy")
For i = 1 To 51
Set ws = Sheets.Add(after:=Worksheets(Worksheets.Count))
ws.Name = Format(dd + 7 * i, "dd-mm-yy")
Next i
End Sub

Serge

"karine" a écrit dans le message de
news:




merci pour ta réponse
je vais essayer de tester.

"Pascal Engelmajer" a écrit dans
le



message de news:
Salut,
avec une macro :
Sub weeks()
'supprimer les feuilles de départ sauf la première
Sheets(1).Name = "Semaine_1"
For i = 2 To 52
Set ws = Sheets.Add(after:=Worksheets(Worksheets.Count))
ws.Name = "Semaine_" & i
Next i
End Sub

--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il
va."




Sénèque.
http://www.ilyapa.net/excel
"karine" a écrit dans le message de
news:




bonjour et bonne année à tous

je souhaiterai créer un classeur avec autant de feuilles que de
semaine



dans
l'année. de plus je souhaiterai que ces feuilles soit
automatiquement




renommé avec le N° de la semaine, voire la date du 1er jour.

Est possible??? si oui comment????

merci d'avance
























Avatar
Céline Brien
Bonjour Karine,
Si tu peux inscrire la date du 1er jour de la semaine dans une cellule
de la feuille de la semaine 1.
Puis dans les autres feuilles une formule qui est la date de la semaine
précédente + 7
La macro qui suit utilisera ces dates pour nommer les onglets.
La beauté de l'affaire, c'est que l'an prochain, au début de l'année, tu
n'as qu'à changer la date du 1er jour de la semaine de la première
feuille et exécuter la macro et tu es prête pour ta nouvelle année.
Au plaisir,
Céline

Voici les codes. Changer A1 pour la cellule où tu auras inscrit ta date.

Sub RenommeOnglet()
Dim Feuille As Worksheet
For Each Feuille In Worksheets
With Feuille
If .[A1] <> "" Then
.Name = Format(.[A1], "d-mmm")
End If
End With
Next Feuille
Set Feuille = Nothing
End Sub



"karine" a écrit dans le message de
news:
bonjour et bonne année à tous

je souhaiterai créer un classeur avec autant de feuilles que de
semaine dans

l'année. de plus je souhaiterai que ces feuilles soit automatiquement
renommé avec le N° de la semaine, voire la date du 1er jour.

Est possible??? si oui comment????

merci d'avance




Avatar
AV
For i = 1 To 51


Et les années avec 52 ou 53 semaines ?

;-)
AV

Avatar
karine
un grand merci à tous, chacune de vos solutions fonctionnent à merveille.
Quel bonheur que de savoir programmer, il va vraiment falloir que j'essaye
de m'y mettre.
encore merci

"Céline Brien" a écrit dans le message de
news: e1$
Bonjour Karine,
Si tu peux inscrire la date du 1er jour de la semaine dans une cellule
de la feuille de la semaine 1.
Puis dans les autres feuilles une formule qui est la date de la semaine
précédente + 7
La macro qui suit utilisera ces dates pour nommer les onglets.
La beauté de l'affaire, c'est que l'an prochain, au début de l'année, tu
n'as qu'à changer la date du 1er jour de la semaine de la première
feuille et exécuter la macro et tu es prête pour ta nouvelle année.
Au plaisir,
Céline

Voici les codes. Changer A1 pour la cellule où tu auras inscrit ta date.

Sub RenommeOnglet()
Dim Feuille As Worksheet
For Each Feuille In Worksheets
With Feuille
If .[A1] <> "" Then
.Name = Format(.[A1], "d-mmm")
End If
End With
Next Feuille
Set Feuille = Nothing
End Sub



"karine" a écrit dans le message de
news:
bonjour et bonne année à tous

je souhaiterai créer un classeur avec autant de feuilles que de
semaine dans

l'année. de plus je souhaiterai que ces feuilles soit automatiquement
renommé avec le N° de la semaine, voire la date du 1er jour.

Est possible??? si oui comment????

merci d'avance







Avatar
DanC
Et programmer un changement de date dans ton système???

C'est que tu es déjà en avril... Un poisson avec ça?


Danielle
"karine" a écrit dans le message de
news:
bonjour et bonne année à tous

je souhaiterai créer un classeur avec autant de feuilles que de semaine
dans

l'année. de plus je souhaiterai que ces feuilles soit automatiquement
renommé avec le N° de la semaine, voire la date du 1er jour.

Est possible??? si oui comment????

merci d'avance




Avatar
monloui
Bonne année à toi aussi,
quel temps as tu en ce mois d' Avril ?
@+
Louis

--
Attention: anti spam
pour répondre ôter "x" à monlouix
"karine" a écrit dans le message news:

bonjour et bonne année à tous

je souhaiterai créer un classeur avec autant de feuilles que de semaine
dans

l'année. de plus je souhaiterai que ces feuilles soit automatiquement
renommé avec le N° de la semaine, voire la date du 1er jour.

Est possible??? si oui comment????

merci d'avance




Avatar
Gil HASH
Bonsoir
Comme je trie mes messages par date d'arrivée - logique - Je viens de
m'apercevoir que ce message et toutes ses réponses restera jusqu'en avril en
première place de la fenêtre d'Outlook Express.
Y a t'il quelque chose à faire sur le serveur? surtout qu'on a répondu à
Karine -que je n'incrimine pas bien sûr : les erreurs de mise à l'heure ça
existe.
Mais je pense à quelque chose : avec ce système si quelqu'un de mal
intentionné met son système à la date du 11 janvier 2014, on aura son
message pendant 14 ans en première place?
1 2