Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Z

zorg

Guest
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
 
C

Creepy

Guest
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
 
M

Minick

Guest
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
 
C

Chris

Guest
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…