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