Enregistrement des données dans un autre claseur

Bonjour à tous,

Actuellement en stage, mon tuteur souhaite que les données saisies dans mon formulaire aillent dans un autre classeur que celui ouvert,

Voici mon code :

Private Sub CommandButton1_Click()

ligne = Sheets("BDD").[a65000].End(xlUp).Row + 1

Sheets("BDD").Cells(ligne, 1) = Num.Value

Sheets("BDD").Cells(ligne, 2) = Nom.Value

Sheets("BDD").Cells(ligne, 3) = Date.Value

Sheets("BDD").Cells(ligne, 4) = IN.Value

end sub

Et je ne sais pas comment faire en sorte que ces données aillent dans l'autre classeur, pouvez-vous m'aider s'il vous plait ? Merci,

(Je ne peux pas envoyer le fichier car les données sont confidentielles et il y a déjà beaucoup de code donc difficile à anonymiser)

Bonne journée

bonjour DD1009 le forum

a+

papou

Private Sub CommandButton1_Click()
 dim wbkc as workbook, ligne&
  set wbkc= workbooks.open(""là le chemin de ton fichier de destination"")
  ligne = wbkc.Sheets("BDD").[a65000].End(xlUp).Row + 1
  wbkc.Sheets("BDD").Cells(ligne, 1) = Num.Value
  wbkc.Sheets("BDD").Cells(ligne, 2) = Nom.Value
  wbkc.Sheets("BDD").Cells(ligne, 3) = Date.Value
  wbkc.Sheets("BDD").Cells(ligne, 4) = IN.Value
 wbkc.close 1
end sub

Super merci beaucoup !