Discussion :

[iperkut]

Bonjour à tous,

Voici le petit soucis qui m'amène ici... Je souhaiterai avoir la possibilité de tester la présence d'un fichier dans un répertoire précis et ce via une formule dans une cellule qui se met à jour automatiquement si possible sans VBA...

J'arrive pour le moment à le faire avec un fonction vba toute simple que j'appelle dans la cellule : Si FALSE => fichier non présent

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function ExisteFichier(nomfic As String) As Boolean
    ExisteFichier = (Dir(nomfic) <> "")
End Function

Le petit problème est que cette cellule ne se met pas à jour toute seule :
ex:

t0 : saisie de la formule + validation => fichier non présent => FALSE
t+1 : création du fichier
t+2 : formule tjrs à FALSE...
t+3 : validation (par ENTREE) de la formule => détecte le fichier => TRUE

Voyez-vous un moyen d'automatiser cela ?

Le top serait de pouvoir le faire sans VBA...

Merci d'avance

[Daniel.C]

Bonjour,

Essaie comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Function ExisteFichier(nomfic As String) As Boolean
    Application.Volatile
    ExisteFichier = (Dir(nomfic) <> "")
End Function

Sans VBA, je ne pense pas que ce soit possible.