Vba lors de la fermeture de mon classeur copier vers base

[c0uike]

Bonjour à tous je cherche depuis quelque jours à copier la valeur hors taxe d'une facture vers une base de donnée se trouvant dans un autre fichier.

J'ai dans la case k3 le numéro de devis.
Dans la case k37 la valeur hors taxe (fichier1.xlsm)

J'aimerai la coller dans (fichier 2.xlsm)(feuille1)

La valeur de la cellule de la ligne correspondant à la valeur k3 dans la colonne "D".

Merci d'avance

 

[c0uike]

Re : Vba lors de la fermeture de mon classeur copier vers base

L erreur peut elle venir de cette ligne

des = Sheets(1).Cells(Range("d65536").End(xlUp).Row + 1, 1).Address

dois déclarer des avec dim

 

[c0uike]

Re : Vba lors de la fermeture de mon classeur copier vers base

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.

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

Voilà j'aimerai que ma somme ht se colle dans la ligne de la facture N°16 et non à la fin de mon tableau