Création d'un Calendrier en VBA

Version imprimable

Bonjour,

Je suis débutant en VBA, je souhaite créer un Excel "Calendrier.xlsx" de 365 feuilles, la première feuille s'appelle "Vendredi 1 Janvier 2016" et la dernière "Samedi 31 Décembre 2016", respectivement aux journées en 2016.

Ensuite, remplir chaque jour (ou feuille) avec des profils de 24h (86400 sec) d'un autre Excel "Profils.xlsx"

J'ai réalisé un programme initial qui nomme les feuilles "Jour 1"..."Jour 365" mais ça se remplis en inverse !!!, qlqn peut-il m'aider à compléter ou d'en créer un autre qui répond au besoin cité précédemment ?

Merci d'avance
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 Sub Macro1() ' ' Macro1 Macro Dim Feuille As Worksheet Static I As Long For I = 1 To 365 Set Feuille = ThisWorkbook.Worksheets.Add ' La référence est posée Feuille.Name = "Jour " & I ' Le nom d'onglet de la nouvelle feuille est posé. Windows("Profils.xlsx").Activate Sheets("Cycles1").Select Range("A1").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Windows("Calendrier.xlsx").Activate Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Next I End Sub

18/10/2016, 16h13
Marc-L

Bonjour,

oubli d'un paramètre pour Worksheets.Add, juste consulter l'aide VBA interne concernant cette méthode …

_________________________________________________________________________________________________________
Je suis Paris, Nice, Bruxelles, Charlie, …

Je n'ai pas testé. Il y aura donc peut-être un peu de débugage à faire :

Code:

1
2
3
4
5
6
7
8
9
Sub Calendrier()
Dim jour As Date
 
For jour = DateSerial(2016, 1, 1) To DateSerial(2016, 12, 31)
   Workbooks("Profils.xlsx").Sheets("Cycles1").Copy After:=Workbooks("Calendrier.xlsx").Worksheets(Workbooks("Calendrier.xlsx").Worksheets.Count)
   ActiveSheet.Name = Format(jour, "dddd d mmmm yyyy")
Next jour
 
End Sub

Bonjour

le programme marche, je l'ai réadapté pour avoir des noms de jours en fonction des dates dans l'ardre chronologiques avec prise en comte des weekends

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub CreationOnglet()
  Dim I As Date
 
  For I = DateSerial(2016, 1, 1) To DateSerial(2016, 12, 31) ' a adapter
 
 
 
    If Weekday(I, vbMonday) <= 5 Then
    Workbooks("Profils.xlsx").Sheets("Jours_travail").Copy After:=Workbooks("Calendrier.xlsx").Worksheets(Workbooks("Calendrier.xlsx").Worksheets.Count)
 
    Else
    Workbooks("Profils.xlsx").Sheets("Jours_Weekend").Copy After:=Workbooks("Calendrier.xlsx").Worksheets(Workbooks("Calendrier.xlsx").Worksheets.Count)
 
    End If
 
     ActiveSheet.Name = Format(I, "dddd d mmmm yyyy")
 
 Next I
 
 
End Sub

24/10/2016, 22h21
qwerty_213

Citation:

Envoyé par Marc-L

Bonjour,

oubli d'un paramètre pour Worksheets.Add, juste consulter l'aide VBA interne concernant cette méthode …

_________________________________________________________________________________________________________
Je suis Paris, Nice, Bruxelles, Charlie, …

je n'ai pas trouvé une solution de variable manquante dans l'aide VBA, j'ai créer un autre programme dans le post précedent
25/10/2016, 10h56
patricktoulon

re

re
Bonjour
l'argument c'était "after":ptdr: