Problème lenteur Excel 2007

Fermé
Totoro san Messages postés 6 Date d'inscription lundi 17 août 2009 Statut Membre Dernière intervention 19 août 2009 - 17 août 2009 à 08:53
Totoro san Messages postés 6 Date d'inscription lundi 17 août 2009 Statut Membre Dernière intervention 19 août 2009 - 18 août 2009 à 13:52
Bonjour,
Depuis le passage des postes sous Win Visat avec Office 2007, les macros s'executant sont vraiment plus longue. Pour exemple le code suivant qui se charge d'écrire dans une cellule s'execute instantanement sous Office 2000 alors que sous Office 2007 prend 8 à 10 sec.. Si quelqu'un a une idée sur le pourquoi de cette lenteur?
D'avance merci

Voici l'exemple de code
Public Sub WriteData()
Dim Cellule As Range
Dim CompteurCellule As Long
Dim MaDeltaDebut As Date, MaDeltaFin As Date

' MODIF CELLULE EXCEL
Dim vntCellule() As Variant
Dim lngI As Long
Dim ColJ As Long
''''''''''''''''''''''''''''''''

CompteurCellule = 0
w_Test.Range("TE_ZDebutEcriture").Offset(0, 0).Value = "Début écriture: " & Now
Debug.Print "Début écriture: " & w_Test.Range("TE_ZDebutEcriture").Offset(0, 0).Value

' MODIF CELLULE EXCEL
ReDim vntCellule(1 To 65536, 1 To 1)
For lngI = 1 To 65536
For ColJ = 1 To 1
vntCellule(lngI, ColJ) = Rnd * 100
Next ColJ
Next lngI
w_Donnees.Range(w_Donnees.Cells(1, 1), w_Donnees.Cells(65536, 1)).Value = vntCellule
'''''''''''''''''''''''''''''

' MISE EN COMMENTAIRE CELLULE EXCEL
' For Each Cellule In w_Donnees.Range(w_Donnees.Cells(1, 1), w_Donnees.Cells(65536, 1)).Cells
' Cellule.Value = Rnd * 100
' CompteurCellule = CompteurCellule + 1
' Next Cellule
'''''''''''''''''''''''''''''''''''''''''''''


Sortie:
w_Test.Range("TE_ZDebutEcriture").Offset(1, 0).Value = "Fin écriture: " & Now
MaDeltaDebut = Right(w_Test.Range("TE_ZDebutEcriture").Offset(0, 0), 8)
MaDeltaFin = Right(w_Test.Range("TE_ZDebutEcriture").Offset(1, 0), 8)
w_Test.Range("TE_ZDeltaEcriture").Value = Format(((MaDeltaDebut - MaDeltaFin)), "HH:MM:SS")
Debug.Print "Fin écriture: " & w_Test.Range("TE_ZDebutEcriture").Offset(1, 0).Value
Debug.Print "Delta: " & Right((MaDeltaDebut - MaDeltaFin), 8)

Exit Sub

End Sub
A voir également:

3 réponses

gbinforme Messages postés 14939 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 657
17 août 2009 à 23:11
bonjour

Le retour en arrière a rarement fait avancer : même s'il faut intégrer le changement, il y a tout de même des améliorations sur 2007 !

As-tu bien fait les mises à jour de Office 2007 car certains problèmes initiaux de lenteur ont été corrigés par les "updates" successifs depuis la sortie ?
0
Totoro san Messages postés 6 Date d'inscription lundi 17 août 2009 Statut Membre Dernière intervention 19 août 2009
18 août 2009 à 13:52
Merci pour la réponse...
Je ne sais pas si les mise à jours ont été appliquées. Je vais de ce pas regarder.
0
Utilisateur anonyme
17 août 2009 à 22:38
Retourne sous 2000 ou 2003 tu vas gagner du temps.
-1