Optimiser du code VBA

Matjul · 8 Janvier 2008

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 · 8 Janvier 2008

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 · 8 Janvier 2008

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

Optimiser du code VBA

Matjul

XLDnaute Occasionnel

mutzik

XLDnaute Barbatruc

Matjul

XLDnaute Occasionnel

Discussions similaires

Optimiser du code VBA

Matjul

XLDnaute Occasionnel

mutzik

XLDnaute Barbatruc

Matjul

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency