Sub alimenter_jour()
Dim D As String, M As String, Y As String
Dim K As Integer
Dim Travail As Variant
Application.ScreenUpdating = False
Sheets("jour").Select
' recupère le Day Month Year de la celulle active de la feuille Jour
D = Left(ActiveCell, 2)
M = Mid(ActiveCell, 4, 2)
Y = Right(ActiveCell, 2)
K = ActiveCell.Row
Set Travail = Application.FileSearch
With Travail
' recherche dans le dossier "fiches" un fichier xls qui va correspondre aux variables D-M-Y récuperées plus haut
.LookIn = "R:\retards\Retards colis\fiches"
.Filename = "retards " & D & M & Y & ".xls"
' je ne comprend pas cette instruction
If .Execute > 0 Then
' ouvre le fichier correspondant aux variables D-M-Y
Workbooks.Open Filename:= _
"R:\retards\Retards colis\fiches\retards " & D & M & Y & ".xls", _
UpdateLinks:=False
' ce qui suit test si la fiche existe pour la journée séléectionnée, mais je peux m'en passer
Else
ActiveCell.Interior.ColorIndex = 4
If Now < ActiveCell Then
MsgBox "cette fiche n'existe pas encore !", , "Retards colis"
Exit Sub
Else
MsgBox "cette fiche n'existe pas ", , "Retards colis"
ActiveCell.Offset(6, 0).Select
Exit Sub
End If
End If
End With