Mise à jour quotidienne

Bonjour,

Dans le fichier ci joint, je veux que chaque soir à 20h00 les cellules C4:C6 et C11 remplacent les cellules B4:B6 et B11.

Qui est en mesure de m'apporter la solution ?

Avec mes remerciements. Gérard. Toulouse.

https://www.excel-pratique.com/~files/doc/Transfert.xls

Bonjour

Dans ThisWorkbook

Private Sub Workbook_Open()
Application.OnTime TimeValue("20:00:00"), "my_Procedure"
End Sub

et dans un module

Sub my_Procedure()
    Range("C4:C6").Select
    Selection.Copy
    Range("B4").Select
    ActiveSheet.Paste
    Range("C11").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("B11").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

Avec l'aide de VB sur On Time

Fichier joint

Cordialement,

Amadéus

https://www.excel-pratique.com/~files/doc/gsFnpTransfert.xls

bonsoir

Ou de cette façon pour la copie des infos

Sub Macro6()

'

' Macro6 Macro

' Macro enregistrée le 19/05/2007 par Bruno

[C4:C6].Copy

[B4].PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=False

[C11].Copy

[B11].PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=False

Application.CutCopyMode = False

End Sub