Vérifier qu'un fichier est bien dans un dossier

[Pierre]

Bonjour les amis

Voilà, j'ai créé une macro qui ouvre automatiquement un fichier dont le nom varie. Le fichier à ouvrir se trouve toujours dans le même dossier sur mon disque : F:\\PRIVE\\MONTEURS\\

Le problème c'est que des fois le fichier en question n'existe pas. J'aurais donc voulu faire la chose suivante en VBA :

Si le dossier MONTEURS ne contient pas le fichier X alors ...



Merci pour votre aide précieuse.

Amicalement.

Pierre.

 

[Bebere]

'3 petites fonctions pour tester si un fichier existe ou non

bonjour
voilà de quoi essayer
bonne chance
merçi au auteur
Sub test()
MsgBox FileExists('c:\\tralala\\trilili.vbn')
MsgBox FileExists('c:\\windows\\calc.exe')
MsgBox IsExisting('c:\\tralala\\trilili.vbn')
MsgBox IsExisting('c:\\windows\\calc.exe')
MsgBox IsFile('c:\\tralala\\trilili.vbn')
MsgBox IsFile('c:\\windows\\calc.exe')
End Sub

Function FileExists(S As String) As Boolean
'le classique (et le plus court)
FileExists = Dir(S) <> ''
End Function

Function IsExisting(strFileName As String) As Boolean
'Media Lint, Chip Pearson & Dana DeLouis
On Error Resume Next
IsExisting = Not FileLen(strFileName)
End Function

Function IsFile(S As String) As Boolean
'Dana DeLouis
Dim fs
Set fs = CreateObject('Scripting.FileSystemObject')
IsFile = fs.FileExists(S)
End Function

'Au cas où, tester si le lecteur existe :
Function IsDriveValid(S As String) As Boolean
'Dana DeLouis
Dim fs
Set fs = CreateObject('Scripting.FileSystemObject')
IsDriveValid = fs.DriveExists(fs.GetDriveName(S))
End Function
au revoir

 

[Pierre]

Je suis content car mon pb est résolu

Un grand merci à toi Bebere.

Bonne continuation.



Pierre.