Bonjour à Tous,

J'ai créé un modèle de facture dans un classeur (AAA dans mon exemple) qui servira de base à toutes les factures enregistrées par client puis enregistré une macro à partir de ce premier classeur pour copier les éléments de la facture sous forme de journal dans un autre classeur nommé Classeur2 dans mon exemple.

La macro fonctionne de AAA à Classeur2 mais ne fonctionne plus lorsque AAA est enregistré sous un autre nom.

Voici ci-après l'écriture de la macro :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 Sub Macro1()
'
' Macro1 Macro
'
 
'
    Windows("Classeur2.xlsx").Activate
    Rows("2:2").Select
    Selection.Insert Shift:=xlDown
    Windows("AAA.xlsm").Activate
    Range("A2:E2").Select
    Selection.Copy
    Windows("Classeur2.xlsx").Activate
    ActiveSheet.Paste
    Windows("AAA.xlsm").Activate
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub
Par quelle écriture remplacer "Windows("AAA.xlsm").Activate" pour que cette macro fonctionne depuis n'importe quel classeur.

Je bloque sur ce point depuis un moment et étant débutante en VBA j'ai du mal à aller plus loin seule. J'aurais besoin de faire fonctionner cette application.

Merci à ceux/celles qui pourront m'aider (je suis en version excel 2007)