Vba lors de la fermeture de mon classeur copier vers base

c0uike à dit:

Voilà mon code mais le problème est qu'il ne me colle pas la valeur dans la colonne contenant le numéro de la facture mais a la première ligne vide de mon tableau.

Code:

Sub test()
        Workbooks.Open Filename:=ThisWorkbook.Path & "\" & ".......xlsm"    'chemin à préciser
        Windows("........xlsm").Activate
        Sheets("base_facture").Select
        des = Sheets("facture").Cells(Range("d65536").End(xlUp).Row + 1, 1).Address
        Windows(ThisWorkbook.Name).Activate
        Sheets("facture").Range("K3").Copy Workbooks("........xlsm").Sheets("base_facture").Range(des)
        Sheets("facture").Range("K37").Copy Workbooks("..........xlsm").Sheets("base_facture").Range(des).Offset(0, 4)
        Application.DisplayAlerts = False
        Workbooks("..........xlsm").Save
        Windows(".........xlsm").Close
        ThisWorkbook.Save
        Application.DisplayAlerts = True

End Sub

Regarde la pièce jointe 221770

Cliquez pour agrandir...