M
marie
Guest
Voila j'ai un problème à la fin du code (en rouge), il me dit erreur de syntaxe
Dès que j'utilise destination:= j'ai ce message
si qqn peut me dire prq ?
Merci
Option Explicit
Private Sub CommandButton1_Click()
Workbooks.Open ('G:\\COMPTA2005\\Transports\\Détail factures TNT 2005')
Dim selstr As String
Dim TestMois As Date
Dim ligne As Variant
TestMois = Workbooks('controle.xls').Worksheets('Feuil2').Range('B2').Value
Debug.Print TestMois
Workbooks('Détail factures TNT 2005.xls').Activate
Worksheets('Détail').Activate
For Each ligne In Workbooks('Détail factures TNT 2005.xls').Worksheets('Détail').Range('A1', 'A65532').Rows
Worksheets('Détail').Range('A' & ligne.Row).Select
Debug.Print
If ActiveCell.Text = '29905' And ActiveCell.Offset(0, 3).Value = TestMois Then
If selstr <> '' Then
selstr = selstr & ',' & ligne.Row & ':' & ligne.Row
Else
selstr = ligne.Row & ':' & ligne.Row
End If
End If
Next
ActiveSheet.Range(selstr).Select
ActiveWindow.RangeSelection.Copy
Destination:=Worksbooks('controle.xls').Worksheets('Feuil1').range('A65535').End(xlup).offset(1,0)
Workbooks('controle.xls').Activate
Worksheets('feuil1').Activate
End Sub
Dès que j'utilise destination:= j'ai ce message
si qqn peut me dire prq ?
Merci
Option Explicit
Private Sub CommandButton1_Click()
Workbooks.Open ('G:\\COMPTA2005\\Transports\\Détail factures TNT 2005')
Dim selstr As String
Dim TestMois As Date
Dim ligne As Variant
TestMois = Workbooks('controle.xls').Worksheets('Feuil2').Range('B2').Value
Debug.Print TestMois
Workbooks('Détail factures TNT 2005.xls').Activate
Worksheets('Détail').Activate
For Each ligne In Workbooks('Détail factures TNT 2005.xls').Worksheets('Détail').Range('A1', 'A65532').Rows
Worksheets('Détail').Range('A' & ligne.Row).Select
Debug.Print
If ActiveCell.Text = '29905' And ActiveCell.Offset(0, 3).Value = TestMois Then
If selstr <> '' Then
selstr = selstr & ',' & ligne.Row & ':' & ligne.Row
Else
selstr = ligne.Row & ':' & ligne.Row
End If
End If
Next
ActiveSheet.Range(selstr).Select
ActiveWindow.RangeSelection.Copy
Destination:=Worksbooks('controle.xls').Worksheets('Feuil1').range('A65535').End(xlup).offset(1,0)
Workbooks('controle.xls').Activate
Worksheets('feuil1').Activate
End Sub