lien fichier vbA

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:

---

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/

Bonjour,

Si il s'agit seulement de mettre a jour des liaisons existantes (a tester):

Code:

---

1 2 3 4

ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources 'ou Application.Calculate

---

Mais à mon avis la lenteur est surtout du au fait que les sources soient sur un réseau, si tel est bien le cas, tu peux essayer d'ouvrir tes classeurs sources, lancer un recalcul puis fermer les classeurs source, ce sera peut etre plus rapide.

Cordialement,

Tirex28/

Bon j'ai essayer ce que tum'a proposer tirex28 mais

Code:

---

Application.Calculate

---

ne fait rien et

Code:

---

ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources

---

me donne une erreur 13 sans doute du à un problème sur un lien.
Les infos sont bien sur le réseau, et elles doivent y rester mais est il possible de copier temporairement tout un dossier avec excel et le mettre sur le pc utilisateur, puis récupérer les infos depuis les dossiers temporaires.

Bonjour,

Les liaisons c'est la plaie ...

La macro ci dessous ouvre chaque classeur source, calcule tout, et referme le classeur source sans l'enregistrer. Si un lien ne fonctionne pas elle l'ignore.

Cela permet de ne pas copier les fichiers du réseau sur le disque dur local, meme temporairement, ce qui dans l'absolu est certainement possible.

A tester..

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub OuvrirLesSources() Dim i As Long, Sources Application.ScreenUpdating = False Sources = ThisWorkbook.LinkSources(xlExcelLinks) If Not IsEmpty(Sources) Then On Error GoTo Suite For i = 1 To UBound(Sources) Workbooks.Open (Sources(i)) Application.Calculate Workbooks(Workbooks.Count).Close False Suite: Next i End If End Sub

---

Cordialement,

Tirex28/

merci pour tes lignes de codes, ce que je vais faire je vais incorporer un chrono à mon programme pour comparer les 2 méthodes

slt, j'ai essayer ta méthode tirex28 et j'ai constater que ton code était plus long à s'éxécuter que le mien.