Optimiser temps d'exécution

Bonjour,

Sur ce forum, on m'a aidé à faire une macro qui appelle les données dans tous les tableaux Excel d'un dossier. Quand je la lance sur mon ordinateur elle marche très bien, cependant elle boucle sur toutes les lignes quand je la lance sur d'autres ordinateurs du réseau.(Après recherches, j'ai l'impression que c'est un bug qui vient du fait que je rentre mes données dans un tableau?)J'ai donc rajouté la ligne :

Code:

---

Application.EnableEvents = False

---

Le code marche maintenant sur tous les ordinateurs mais le temps d'excéution est vraiment très long. Il varie selon les ordinateurs de 54s à 84s et n'a pas forcément une durée constante sur un même ordinateur. Avant cela, le temps d'exécution du programme était d'environ 0,7s.

Voici le programme :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

Private Sub CommandButton1_Click()     Dim principal As ThisWorkbook Dim repertoire As String Dim fichier As String Dim i As Integer Dim start As Single   start = Timer   Range("B2:F2000").ClearContents   repertoire = "Q:\6- Production\17_Alerte qualité\Alertes signalées\" fichier = Dir(repertoire & "*.xlsm") i = 1 Application.EnableEvents = False   While Len(fichier) > 0   i = i + 1 Range("B" & i).FormulaR1C1 = "='" & repertoire & "[" & fichier & "]Alerte_qualité_fournisseur'!R4C3"   Range("C" & i).FormulaR1C1 = "='" & repertoire & "[" & fichier & "]Alerte_qualité_fournisseur'!R4C5"   Range("D" & i).FormulaR1C1 = "='" & repertoire & "[" & fichier & "]Alerte_qualité_fournisseur'!R6C3"   Range("E" & i).FormulaR1C1 = "='" & repertoire & "[" & fichier & "]Alerte_qualité_fournisseur'!R3C13"   Range("F" & i).FormulaR1C1 = "='" & repertoire & "[" & fichier & "]Alerte_qualité_fournisseur'!R9C10"   fichier = Dir   Wend Application.EnableEvents = True Application.ErrorCheckingOptions.BackgroundChecking = False   MsgBox "durée du traitement: " & Timer - start & " secondes"   End Sub

---

J'ai testé en rajoutant : Application.screenupdating = false, cela me fait gagner environ 1s

Est-ce que quelqu'un aurait une idée de ce que je pourrais faire ?

Merci d'avance pour vos réponses

Citation:

---

Envoyé par Valentine_Chips

---

Bonjour,

Votre traitement va de la ligne 2 à la ligne 2000. Combien de fichiers sont réellement concernés dans le répertoire de votre serveur ?
S'il s'agit d'une quantité négligeable par rapport aux 1999 lignes de la boucle, j'irais faire l'inventaire des fichiers concernés sur le serveur pour récupérer les informations uniquement sur ces fichiers.

Bonsoir,

Je ne pense pas que cela vienne du Range("B2:F2000") car les formules ne sont créées que pour les seuls classeurs présents avec DIR.

Plutôt que de mettre des formules ne serait-il pas plus rapide d'ouvrir le classeur et de récupérer la valeur des 5 cellules concernées ?

Code:

---

1 2 3 4 5 6

Workbook.Open repertoire & fichier With Sheets("Alerte_qualité_fournisseur") Range("B" & i).Value = .Range("C4").Value ... End With ActiveWorkbook.Close False

---

bonjour
ouverture/fermeture de X classeurs pour récupérer une ligne serait plus rapide????
annasecu je veux le même papa noël que toi ;)

par contre effectivement l'idée de la valeur en dur n'est pas mauvaise
valentine quand tes formules ont été déposée fait une gestion d'attente sur le change et fait un .value=.value
je suppose que le calculate sera moins solicité
j'aurais pu y penser :oops: