Problème boucle macro

Bonjour

J’aurais besoin de votre aide pour modifier une macro que j’utilise pour ouvrir des fichiers et mettre à jour des liaisons.
elle fonctionne bien mais j’aimerai mettre une condition pour ouvrir les fichiers qu’à partir d’un nom de fichier et non tous les fichiers présents dans le dossier.
pour informations j’ai environ 2000 fichiers qui s’actualisent et ils sont tous nommés avec des caractères numériques de 1 à 8000 et j’aimerai par exemple commencer l’actualisation à partir des fichiers nommés 5000.

J’ai en lancement de la boucle

Sub ...

Chemin = ...

Fichier = ...

Do while Fichier <> « «

Set Wb = Worbooks.open (Chemin & fichier)

Wb.refreshall

...

Merci pour votre aide

Bonjour Clarac,

Une idée est d'ajouter entre les deux lignes existantes l'instruction suivante :

Do while Fichier <> « «

If Val(Fichier) >= 5000 then

Set Wb = Worbooks.open (Chemin & fichier)

Ne pas oublier l'instruction "End If" à la fin.

merci pour votre retour rapide Antoine

Je viens de tester et j’ai un message d’erreur

Erreur de compilation

Boucle sans Do

voici ma macro avec les modifications

J’ai l’impression que ça vient de loop à la fin

Sub ...
Chemin = ....
Fichier = ...

Do While Fichier <> ""
If Val(Fichier) >= 5000 Then
Set Wb = Workbooks.Open(Chemin & Fichier)
Wb.RefreshAll
'Application.AskToUpdateLinks = False
'ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
ActiveWorkbook.UpdateLinks = xlUpdateLinksAlways
Wb.Save
Wb.Close
Set Wb = Nothing
Fichier = Dir
Loop
MsgBox "Fin de la mise à jour"

End Sub

La dernière ligne de mon précédent message était :

Ne pas oublier l'instruction "End If" à la fin.

A placer avant l'instruction Loop