Création Liens hypertextes multiples - optimisation
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:
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
