OVH Cloud OVH Cloud

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

8 réponses

1 2
Avatar
Pierre CFI [mvp]
bonjour
dans OE message/supprimer mais çà peut mettre un peu de temps

--
Pierre CFI
MVP Microsoft Access
"Gil HASH" a écrit dans le message de news:
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?




Avatar
JièL Goubert
Bonjoir(c) Gil HASH

Le 11/01/2004 17:06 vous nous disiez ceci :
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?


Pas besoin d'aller sur le serveur, tu as la version 6 avec SP1 d'OE,
clique sur le message et appui délicatement sur la touche Suppr. Tu peux
ansuite confirmer en cliquant (toujours très délicatement) sur le bouton
Oui, et hop, plus de message de Karine

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?


Non, car les messages ne sont conservés que (environ) 3 mois sur le
serveur de MS, donc au maximum, si tu ne fais pas la manip ci dessus, tu
le verras pendant ces 3 mois

--
La FAQ Outlook est la : http://faq.outlook.free.fr
JièL / Jean-Louis GOUBERT
Co-auteur de "Internet + de 1 000 trucs de pros" chez Micro Application
http://faq.outlook.free.fr/livreMA/internet_plus_de_1000_trucs_de_pros.htm

Avatar
JièL Goubert
Bonjoir(c) Pierre CFI [mvp]

Le 11/01/2004 17:23 vous nous disiez ceci :
bonjour
dans OE message/supprimer mais çà peut mettre un peu de temps


Tu ne confond pas avec le menu Edition, Supprimer ? ou le menu Message,
Annuler le message ? Dans ce dernier cas, seul l'expéditeur peut faire
cette manip, mais effectivement, la ça peut prendre du temps, et ceux
qui ont déjà chargés le messages le verront pendant un bout de temps ;-)

--
Pierre CFI
MVP Microsoft Access


PS : il manque un espace aprés les "--" pour que ta signature soit
supprimé automatiquement pas OE-Quotefix (ou Thinderbird en ce qui me
concerne) lors de la réponse.

--
La FAQ Outlook est la : http://faq.outlook.free.fr
JièL / Jean-Louis GOUBERT
Co-auteur de "Internet + de 1 000 trucs de pros" chez Micro Application
http://faq.outlook.free.fr/livreMA/internet_plus_de_1000_trucs_de_pros.htm

Avatar
Christian M
Karine,
tu as un problème de date de ton système : tes envois sont datés du 06/04/04
:-(


--
Christian M
Adresse anti-spam :
http://www.cerbermail.com/?9mv8U5g4zk
---------------------------
"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
Sylvie
Bonjour,

Voici un exemple:

Sub AjouteFeuille()
Dim cpt As Integer
cpt = 1
Do While cpt < 53
' Ajout d'une feuille
Application.Sheets.Add After:=Sheets.Item(Sheets.Count),
Type:=xlWorksheet
' Renomme la feuille
Application.ActiveSheet.Name = "Semaine " & CStr(cpt)
cpt = cpt + 1
Loop
End Sub

Sylvie


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

For i = 1 To 51


Et les années avec 52 ou 53 semaines ?

;-)
AV





Avatar
Ted. D
pk ton message a été envoyé le 06 /04/2004 bizzare!!!!!!
"karine" wrote in 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
karine
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
karine
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




















1 2