Attente tant qu'un fichier n'existe pas

Bonjour le Forum,

J'ai encore peu de connaissances en VBA donc j'aurai besoin de votre expertise.

J'ai une macro qui me télécharge un fichier sur Chrome, mais pour ne pas que la page se ferme avant que le téléchargement soit fini j'ai mis un délai avant le "End Sub".

Sub Chrome()

'Partie du code qui télécharge mon fichier "DLNew.CSV"

Application.Wait (Now + TimeValue("0:00:15")

End Sub

Est-ce qu'il y a un moyen, que tant que le fichier "C:\Users\me\Downloads\DLNew.CSV" n'existe pas, cela ne passe pas au End Sub directement et que dès qu'il est trouvé, que cela passe à la suite. (A noter que le fichier se nommera toujours comme cela, sans (1), (2), etc..)

Merci

Bonjour

OUI

Do While x = ""
 x = Dir("C:\Users\me\Downloads\DLNew.CSV")
Loop
Suite...

Bon et bien je n'avais pas suffisamment cherché, j'ai trouvé une solution pour ceux que ça peut intéresser dans le futur :

Tout d'abord cette fonction permet de vérifier si le fichier existe :

Public Function CheckFichier(FichieraCheck as string)

On Error GoTo Erreur

If FichieraCheck <> "" And Len (Dir (FichieraCheck)) > 0 Then
           CheckFichier = True
Else
           CheckFichier = False
End If
Exit Function

Erreur :
CheckFichier = CVErr (xlErrRef)
End Function

et j'ai modifié mon code principal de cette façon :

Sub Chrome()
Dim FichieraCheck as String
'Partie du code qui télécharge mon fichier "DLNew.CSV"

FichieraCheck = "C:\Users\me\Downloads\DLNew.CSV"
Do While CheckFichier(FichieraCheck) = False
   Application.Wait (Now + TimeValue("0:00:02"))
Loop

End Sub

Merci 78Chris pour ta réponse, je rédigeais mon commentaire tu as été plus rapide ahah

Ta méthode est bien plus simple à intégrer je vais la conserver.