copier/coller dans autre classeur même répertoire

[pascal21]

sur double clic

Dim rng As Range, dl%
If Target.Column <> 1 Or Target.Count > 1 Then Exit Sub
Set rng = Range(Target, Target.Offset(0, 10))
With Sheets("journal des mouvements")
    dl = .Range("A65536").End(xlUp).Row + 1
    rng.Copy .Range("A" & dl)
    On Error Resume Next
    .Range("d" & dl).Comment.Delete
    On Error GoTo 0
End With
Range("H" & Target.Row, "I" & Target.Row).Clear

bonjour à tous
ce code me permet (merci encore à kjin) de copier coller une ligne dans une autre feuille
çà fonctionne très bien
j'aiemrais pour des raisons de sureté, conserver le collage dans un autre classeur situé dans le même répertoire (fichier)
ce classeur s'appelle 'journal des mouvements'
le répertoire (fichier) s'appelle 'stocks agences'
tout cela sera au final dans un serveur au siège de l'entreprise
je n'arrive pas à trouver le chemin pour indiquer le copier/coller dans
workbooks("journal des mouvements").sheets("feuil1")
il faudra ensuite que çà sauvegarde et ferme ce classeur journal des mouvements
comment intégrer çà au code ci-dessus
merci de votre aide

 

[pascal21]

Re : copier/coller dans autre classeur même répertoire

pour faire remonter
merci