Salut Gérard,
Salut l'équipe,
Pour éviter que la macro copie plusieurs fois les données un même jour, j'actualise la date en 'GG 2017' [AA1].
Il reste deux ambigüités :
- Est-ce vraiment la même colonne chaque jour où, elle aussi, évolue-t-elle en même temps que la colonne de copie?
° [G5:G30] -> [G55:G80] ==> [H5:H30] -> [H55:H80]...
° ou [G5:G30] -> [G55:G80] ==> [G5:G30] -> [H55:H80]
- corollaire, la première copie commence-t-elle en 'Archive' [G55] ?
Dans 'THISWORBOOK', tu colles ceci :
Private Sub Workbook_Open()
'
Application.OnTime Now + TimeValue("00:02:00"), "CopieColonne"
'
End Sub
Dans le Module1, ceci :
Public Sub CopieColonne()
'
Dim sWk As Worksheet
Set sWk = Worksheets("Archive")
'
With Worksheets("GG 2017")
If CDate(.[AA1]) <> Date Then
.[AA1] = Date
iCol = sWk.Cells(55, Columns.Count).End(xlToLeft).Column + 1
If iCol < 7 Then iCol = 7
sCol = Split(Columns(iCol).Address(ColumnAbsolute:=False), ":")(1)
sWk.Range(sCol & 55 & ":" & sCol & 80).Value = .Range("G5:G30").Value
End If
End With
'
End Sub
A adapter en fonction des réponses aux questions ci-dessus...
A+