Bonjour à tous,
j'ai essayé de me dépatouiller tous eul mais..;mon code ne fonctionne pas .
Ce que je voudrais , c'est copier la ligne complête du classeur "A_4_2_LagerKontrolleGP.xls" quand la date definie dans la colonne a est égale à aujourd'hui
vers le classeur "Stat" à la suite des lignes déjà remplie, c'est à dire dans la premiere ligne libre definie par la colonne A
Voici mon code
merci de votre aide
j'ai essayé de me dépatouiller tous eul mais..;mon code ne fonctionne pas .
Ce que je voudrais , c'est copier la ligne complête du classeur "A_4_2_LagerKontrolleGP.xls" quand la date definie dans la colonne a est égale à aujourd'hui
vers le classeur "Stat" à la suite des lignes déjà remplie, c'est à dire dans la premiere ligne libre definie par la colonne A
Voici mon code
Code:
Sub distri()
Workbooks.Open "C:\Documents and Settings\PC42\Bureau\Stats_equipes.xlsx"
Workbooks.Open ("C:\Documents and Settings\PC42\Bureau\A_4_2_LagerKontrolleGP.xls")
ActiveWorkbook.RefreshAll
Dim Lastlig As Long, i As Long
For i = 1 To [O35].End(xlUp).Row
If Range("a" & i).Value = Format(Date, "dd / mm / yy") Then
Range("a" & i).EntireRow.Copy
End If
Next
Workbooks("Stats_equipes.xlsx").Activate
Dim Lastlign As Long, m As Long
For m = 1 To [O6000].End(xlUp).Row
If Range("a" & m) = "" Then
Range("a" & i).EntireRow.Paste
End If
Next
End Sub
merci de votre aide