[VBA] Erreur 400 lors d'une copie d'un tableau dans nouveau classeur avec macro

[Diket]

Bonjour,

Comme je l'ai dis dans l'énoncé, j'ai une erreur 400 qui apparaît à la fin de ma macro.
Je souhaite prendre un tableau d'une feuille et le copier dans un nouveau classeur pour ensuite pouvoir y travailler dessus toujours avec la meme macro.

Je recopie une partie du code que j'ai :

Range(ActiveSheet.Range("A1"), ActiveSheet.Range("J1").End(xlDown)).Select
* * Selection.Copy
* * Workbooks.Add
* * ActiveSheet.Paste
* *
'Ajout de Colonne

* *
* * Range("K1").Select
* * ActiveCell.FormulaR1C1 = "MAJ"
* * Range("L1").Select
* * ActiveCell.FormulaR1C1 = "Commentaires"
* * Columns("A:L").Select
* * ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A:$L"), , xlYes).Name = _
* * * * "Tableau1"
* * Columns("A:L").Select
* * ActiveSheet.ListObjects("Tableau1").TableStyle = "TableStyleMedium9"

J'ai l'impression que après le coller, je ne peux plus rien faire.
Je suis encore qu'un débutant mais je me dis que la macro est sur ma feuille précédente et que peut être le nouveau classeur ne peut continuer dessus.
J'aimerais votre aide d'expert la dessus.

Je vous remercie beaucoup

 

[fredl]

Re : [VBA] Erreur 400 lors d'une copie d'un tableau dans nouveau classeur avec macro

peux tu joindre ton classeur avec la macro?

 

[Diket]

Re : [VBA] Erreur 400 lors d'une copie d'un tableau dans nouveau classeur avec macro

Le fichier est un peu confidentiel mais j'en ai fait un nouveau avec le code de la macro que j'ai cité précédemment.

Merci pour votre aide

 

[fredl]

Re : [VBA] Erreur 400 lors d'une copie d'un tableau dans nouveau classeur avec macro

voila
Il fallait mettre ta macro dans un module et non dans la feuille.
Dis moi si ok
Fred