Existance d'un fichier

Marsh Posté le 02-05-2008 à 10:13:09

Bonjour,

Ma macro ouvre des fichiers excel, en extrait des données puis les referme.
Je voudrais savoir s'il est possible de dire par exemple:
Si le fichier "C\Mon fichier" existe, alors l'ouvrir,
sinon, msgbox "veuillez saisir un autre fichier".
c'est surtout la condition d'existence qui me pose pb je ne sais pas s'il existe une instruction permettant de faire cela.
merci pour vos réponses.

Marsh Posté le 02-05-2008 à 10:13:09

Marsh Posté le 02-05-2008 à 11:10:10

salut, via par exemple

Option Explicit

Private Function ExistenceFichier(sFichier As String) As Boolean
ExistenceFichier = Dir(sFichier) <> ""
End Function

Sub Tst()
If ExistenceFichier("C:\Transfert\...\Test.pdf" ) Then
......
Else
.....
End If
End Sub

Message édité par kiki29 le 02-05-2008 à 11:12:50

Marsh Posté le 02-05-2008 à 11:13:07

désolé kiki mais je ne comprend pas très bien.
que fait la fonction au juste?
si par exemple je tape ExistenceFichier(Mon_Fichier)
que renvoye la fonction?

Marsh Posté le 02-05-2008 à 11:13:48

mince pardon javai pas vu la suite javais vu que la fonction...au temps pour moi

Marsh Posté le 02-05-2008 à 11:16:02

Même sans la suite tu devrais voir qu'elle renvoie un booléen

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *