code pour copier une feuille dans u nouveau classeur.

[tonychange]

bonjour,

ci-dessous une fonction pour copier mon fichier dans un nouveau classeur :
par contre je souhaite donner un nom automatiquement a ce nouveau classeur a la date du jour.
egalement ne pas recopier quelques colonnes : dans mon cas les cononnes suivates : (E, H O, S).


Sub Recopie()

Range("A1").Select
Cells.Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Range("A1").Select
Selection.CurrentRegion.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Selection.CurrentRegion.Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A1").Select
End Sub

 

[tonychange]

Re : code pour copier une feuille dans u nouveau classeur.

personne pour m'aider SVP

 

[Pierrot93]

Re : code pour copier une feuille dans u nouveau classeur.

Bonsoir Tony

regarde le code ci-dessous si il peut t'aider :

ActiveSheet.Copy
Range("E:E,H:H,O:O,S:S").Delete
ActiveWorkbook.SaveAs "Nouv" & Format(Now, "ddmmyyyyhhmm")

bonne soirée
@+

 

[tonychange]

Re : code pour copier une feuille dans u nouveau classeur.

bonjour personne ne peut m'aider un peu plus. je suis carement debutant.