|
On par du principe que dans la cellule A1, se trouve une date ... (21/03/05) en activant cette macro, une nouvelle feuille se rajoute à la suite des autres, avec comme nom de feuille "Caisse du " et le jour correspondant à la cellule A1 (cette procédure ne prend pas en compte les samedis et dimanches) ici, le nom de la feuille sera : Caisse du 21 Code à placer dans un module 
Option Explicit
Public Sub AjouterJour()
'http://www.veriti.fr
'myDearFriend
'http://vlohr.free.fr/Forum_VeriTi/forum_1.php?msg=3484
Dim D As Date
'Copie du dernier onglet
Sheets(Worksheets.Count).Copy After:=Sheets(Worksheets.Count)
With ActiveSheet
D = .Range("A1").Value + 1
'Si on ne veut pas des Samedis
If Weekday(D, vbMonday) = 6 Then D = D + 2
'Si on ne veut pas des Dimanches
If Weekday(D, vbMonday) = 7 Then D = D + 1
'MAJ date en A1
.Range("A1").Value = D
'Nom de l'onglet
.Name = "Caisse du " & Format(D, "dd")
End With
End Sub
Date de création : 24/05/2005 - 19:03
Dernière modification : 25/05/2005 - 22:55
Catégorie : Feuille
Page lue 8262 fois
 Prévisualiser la page
 Imprimer la page
|
OOo
OOo
Membres: 1661
Membre en ligne: 0
Anonymes en ligne: 39
Haut 
