Tester une recherche de fichier (VBA)

[Mathieu]

Bonjour le forum,

Je fais de la programmation en VBA.

Dans une de mes macros j'utilise un fichier "exemple.xls" situé dans le répertoire "C:\Temp"

J'aimerais tester si ce fichier existe ou pas

J'ai essayé avec la méthode FILESEARCH mais le code ne marche pas ...

Merci pour votre aide

Mathieu

 

[Pascal]

Salut Mathieu,

Tu devrais essayer la fonction "On Error GoTo ...."
Dans le cas ou le fichier existe rien ne se passe : il n'y à pas d'erreur
Dans le cas ou le fichier n'existe pas, tu peu envoyer à la fin de ta procédure et faire ouvrir un message indiquant que le fichier est inexistant...

Bon courage
Pascal

 

[Mathieu]

Bojour Pascal,

Que dire... juste merci

@ +

Mathieu

 

[michel]

Bonjour Mathieu , bonjour Pascal

Mathieu , la procedure ci dessous renvoie un message qui indique si le classeur "exemple" existe ou pas dans le repertoire "C:\Temp"

Sub ClasseurExisteOuiNon()
Dim Wb As Object
Dim i As Byte
Dim Longueur As Byte
Dim X As Byte

Set Wb = Application.FileSearch
With Wb
.LookIn = "C:\Temp"
.FileName = "exemple"
If .Execute > 0 Then

For i = 1 To .FoundFiles.Count
Longueur = Len(.FoundFiles(i))
X = Longueur
While Mid(.FoundFiles(i), X, 1) <> "\"
X = X - 1
Wend

If Mid(.FoundFiles(i), X + 1, Longueur - X) = "exemple.xls" Then
MsgBox "Le classeur nommé EXEMPLE existe dans le répertoire C:\Temp . "
Exit Sub
End If
Next i
MsgBox "Le classeur nommé EXEMPLE n'a pas été trouvé dans le répertoire C:\Temp . "
Else
MsgBox "Le classeur nommé EXEMPLE n'a pas été trouvé dans le répertoire C:\Temp . "
End If
End With
End Sub

bonne journée
michel