Faire un controle sur la présence d'un fichier dans un rép

[zorg]

Bonjour à tout le forum,
Je n'arrive pas à créer un controle pour que ma macro vérifie la présence d'un fichier bien précis dans un rép de mon disque avant de continuer et de mettre une erreur parce qu'elle ne le trouve pas.
Merci d'avance à ceux qui me donneront un coup de main.

voici le début de mon code:

Application.ScreenUpdating = False
Dim Msg1, Msg2
Dim Cible As Object, Val As Object
Dim Resultat As String, Fichier As String

Fichier = "C:\Suig\Carat\DATA\IMPOTSIC.csv"

'je pense qu'il faudrait mettre le controle ici

Set Cible = CreateObject("Scripting.fileSystemObject")
Set Val = Cible.getFile(Fichier)
Msg1 = "Informations fichier source"
Msg2 = "!!! N'oubliez pas de mettre à jour le fichier source Carat (.csv) !!!"

Resultat = Msg1 & Chr(10) & Chr(10) & _
"Chemin : " & Val.parentFolder & Chr(10) & Chr(10) & _
"Nom et chemin fichier : " & Fichier & Chr(10) & Chr(10) & _
"Derniere sauvegarde : " & Val.dateLastModified & Chr(10) & Chr(10) & _
"Taille classeur : " & Val.Size & " octets " & Chr(10) & Chr(10) & _
Msg2

MsgBox Resultat

 

[Creepy]

Salut,

J'ai un bout de code chez moi qui vérifie la presence d'un fichier.
Mais je ne m'en souviens plus !!! Je fais ca à partir d'un FSO.

Je fais un FSO.filexist ou quelque chose comme ca !! J'arrive plus à me souvenir. Pfffffffff dur dur de vieillir !!

Bref si tu peux attendre la semaine, je te donnerais le bout de code, car je suis en déplacement !
A moins qu'une âme charitable te dépanne avant !!!

Si ce n'est pas le cas, rappelle le moi, j'ai aussi une petite tête !!

++

Creepy

 

[Minick]

Salut,

Essaie ceci:

With Application.FileSearch
.LookIn = "C:\Suig\Carat\DATA"
.Filename = "IMPOTSIC.csv"

If .Execute > 0 Then
'Ton Code...'
End If
End With

@+ Minick

 

[Chris]

Bonjour
Il y aussi

X=dir("c:\chemin\toto.xls")

qui valorise X comme "" si pas de fichier ou par le nom du fichier s'il existe.

Il suffit donc d'un if X = ""

Chris

 

[zorg]

Merci à vous tous pour votre aide
Minick ta soluce marche nickel