Re,
Sans explication plus précises, sans voir le fichier et avec ma boule de cristal qui me fait la gueule:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F5")) Is Nothing Then
If Target = "" Then Exit Sub
Dim chemin$, nomfichier$
chemin = [W1] & "\" & "ICR"
nomfichier = [Z2] & ".csv"
Set F = Feuil13
Application.ScreenUpdating = False
On Error Resume Next
F.Cells.ClearContents 'RAZ
With Workbooks.Open(chemin & "\" & nomfichier).Sheets(1)
.UsedRange.TextToColumns .UsedRange.Cells(1), xlDelimited, Semicolon:=True
F.[A1].Resize(.UsedRange.Rows.Count, .UsedRange.Columns.Count) = .UsedRange.Value
F.[A1].Resize(.UsedRange.Rows.Count, .UsedRange.Columns.Count).Columns.AutoFit
.Parent.Close False
End With
If Application.CountA(F.UsedRange) Then F.Activate
Sheets("Mai").Select
For Each cellule In Sheets(13).Range("A1:F400")
If cellule = "A" Then Cells(Day(Range("F5")) + 9, 6) = cellule.Offset(0, 1)
If cellule = "B" Then Cells(Day(Range("F5")) + 9, 9) = cellule.Offset(0, 1)
If cellule = "C" Then Cells(Day(Range("F5")) + 9, 11) = cellule.Offset(0, 1)
If cellule = "D" Then Cells(Day(Range("F5")) + 9, 13) = cellule.Offset(-1, 6)
Next cellule
End If
End Sub
à+
Philippe