Ecrire depuis un classeur dans un autre via une macro

[titymax]

Bonjour,

Je tourne et retourne dans tous les sens et je n'arrive pas à trouver la solution qui permette d'écrire depuis un classeur A via une macro dans un classeur B (je pécise que ces 2 classuers sont ouverts).

Voici mon code :

Sub export()
'Dim Wbk1 As Workbook, Wbk2 As Workbook

Set Wbk1 = ThisWorkbook
Set Wbk2 = Workbooks("Portefeuille.xls")


Wbk2.Sheets("PORTEFEUILLE").Range("C4") = Now
Wbk2.Sheets.Sheets("PORTEFEUILLE").Range("D4").FormulaLocal = "Aujourdhui()-C4"
Wbk2.Sheets.Sheets("PORTEFEUILLE").Range("O4") = Wbk1.Worksheets(Feuil1).Range("A1")

End Sub

Dans ce code le classeur A est Wbk1 et le classeur B est Wbk2.

Pour info, cette macro doit être exécutée à la fermeture du classeur.

Help me please !!

Bonnes fêtes à tous

 

[titymax]

Re : Ecrire depuis un classeur dans un autre via une macro

Merci Messieurs pour votre aide, la raison du bug était toute bête et c'est grâce à une remarque de Chalet que j'ai pu la trouver. Le fichier à partir duquel je lancais la macro (Classeur1) n'était pas enregistré tout simplement !!!

Maintenant ça roule impeccable, la fatigue des fêtes certainement...

Encore merci pour votre aide et vive le forum !!!!!!!!!

A bientôt