Créer une nouvelle feuille tous les premiers janvier

Victor21

XLDnaute Barbatruc

Supporter XLD

• 28 Septembre 2015

• #2

Re : Créer une nouvelle feuille tous les premiers janvier

Bonjour zephir94.

Pas d'exemple joint, ce qui ne nous permet pas de connaitre la structure de la feuille (raz de certaines infos, modification d'autres...).

Je suppose, sans infos complémentaires, que vous souhaitez une macro qui se déclancherait à l'ouverture du fichier le 1/1 de chaque année. Quid si le fichier n'est pas ouvert le 1/1 (férié) ? Il faudra alors tester le changement d'année et la présence ou non de la nouvelle feuille ?
Un peu compliqué par rapport au temps que prend un clic droit (déplacer ou copier, en dernier, créer une copie) et un deuxième clic droit pour renommer la nouvelle feuille. Non ?

 

Vote positif 0 Vote négatif

Z

zephir94

XLDnaute Impliqué

• 28 Septembre 2015

• #3

Re : Créer une nouvelle feuille tous les premiers janvier

Bonjour Victor21,

Je bloque juste sur cet événement, le reste c'est bon je sais faire.
J'imagine bien que je doit écrire la date du jour dans une cellule d'une feuille et comparer au démarrage du classeur, si
la date est supérieur au 1 janvier je crée une feuille en dernière position du classeur.
Donc même si on ouvre le classeur le 4 février ça marcherait.

Là ou je bloque c'est extraire l'année, créer une nouvelle feuille en dernière position c'est pas très compliqué :

Code:

Sub InsereFeuille()



if date> 01/01/ année ????? then

Sheets.Add.Move After:=Sheets(Sheets.Count)

Sheets(Sheets.Count).name = "Archive" & année-1
else
end if
End Sub

Merci pour ton aide

 

Dernière édition: 28 Septembre 2015

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 28 Septembre 2015

• #4

Re : Créer une nouvelle feuille tous les premiers janvier

Bonjour,

regarde peut être ceci, à placer dans le module "thisworkbook" :

Code:

Option Explicit
Private Sub Workbook_Open()
Dim ws As Worksheet, y As String
y = "Archive " & Year(Date) - 1
On Error Resume Next
Set ws = Worksheets(y)
On Error GoTo 0
If ws Is Nothing Then
    Set ws = Worksheets.Add(after:=Sheets(Sheets.Count))
    ws.Name = y
End If
End Sub

bonne journée
@+

 

Vote positif 0 Vote négatif

Z

zephir94

XLDnaute Impliqué

• 28 Septembre 2015

• #5

Re : Créer une nouvelle feuille tous les premiers janvier

Merci pierrot93,
Si j'ai bien compris, il me suffit d'écrire dans une Cellule d'une feuille year(date) et de comparer à l'ouverture si la date du jour est supérieur en année.
Et là je déclenche mon événement en rechargeant l'année dans ma cellule teste pour l'année suivante ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 28 Septembre 2015

• #6

Re : Créer une nouvelle feuille tous les premiers janvier

Re,

le code que j'ai proposé se déclenche à chaque ouverture du fichier et vérifie s'il existe une feuille nommée "archive " de l'année précedente, si elle n'existe pas, la procédure créée la feuille... Pas besoin de cellule pour stockéer une date...

 

Vote positif 0 Vote négatif

Z

zephir94

XLDnaute Impliqué

• 28 Septembre 2015

• #7

Re : Créer une nouvelle feuille tous les premiers janvier

Oui merci pierrot93, c'est bien ce que j'ai compris en lisant le code
Merci

 

Vote positif 0 Vote négatif