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
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