Rajouter 1 jour au nouvel onglet

BOCARAMEL · 2 Mai 2011

Bonsoir à tous 🙂

je n'arrive pas à prendre l'onglet modele, faire une copie le mettre en dernier (à droite)et le renommer en rajoutant 1 jour par rapport a la date du dernier onglet

Voila, j'espère avoir été assez clair

merci de votre aide

job75 · 2 Mai 2011

Re : Rajouter 1 jour au nouvel onglet

Bonsoir BOCARAMEL,

Code:

Private Sub CommandButton1_Click()
Dim F As Worksheet
Set F = Sheets(ActiveWorkbook.Sheets.Count)
ActiveSheet.Copy After:=F
ActiveSheet.Name = Format(CDate(F.Name) + 1, "dd-mm-yyyy")
End Sub

A+

BOCARAMEL · 2 Mai 2011

Re : Rajouter 1 jour au nouvel onglet

Vraiment merci job75 ça fonctionne nickel
bonne soirée

job75 · 2 Mai 2011

Re : Rajouter 1 jour au nouvel onglet

Re,

En fait, si l'on utilise aussi les boutons des feuilles journalières, il faut copier la feuille modele :

Code:

Private Sub CommandButton1_Click()
Dim F As Worksheet
Set F = Sheets(ActiveWorkbook.Sheets.Count)
Sheets("modele").Copy After:=F
ActiveSheet.Name = Format(CDate(F.Name) + 1, "dd-mm-yyyy")
End Sub

A+

Rajouter 1 jour au nouvel onglet

BOCARAMEL

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

BOCARAMEL

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Discussions similaires

Rajouter 1 jour au nouvel onglet

BOCARAMEL

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

BOCARAMEL

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency