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 :
Par quelle écriture remplacer "Windows("AAA.xlsm").Activate" pour que cette macro fonctionne depuis n'importe quel classeur.
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
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)
Partager