[E-07] Application d'une macro à plusieurs classeurs
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:
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)
