Bonjour,

Je cherche à optimiser mon code car le temps de traitement est trop lent.

Cas de figure :
- J'ai plus de 700 fichiers comportant des propriétés personnalisées
- dans un fichier (de statistique) je récupère ces différentes propriétés (avec la libraire DSOfile) dans un array
- J'applique l'array dans un tableau structuré (jusque là, la vitesse de traitement me convient, 35 secondes pour le 26'000 propriétés)
- Dans la première colonne se trouve le nom du fichier correspondant au fichier, je veux y ajouter un lien hypertexte, il y a environ 26'000 lignes. Et c'est là que j'ai un soucis, le temps de traitement de plus de 4 minutes

Mes lignes de commande sont :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
      Dim Chemin As String
      Dim cel As Range
      Chemin = "C:\TEST"
 
     Application.screenUpdating = False
      With Sheets("Import")
         For Each cel In .Range("TabImport4[Fichier avec lien]")
            If cel <> "" Then
               .Hyperlinks.Add anchor:=cel, Address:=Chemin & "\" & cel, TextToDisplay:=cel.Value2
            End If
         Next cel
      End With
      Application.screenUpdating = True
Je me demandais s'il n'y avait pas moyen d'améliorer tout ça :-)
Auriez-vous une idée comment procéder pour optimiser ce traitement ? Il y a t'il un autre moyen que de parcourir chaque cellule ?

Merci d'avance
Wouana