Transfert quotidien ou mise à jour

Private Sub Workbook_Open()
Dim DerLig As Integer
If Sheets("Feuil1").Range("B1").Value < Now Then
With Sheets("Feuil1")
DerLig = .Range("A65536").End(xlUp).Row
' Copie de la colonne C vers la colonne B
.Range("C3:C" & DerLig).Copy Destination:=.Range("B3:B" & DerLig)
' Mise à jour de la date
.Range("B1").Value = Format(Now + 1, "dd/mm/yyyy")
End With
ActiveWorkbook.Save
ActiveWorkbook.Close (False)
'Application.Quit 'Dans ce cas cette instruction ne sera pas exécutée...
End If
End Sub

Cliquez pour agrandir...

BrunoM45 à dit:

Salut Boulou,

J'ai effectivement une solution à te proposer 😉

1) Le fichier avec une macro qui se déclenche à l'ouverture (voir ton fichier joint modifié)
Cette macro met à jour la colonne B depuis la C, sauvegarde le classeur, et quitte excel

3) Sur un pc qui a excel et qui est allumé 24/7, tu crées une tache planifiée, et tu demandes l'ouverture de ce fichier tous les jours à partir de l'heure que tu veux.

Voilà 😀

Cliquez pour agrandir...

Bruno,

Merci beaucoup pour votre aide.

Cliquez pour agrandir...

Spitnolan08 à dit:

Re,
Moi, j'ai du manger du camembert...

Cliquez pour agrandir...