Optimiser du code VBA

[Matjul]

Bonjour à tous,

Est il possible d'optimiser ce code:
Sheets("DAOSheet").Select
Range("A2:T2").Select
Tel qu'il est là, j'ai l'impression qu'il est un peu laborieux.
Merci pour votre aide.

 

[mutzik]

Re : Optimiser du code VBA

re,

pourquoi faire des select ? qu'y a t-il après ce code
en principe, les select ne servent pas car on peut mettre des cellules à jour sans les sélectionner au préalable
* mais sans l'intégralité du code ...

 

[Matjul]

Re : Optimiser du code VBA

Voici le code complet:
Sub Enregistrer_sous()

ChDir "D:\Mes Documents\......"
ActiveWorkbook.SaveAs Filename:= _
"D:\Mes Documents\..... " & Day(Date) & "." & Month(Date) & "." & Year(Date) & " " & Hour(Time) & "-" & Minute(Time) & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Sheets("DAOSheet").Select
Range("A2:T2").Select
Selection.Copy
Workbooks.Open Filename:= _
"D:\Mes Documents\..........xls"
Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveWorkbook.Save
ActiveWindow.Close
Application.CutCopyMode = False
Selection.Copy
Application.CutCopyMode = False



End Sub