Comment dans une macro appeler un nouveau classeur

[Hannoun]

Bonjour à tous

Mon pb chaque fois que je lance la macro je cree un nouveau classeur ce classeur s'appel classeur1 puis 2 etc.. comment dans le code ci dessous
je pourrai remplacer (classeur1) pour prendre le nouveau classeur actif


Windows("TEL.XLS").Activate
Application.CutCopyMode = False
Selection.Copy
---------------------------------------------
Windows("Classeur1").Activate
----------------------------------------------
Range("A1").Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Columns("a:a").ColumnWidth = 9


Merci par avance
H@NNOUN

 

[didier]

Peut-être qu'en récupérant le nom du fichier dans une variable pourrais venir en aide :

MonFichier = ActiveWorkbook.Name
Windows(MonFichier).Activate

A+
Didier

 

[Hannoun]

Bonjour didier merci pour ta reponse je vais tester ton code

A+ H@nnoun