slt
j'ai une 4 onglet chacun contient environ 1000 lignes.
sur chaque ligne, je dois récupérer 6 informations provenant de divers fichiers
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
for Y = 1  to 4
        If y = 1 Then Sheets("1").Select
        If y = 2 Then Sheets("2").Select
        If y = 3 Then Sheets("3").Select
        If y = 4 Then Sheets("4").Select
 
for i = 1 to nbligne
'6 info de ce genre
 
Cells(i, 27) = "=if('\\Fiche Verification Materiel\" & Cells(i, 3).Value & "\" & Cells(i, 1).Value & "\" & "[FICHE_INCIDENT_" & Cells(i, 1).Value & ".XLS" & "]Feuil1'!R22C8=0,"" "",'\\Fiche Verification Materiel\" & Cells(i, 3).Value & "\" & Cells(i, 1).Value & "\" & "[FICHE_INCIDENT_" & Cells(i, 1).Value & ".XLS" & "]Feuil1'!R22C8)"
 
next i    
 
next y

mon code met environ 20 min pour s'executer, je cherche une solution pour gagner du temps. En fait ici je fais des liens est ce que ce serait pas plus rapide de seulement mettre à jour les anciens liens ou alors utiliser la méthode OLE DB Microsoft Jet présenter ici http://http://silkyroad.developpez.com/VBA/ClasseursFermes/