Bonjour,

J'ai une feuille avec un calendrier (chaque jour correspond à une case sur une ligne) et j'aimerais copier le calendrier à partir de la date d'aujourd'hui et jusqu'au 20ième jour suivant.

J'ai réalisé le code suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Dim Col As Integer, Col2 As Integer
Col = Sheets("Janvier-Juillet").Application.Match(Date * 1, Rows(4), 0)
Col2 = Sheets("Janvier-Juillet").Application.Match(Date * 20, Rows(4), 0)
Dim vrange As Range
vrange = Sheets("Janvier-Juillet").Range(Col & "4:" & Col2 & "29")
vrange.Copy Destination:=Sheets("Impression").Range("Z4")
Mais j'ai une erreur "incompatibilité de type" sur la 2ème ligne

J'ai tester plusieurs solutions sans succès, et mes recherches sur le net ont été infructueuse

Merci d'avance pour tout conseils, aide que vous pourrez m'apporter!