Bonjour à toutes et à tous,
J'ai fais un modèle de bon de commande et je souhaiterais que certains éléments de celui-ci se déversent dans un autre classeur.
Par exemple : les cellules B20, J4, C3 se déversent dans les cellules A2, B2 et C3 d'un autre classeur appelé "DEP".
Et pour le bon de commande suivant, les cellules B20, J4 et C3 se déversent en A3, B3 et C3 du classeur "DEP".
Je vous mets ci-dessous mon code :
Merci de voir où je me suis trompé,
Des bises à tous
J'ai fais un modèle de bon de commande et je souhaiterais que certains éléments de celui-ci se déversent dans un autre classeur.
Par exemple : les cellules B20, J4, C3 se déversent dans les cellules A2, B2 et C3 d'un autre classeur appelé "DEP".
Et pour le bon de commande suivant, les cellules B20, J4 et C3 se déversent en A3, B3 et C3 du classeur "DEP".
Je vous mets ci-dessous mon code :
Code:
Sub Envoi_DEP()
Dim WSDest As Worksheet
Dim WBDest As Workbook
Dim WSSource As Worksheet
Set WSSource = ThisWorkbook.Sheets("BCF")
Workbooks.Open ("C:\mes_documents\test_bdd_communes\DEP_test.xlsx")
Set WBDest = ActiveWorkbook
Set WSDest = WBDest.Sheets("bdd")
WSSource.Range("J22").Copy
WSDest.Range("A2").End(xlUp)(2).Selection.PasteSpecial Paste:=xlPasteValues
Application.DisplayAlerts = False
WBDest.Save
WBDest.Close
End Sub
Merci de voir où je me suis trompé,
Des bises à tous