Discussion :

[arctica]

Bonjour à tous ,

J'ai un code qui doit me permettre de copier la ligne complête si sa cellule A contient la date aujourdhui()vers un autre fichier cette ligne doit se coller dans la ligne dont la cellule A est "" (premiere ligne vide )
Voici mon code qui ne marche pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub distri2()
    Dim Lastlig As Long, i As Long
    Dim Dest As Range
    Workbooks.Open "C:\Documents and Settings\PC42\Bureau\Stats_equipes.xlsx"
    Workbooks.Open "C:\Documents and Settings\PC42\Bureau\A_4_2_LagerKontrolleGP.xls"
    Set Dest = Workbooks("Stats_equipes").Sheets("progression").Range("A6000").End(xlUp)(2) 'Cellule de destination
        ActiveWorkbook.RefreshAll
    With Sheets("status_6") 'Changer le nom de la feuille
    For i = 1 To 35
        'Value2 contient le numéro de série de la date, indépendant du format.
        If .Range("a" & i).Value2 = Date Then
            .Range("a" & i).EntireRow.Copy Destination:=Dest
            Exit For
        End If
    Next
    End With
End Sub

Pourriez vous m'aider?

merci

[rjamin]

Bonjour,

Je vois un Copy mais pas de Paste, est-ce bien normal?

[arctica]

Je pense que le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Range("a" & i).EntireRow.Copy Destination:=Dest

est bon par contre des le lancement une erreur me dit que "progression"la feuille du classeur de destination "Stats_equipes" ne fait pas parti de l'indice
Est ce que cette partie est mal placé ?

[mercatog]

En travaillant avec plusieurs fichiers ouverts par ton code, tu dois indiquer de quel classeur s'agit il ici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

With ThisWorkbook.Sheets("status_6")

Si cette feuille appartient au classeur d'où la macro est lancée.

Sinon aies l'habitude de travailler avec des objets

exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub distri2()
Dim wbS As Workbook, wbA As Workbook
Dim Lastlig As Long, i As Long
Dim Dest As Range, c As Range
 
Set wbS = Workbooks.Open("C:\Documents and Settings\PC42\Bureau\Stats_equipes.xlsx")
Set wbA = Workbooks.Open("C:\Documents and Settings\PC42\Bureau\A_4_2_LagerKontrolleGP.xls")
'...

Tu auras tes 2 classeurs ouverts sans souci duquel est le classeur actif