Connaitre l'existance d'un fichier

[Celine]

Bonjour à tous,

Je fais un fichier qui va récupérer des informations dans un autre.

Je fais saisir l'adresse du répertoire où se trouve le fichier dans lequel je récupère les info et je voudrais vérifier si le fichier voulu est bien présent dans le répertoire que l'utilisateur à saisi.

Est-ce possible?

merci de votre aide.

Céline

 

[MichelXld]

bonjour Celine

j'espere que ce lien répondra à ta demande

Lien supprimé


une autre possibilité

Sub verfierSiFichierExiste()
Dim Fs As Object
Set Fs = CreateObject('Scripting.FileSystemObject')
MsgBox Fs.FileExists('C:\\\\\\\\monFichier.txt')
End Sub


bonne soiree
MichelXld

Message édité par: michelxld, à: 27/12/2005 05:43

 

[_Thierry]

Bonsoir Céline, Michel

Merci Michel, trop marrant la réponse de Ti j'avais raté ça à l'époque !

Mais c'est vrai que si l'on peut éviter un FSO, ben tant mieux...

Sub Magic_Tiiiiiiiiii()
Dim Fichier As String
Dim FichierExiste As Boolean

Fichier = InputBox('Saisir un Chemin', 'Test Fichier', 'C:\\Documents and Settings\\UserName\\My Documents\\TheFile.xls')

FichierExiste = Dir(Fichier) <> ''

MsgBox 'Le Fichier Existe t'il : ' & FichierExiste

End Sub

Bonne Soirée
@+Thierry

 

[Celine]

Bonjour Thierry, MicheXld,

Je vous remercie ça marche j'ai pris la version de Ti.

Merci beaucoup, ça fait vraiment plaisir d'avoir des gens comme vous toujours pret à dépanner et à nous apprendre encore plus, bonne journée, merci,

Céline