Est-il possible, en saisissant une année que les onglets soient renommés par
les 365 jours de l'année, c'est à dire que s'affichent 365 pages. Il me
semble avoir vu cela mais je ne sais plus où.
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
anonymousA
bonjour,
For I = 0 To 365 Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = Format(DateSerial(2005, 1, 1) + I, "d-mmm") Next
A+
Bonjour à tous,
Est-il possible, en saisissant une année que les onglets soient renommés par les 365 jours de l'année, c'est à dire que s'affichent 365 pages. Il me semble avoir vu cela mais je ne sais plus où.
Merci d'avance pour vos réponses
bonjour,
For I = 0 To 365
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(DateSerial(2005, 1, 1) + I, "d-mmm")
Next
A+
Bonjour à tous,
Est-il possible, en saisissant une année que les onglets soient renommés par
les 365 jours de l'année, c'est à dire que s'affichent 365 pages. Il me
semble avoir vu cela mais je ne sais plus où.
For I = 0 To 365 Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = Format(DateSerial(2005, 1, 1) + I, "d-mmm") Next
A+
Bonjour à tous,
Est-il possible, en saisissant une année que les onglets soient renommés par les 365 jours de l'année, c'est à dire que s'affichent 365 pages. Il me semble avoir vu cela mais je ne sais plus où.
Merci d'avance pour vos réponses
Jacklyne
Avec tous mes remerciements Je vais tester "anonymousA" a écrit dans le message de news:
bonjour,
For I = 0 To 365 Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = Format(DateSerial(2005, 1, 1) + I, "d-mmm") Next
A+
Bonjour à tous,
Est-il possible, en saisissant une année que les onglets soient renommés par
les 365 jours de l'année, c'est à dire que s'affichent 365 pages. Il me semble avoir vu cela mais je ne sais plus où.
Merci d'avance pour vos réponses
Avec tous mes remerciements
Je vais tester
"anonymousA" <anonymousA@discussions.microsoft.com> a écrit dans le message
de news: F593CC9E-891F-4547-BAC9-6F4502B2F73F@microsoft.com...
bonjour,
For I = 0 To 365
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(DateSerial(2005, 1, 1) + I, "d-mmm")
Next
A+
Bonjour à tous,
Est-il possible, en saisissant une année que les onglets soient renommés
par
les 365 jours de l'année, c'est à dire que s'affichent 365 pages. Il me
semble avoir vu cela mais je ne sais plus où.
Avec tous mes remerciements Je vais tester "anonymousA" a écrit dans le message de news:
bonjour,
For I = 0 To 365 Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = Format(DateSerial(2005, 1, 1) + I, "d-mmm") Next
A+
Bonjour à tous,
Est-il possible, en saisissant une année que les onglets soient renommés par
les 365 jours de l'année, c'est à dire que s'affichent 365 pages. Il me semble avoir vu cela mais je ne sais plus où.
Merci d'avance pour vos réponses
Jacklyne
Lorsque je prends l'année 2004 qui est bisextile, tout fonctionne impeccable, par contre un petit problème pour 2005, lorsque tous les onglets sont renommés, j'ai à la fin un débogage "erreur 1004" je crois, et après le 31 Décembre, j'ai une feuille 369. Est-il possible de remédier à cela. Encore merci
"anonymousA" a écrit dans le message de news:
bonjour,
For I = 0 To 365 Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = Format(DateSerial(2005, 1, 1) + I, "d-mmm") Next
A+
Bonjour à tous,
Est-il possible, en saisissant une année que les onglets soient renommés par
les 365 jours de l'année, c'est à dire que s'affichent 365 pages. Il me semble avoir vu cela mais je ne sais plus où.
Merci d'avance pour vos réponses
Lorsque je prends l'année 2004 qui est bisextile, tout fonctionne
impeccable, par contre un petit problème pour 2005, lorsque tous les onglets
sont renommés, j'ai à la fin un débogage "erreur 1004" je crois, et après le
31 Décembre, j'ai une feuille 369.
Est-il possible de remédier à cela.
Encore merci
"anonymousA" <anonymousA@discussions.microsoft.com> a écrit dans le message
de news: F593CC9E-891F-4547-BAC9-6F4502B2F73F@microsoft.com...
bonjour,
For I = 0 To 365
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(DateSerial(2005, 1, 1) + I, "d-mmm")
Next
A+
Bonjour à tous,
Est-il possible, en saisissant une année que les onglets soient renommés
par
les 365 jours de l'année, c'est à dire que s'affichent 365 pages. Il me
semble avoir vu cela mais je ne sais plus où.
Lorsque je prends l'année 2004 qui est bisextile, tout fonctionne impeccable, par contre un petit problème pour 2005, lorsque tous les onglets sont renommés, j'ai à la fin un débogage "erreur 1004" je crois, et après le 31 Décembre, j'ai une feuille 369. Est-il possible de remédier à cela. Encore merci
"anonymousA" a écrit dans le message de news:
bonjour,
For I = 0 To 365 Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = Format(DateSerial(2005, 1, 1) + I, "d-mmm") Next
A+
Bonjour à tous,
Est-il possible, en saisissant une année que les onglets soient renommés par
les 365 jours de l'année, c'est à dire que s'affichent 365 pages. Il me semble avoir vu cela mais je ne sais plus où.
Merci d'avance pour vos réponses
Red Rick
Essaye à la place de For i = 1 to 365 Next i
Dim ladate
ladate = #1/1/2005# Do Until ladate = #12/31/2005# Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = Format(ladate, "d-mmm") ladate = ladate + 1 Loop
ainsi pas de problème d'année bisextile
Crdlmt Red Rick
"Jacklyne" a écrit dans le message de news:
Lorsque je prends l'année 2004 qui est bisextile, tout fonctionne impeccable, par contre un petit problème pour 2005, lorsque tous les onglets sont renommés, j'ai à la fin un débogage "erreur 1004" je crois, et après le 31 Décembre, j'ai une feuille 369. Est-il possible de remédier à cela. Encore merci
"anonymousA" a écrit dans le message de news:
bonjour,
For I = 0 To 365 Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = Format(DateSerial(2005, 1, 1) + I, "d-mmm") Next
A+
Bonjour à tous,
Est-il possible, en saisissant une année que les onglets soient renommés par
les 365 jours de l'année, c'est à dire que s'affichent 365 pages. Il me semble avoir vu cela mais je ne sais plus où.
Merci d'avance pour vos réponses
Essaye à la place de For i = 1 to 365
Next i
Dim ladate
ladate = #1/1/2005#
Do Until ladate = #12/31/2005#
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(ladate, "d-mmm")
ladate = ladate + 1
Loop
ainsi pas de problème d'année bisextile
Crdlmt
Red Rick
"Jacklyne" <nospam-jacklyne@wanadoo.fr> a écrit dans le message de news:
eeoUWVRbFHA.3488@tk2msftngp13.phx.gbl...
Lorsque je prends l'année 2004 qui est bisextile, tout fonctionne
impeccable, par contre un petit problème pour 2005, lorsque tous les
onglets
sont renommés, j'ai à la fin un débogage "erreur 1004" je crois, et après
le
31 Décembre, j'ai une feuille 369.
Est-il possible de remédier à cela.
Encore merci
"anonymousA" <anonymousA@discussions.microsoft.com> a écrit dans le
message
de news: F593CC9E-891F-4547-BAC9-6F4502B2F73F@microsoft.com...
bonjour,
For I = 0 To 365
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(DateSerial(2005, 1, 1) + I, "d-mmm")
Next
A+
Bonjour à tous,
Est-il possible, en saisissant une année que les onglets soient
renommés
par
les 365 jours de l'année, c'est à dire que s'affichent 365 pages. Il me
semble avoir vu cela mais je ne sais plus où.
ladate = #1/1/2005# Do Until ladate = #12/31/2005# Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = Format(ladate, "d-mmm") ladate = ladate + 1 Loop
ainsi pas de problème d'année bisextile
Crdlmt Red Rick
"Jacklyne" a écrit dans le message de news:
Lorsque je prends l'année 2004 qui est bisextile, tout fonctionne impeccable, par contre un petit problème pour 2005, lorsque tous les onglets sont renommés, j'ai à la fin un débogage "erreur 1004" je crois, et après le 31 Décembre, j'ai une feuille 369. Est-il possible de remédier à cela. Encore merci
"anonymousA" a écrit dans le message de news:
bonjour,
For I = 0 To 365 Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = Format(DateSerial(2005, 1, 1) + I, "d-mmm") Next
A+
Bonjour à tous,
Est-il possible, en saisissant une année que les onglets soient renommés par
les 365 jours de l'année, c'est à dire que s'affichent 365 pages. Il me semble avoir vu cela mais je ne sais plus où.
Merci d'avance pour vos réponses
Jacklyne
Merci beaucoup "Red Rick" a écrit dans le message de news: #
Essaye à la place de For i = 1 to 365 Next i
Dim ladate
ladate = #1/1/2005# Do Until ladate = #12/31/2005# Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = Format(ladate, "d-mmm") ladate = ladate + 1 Loop
ainsi pas de problème d'année bisextile
Crdlmt Red Rick
"Jacklyne" a écrit dans le message de news:
Lorsque je prends l'année 2004 qui est bisextile, tout fonctionne impeccable, par contre un petit problème pour 2005, lorsque tous les onglets sont renommés, j'ai à la fin un débogage "erreur 1004" je crois, et après
le 31 Décembre, j'ai une feuille 369. Est-il possible de remédier à cela. Encore merci
"anonymousA" a écrit dans le message de news:
bonjour,
For I = 0 To 365 Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = Format(DateSerial(2005, 1, 1) + I, "d-mmm") Next
A+
Bonjour à tous,
Est-il possible, en saisissant une année que les onglets soient renommés par
les 365 jours de l'année, c'est à dire que s'affichent 365 pages. Il me
semble avoir vu cela mais je ne sais plus où.
Merci d'avance pour vos réponses
Merci beaucoup
"Red Rick" <RedRick.frm@wanadoo.fr> a écrit dans le message de news:
#NS0uGSbFHA.3808@TK2MSFTNGP14.phx.gbl...
Essaye à la place de For i = 1 to 365
Next i
Dim ladate
ladate = #1/1/2005#
Do Until ladate = #12/31/2005#
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(ladate, "d-mmm")
ladate = ladate + 1
Loop
ainsi pas de problème d'année bisextile
Crdlmt
Red Rick
"Jacklyne" <nospam-jacklyne@wanadoo.fr> a écrit dans le message de news:
eeoUWVRbFHA.3488@tk2msftngp13.phx.gbl...
Lorsque je prends l'année 2004 qui est bisextile, tout fonctionne
impeccable, par contre un petit problème pour 2005, lorsque tous les
onglets
sont renommés, j'ai à la fin un débogage "erreur 1004" je crois, et
après
le
31 Décembre, j'ai une feuille 369.
Est-il possible de remédier à cela.
Encore merci
"anonymousA" <anonymousA@discussions.microsoft.com> a écrit dans le
message
de news: F593CC9E-891F-4547-BAC9-6F4502B2F73F@microsoft.com...
bonjour,
For I = 0 To 365
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(DateSerial(2005, 1, 1) + I, "d-mmm")
Next
A+
Bonjour à tous,
Est-il possible, en saisissant une année que les onglets soient
renommés
par
les 365 jours de l'année, c'est à dire que s'affichent 365 pages. Il
me
Merci beaucoup "Red Rick" a écrit dans le message de news: #
Essaye à la place de For i = 1 to 365 Next i
Dim ladate
ladate = #1/1/2005# Do Until ladate = #12/31/2005# Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = Format(ladate, "d-mmm") ladate = ladate + 1 Loop
ainsi pas de problème d'année bisextile
Crdlmt Red Rick
"Jacklyne" a écrit dans le message de news:
Lorsque je prends l'année 2004 qui est bisextile, tout fonctionne impeccable, par contre un petit problème pour 2005, lorsque tous les onglets sont renommés, j'ai à la fin un débogage "erreur 1004" je crois, et après
le 31 Décembre, j'ai une feuille 369. Est-il possible de remédier à cela. Encore merci
"anonymousA" a écrit dans le message de news:
bonjour,
For I = 0 To 365 Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = Format(DateSerial(2005, 1, 1) + I, "d-mmm") Next
A+
Bonjour à tous,
Est-il possible, en saisissant une année que les onglets soient renommés par
les 365 jours de l'année, c'est à dire que s'affichent 365 pages. Il me
semble avoir vu cela mais je ne sais plus où.
Merci d'avance pour vos réponses
anonymousA
ben ,
c'est normal puisque les années bissextiles ont 366 jours alors que les années non bissextiles en ont 365 et comme dans mon code, j'ai bêtement fait une boucle de 0 à 365 au lieu de 0 à 364 , ca se plante car 2 feuilles ne peuvent avoir le même nom à savoir le 1-Jan. Donc on peut utiliser la proc que je t'ai communiquée mais en y adjoignant soit comme te l'a indiqué Red Rick de faire un controle de fin de boucle sur la date 31-Dec soit de mettre en début de proc on error resume next ce qui dans les 2 cas lève le problème.
A+
Lorsque je prends l'année 2004 qui est bisextile, tout fonctionne impeccable, par contre un petit problème pour 2005, lorsque tous les onglets sont renommés, j'ai à la fin un débogage "erreur 1004" je crois, et après le 31 Décembre, j'ai une feuille 369. Est-il possible de remédier à cela. Encore merci
"anonymousA" a écrit dans le message de news:
bonjour,
For I = 0 To 365 Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = Format(DateSerial(2005, 1, 1) + I, "d-mmm") Next
A+
Bonjour à tous,
Est-il possible, en saisissant une année que les onglets soient renommés
par
les 365 jours de l'année, c'est à dire que s'affichent 365 pages. Il me semble avoir vu cela mais je ne sais plus où.
Merci d'avance pour vos réponses
ben ,
c'est normal puisque les années bissextiles ont 366 jours alors que les
années non bissextiles en ont 365 et comme dans mon code, j'ai bêtement
fait une boucle de 0 à 365 au lieu de 0 à 364 , ca se plante car 2
feuilles ne peuvent avoir le même nom à savoir le 1-Jan.
Donc on peut utiliser la proc que je t'ai communiquée mais en y
adjoignant soit comme te l'a indiqué Red Rick de faire un controle de
fin de boucle sur la date 31-Dec soit de mettre en début de proc on
error resume next ce qui dans les 2 cas lève le problème.
A+
Lorsque je prends l'année 2004 qui est bisextile, tout fonctionne
impeccable, par contre un petit problème pour 2005, lorsque tous les onglets
sont renommés, j'ai à la fin un débogage "erreur 1004" je crois, et après le
31 Décembre, j'ai une feuille 369.
Est-il possible de remédier à cela.
Encore merci
"anonymousA" <anonymousA@discussions.microsoft.com> a écrit dans le message
de news: F593CC9E-891F-4547-BAC9-6F4502B2F73F@microsoft.com...
bonjour,
For I = 0 To 365
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(DateSerial(2005, 1, 1) + I, "d-mmm")
Next
A+
Bonjour à tous,
Est-il possible, en saisissant une année que les onglets soient renommés
par
les 365 jours de l'année, c'est à dire que s'affichent 365 pages. Il me
semble avoir vu cela mais je ne sais plus où.
c'est normal puisque les années bissextiles ont 366 jours alors que les années non bissextiles en ont 365 et comme dans mon code, j'ai bêtement fait une boucle de 0 à 365 au lieu de 0 à 364 , ca se plante car 2 feuilles ne peuvent avoir le même nom à savoir le 1-Jan. Donc on peut utiliser la proc que je t'ai communiquée mais en y adjoignant soit comme te l'a indiqué Red Rick de faire un controle de fin de boucle sur la date 31-Dec soit de mettre en début de proc on error resume next ce qui dans les 2 cas lève le problème.
A+
Lorsque je prends l'année 2004 qui est bisextile, tout fonctionne impeccable, par contre un petit problème pour 2005, lorsque tous les onglets sont renommés, j'ai à la fin un débogage "erreur 1004" je crois, et après le 31 Décembre, j'ai une feuille 369. Est-il possible de remédier à cela. Encore merci
"anonymousA" a écrit dans le message de news:
bonjour,
For I = 0 To 365 Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = Format(DateSerial(2005, 1, 1) + I, "d-mmm") Next
A+
Bonjour à tous,
Est-il possible, en saisissant une année que les onglets soient renommés
par
les 365 jours de l'année, c'est à dire que s'affichent 365 pages. Il me semble avoir vu cela mais je ne sais plus où.
Merci d'avance pour vos réponses
Jacklyne
ça marche impeccable Encore merci Bon week-end
"anonymousA" a écrit dans le message de news: 42a8bf1c$0$3130$
ben ,
c'est normal puisque les années bissextiles ont 366 jours alors que les années non bissextiles en ont 365 et comme dans mon code, j'ai bêtement fait une boucle de 0 à 365 au lieu de 0 à 364 , ca se plante car 2 feuilles ne peuvent avoir le même nom à savoir le 1-Jan. Donc on peut utiliser la proc que je t'ai communiquée mais en y adjoignant soit comme te l'a indiqué Red Rick de faire un controle de fin de boucle sur la date 31-Dec soit de mettre en début de proc on error resume next ce qui dans les 2 cas lève le problème.
A+
Lorsque je prends l'année 2004 qui est bisextile, tout fonctionne impeccable, par contre un petit problème pour 2005, lorsque tous les onglets
sont renommés, j'ai à la fin un débogage "erreur 1004" je crois, et après le
31 Décembre, j'ai une feuille 369. Est-il possible de remédier à cela. Encore merci
"anonymousA" a écrit dans le message
de news:
bonjour,
For I = 0 To 365 Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = Format(DateSerial(2005, 1, 1) + I, "d-mmm") Next
A+
Bonjour à tous,
Est-il possible, en saisissant une année que les onglets soient renommés
par
les 365 jours de l'année, c'est à dire que s'affichent 365 pages. Il me semble avoir vu cela mais je ne sais plus où.
Merci d'avance pour vos réponses
ça marche impeccable
Encore merci
Bon week-end
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
42a8bf1c$0$3130$8fcfb975@news.wanadoo.fr...
ben ,
c'est normal puisque les années bissextiles ont 366 jours alors que les
années non bissextiles en ont 365 et comme dans mon code, j'ai bêtement
fait une boucle de 0 à 365 au lieu de 0 à 364 , ca se plante car 2
feuilles ne peuvent avoir le même nom à savoir le 1-Jan.
Donc on peut utiliser la proc que je t'ai communiquée mais en y
adjoignant soit comme te l'a indiqué Red Rick de faire un controle de
fin de boucle sur la date 31-Dec soit de mettre en début de proc on
error resume next ce qui dans les 2 cas lève le problème.
A+
Lorsque je prends l'année 2004 qui est bisextile, tout fonctionne
impeccable, par contre un petit problème pour 2005, lorsque tous les
onglets
sont renommés, j'ai à la fin un débogage "erreur 1004" je crois, et
après le
31 Décembre, j'ai une feuille 369.
Est-il possible de remédier à cela.
Encore merci
"anonymousA" <anonymousA@discussions.microsoft.com> a écrit dans le
message
de news: F593CC9E-891F-4547-BAC9-6F4502B2F73F@microsoft.com...
bonjour,
For I = 0 To 365
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(DateSerial(2005, 1, 1) + I, "d-mmm")
Next
A+
Bonjour à tous,
Est-il possible, en saisissant une année que les onglets soient
renommés
par
les 365 jours de l'année, c'est à dire que s'affichent 365 pages. Il me
semble avoir vu cela mais je ne sais plus où.
"anonymousA" a écrit dans le message de news: 42a8bf1c$0$3130$
ben ,
c'est normal puisque les années bissextiles ont 366 jours alors que les années non bissextiles en ont 365 et comme dans mon code, j'ai bêtement fait une boucle de 0 à 365 au lieu de 0 à 364 , ca se plante car 2 feuilles ne peuvent avoir le même nom à savoir le 1-Jan. Donc on peut utiliser la proc que je t'ai communiquée mais en y adjoignant soit comme te l'a indiqué Red Rick de faire un controle de fin de boucle sur la date 31-Dec soit de mettre en début de proc on error resume next ce qui dans les 2 cas lève le problème.
A+
Lorsque je prends l'année 2004 qui est bisextile, tout fonctionne impeccable, par contre un petit problème pour 2005, lorsque tous les onglets
sont renommés, j'ai à la fin un débogage "erreur 1004" je crois, et après le
31 Décembre, j'ai une feuille 369. Est-il possible de remédier à cela. Encore merci
"anonymousA" a écrit dans le message
de news:
bonjour,
For I = 0 To 365 Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = Format(DateSerial(2005, 1, 1) + I, "d-mmm") Next
A+
Bonjour à tous,
Est-il possible, en saisissant une année que les onglets soient renommés
par
les 365 jours de l'année, c'est à dire que s'affichent 365 pages. Il me semble avoir vu cela mais je ne sais plus où.
