Sub FraisDemo()
Dim Desti As Workbook, R$, Chemin$, Nom$, sh As Worksheet
Dim Semaine%, c As Range, Cnom As Range
Dim mois$
Application.ScreenUpdating = False
R = Cells(ActiveCell.Row, 15) ' correspond à la colonne date au format jj-mmm
mois = DatePart("m", R)
Chemin = ThisWorkbook.Path & "\Frais\"
Nom = Cells(ActiveCell.Row, 29).Value
Set Cnom = Selection
Semaine = Cnom.Offset(0, -15)
Set Desti = Workbooks.Open(Chemin & Nom)
' For Each sh In Desti.Sheets ' du coup je me suis dis que la boucle sur les feuilles pour trouver le N° de semaine était inutile et j'ai voulu essayer avec, entre autre
with desti.sheets(mois)
Set c = sh.Range("B7:F7").Find(Semaine, LookIn:=xlValues)
If Not c Is Nothing Then
c.Offset(1, 0) = Cnom.Offset(0, -20)
c.Offset(2, 0) = Cnom.Offset(0, 20)
c.Offset(6, 0) = Cnom.Offset(0, 17)
c.Offset(9, 0) = Cnom.Offset(0, 18)
c.Offset(11, 0) = Cnom.Offset(0, 19)
' Exit For
End If
'Next sh
Application.ScreenUpdating = True
End Sub
[\code]
Bonne journée
Manu