Private Sub CommandButton4_Click()
UserForm4.Hide
End Sub
Private Sub CommandButton5_Click()
Unload UserForm4
End Sub
Private Sub CommandButton2_Click()
Workbooks.Open ("F:\Année en cours\AVP 041415\Nouveau dossier\TGI " & TextBox2 & ".xls")
Windows("TGI " & TextBox2 & ".xls").Activate
Dim Ligne As Integer
Dim controle As String
Windows("AVP_Année en cours.xlsm").Activate
Sheets("AVP").Select
Range("CA2").Select
Do While ActiveCell.Value <> ""
If ActiveCell.Value = TextBox1 Then
Ligne = ActiveCell.Row
Range(Cells(Ligne, 1), Cells(Ligne, 9)).Copy
Windows("TGI " & TextBox2 & ".xls").Activate
Worksheets("Feuil2").Range ("B13")
'cas numero 1 : aucune ligne n'a déjà été exportée
If ActiveCell.Offset(0, 0).Value = "" Then
ActiveCell.Offset(0, 0).Select
ActiveSheet.Paste
Windows("AVP_Année en cours.xlsm").Activate
Sheets("AVP").Select
ActiveCell.Offset(1, 0).Select
'cas numero 2 : des lignes ont déjà été exportées
Else
Range("B65536").End(xlUp).Offset(1).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Windows("AVP_Année en cours.xlsm").Activate
Sheets("AVP").Select
ActiveCell.Offset(1, 0).Select
End If
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
'Workbooks.Open ("F:\Année en cours\AVP 041415\Nouveau dossier\TGI " & TextBox2 & ".xls")
' End If
UserForm4.Hide
Unload UserForm4
End Sub