Re je te premièrement je te remercie de ton temps
deuxièmement j'ai réadapter la position des cellules et ça fonctionne, et j'ai une erreur de syntaxe sur la ligne en gras souligné apparement parce que mon chemin et mon fichier saffiche non pas de '\' entre les deux
cordialement
Sub Recup()
Dim Cls As Workbook
Dim LaDate As Date
Dim L As Date
Dim Chemin As String
Dim Dos As String
Dim SousDos As String
Dim Fichier As String
LaDate = Date 'date du jour
Dos = Year(LaDate) & "." & Format(Month(LaDate), "00")
L = DateSerial(Year(LaDate - Weekday(LaDate - 1) + 4), 1, 1)
SousDos = Year(LaDate) & "-S" & Int((LaDate - L + Weekday(L) + 5) / 7)
Fichier = Format(Weekday(LaDate, 2), "00") & "-" & WeekdayName(Weekday(LaDate, 2), , 2) & ".xlsm"
Chemin = ""H:\LOULOU\LOULOU_Production_HAPP\préparations tableaux de banane\Tableaux de banane\Dos & " \ " & SousDos & "
[u]
Set Cls = Workbooks.Open(Chemin & Fichier[/u])
With ThisWorkbook.Worksheets("EQUIPE 1")
.Range("C4").Value = Cls.Worksheets("Recap").Range("D18").Value
.Range("C6").Value = Cls.Worksheets("Recap").Range("E18").Value
.Range("C5").Value = Cls.Worksheets("Recap").Range("D19").Value
.Range("C7").Value = Cls.Worksheets("Recap").Range("E19").Value
End With
With ThisWorkbook.Worksheets("EQUIPE 2")
.Range("C4").Value = Cls.Worksheets("Recap").Range("F18").Value
.Range("C6").Value = Cls.Worksheets("Recap").Range("G18").Value
.Range("C5").Value = Cls.Worksheets("Recap").Range("F19").Value
.Range("C7").Value = Cls.Worksheets("Recap").Range("G19").Value
End With
With ThisWorkbook.Worksheets("EQUIPE 3")
.Range("C4").Value = Cls.Worksheets("Recap").Range("H18").Value
.Range("C6").Value = Cls.Worksheets("Recap").Range("I18").Value
.Range("C5").Value = Cls.Worksheets("Recap").Range("H19").Value
.Range("C7").Value = Cls.Worksheets("Recap").Range("I19").Value
End With
Cls.Close True
End Sub