Bonjour,

j'essaie de remplir un petit planing de la semaine
Dans le cellule 'B2" j'ai réussi à introduire la date
du Lundi de la semaine en cours.
je voudrais que la cellule "B3" affiche la date de la cellule +1
ainsi de suite jusq'au vendredi.
j'ai essayé ceci mais il me retourne une erreur(13) de type mismatch

voici le code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
26
27
28
29
30
31
32
 
Private Sub Workbook_Open()
'Déclaration des variables
Dim sem, i As Integer
Dim jour As Variant
'Assignation des variables
sem = Format(Date, "ww")
jour = DateSerial(Year(Date), 1, 1)
i = 0
'Sélection de la feuille
ActiveWorkbook.Worksheets("Sheet1").Select
'Ajout d'une valeur dans la cellule "A1"
Range("A1").Value = " Semaine N°" & sem
'Calcul du jour de la semaine
'vérication si samedi ou vendredi
If Weekday(jour) = 6 Or Weekday(jour) = 7 Then
    jour = jour - Weekday(jour) + 2
Else
    jour = jour - Weekday(jour) - 5
End If
'Calcule du lundi de la semaine
jour = jour + 7 * sem
'Ajout de date dans les cellules "B2:B6"
For i = 2 To 6
    jour = Format(jour, "ddd") & Chr(10) & Format(jour, "d") & Chr(10) & Format(jour, "mmm") 'Mise en format
    ActiveSheet.Cells(2, i).Value = jour 'Affectation
    jour = DateAdd("d", 1, jour) 'Incrémentation  <-------------erreur
Next
End Sub
 
 
Une idée merci