Bonjour,
Je vous soumet mon problème je dois avant d'éxécuter mon script vérifier si un fichier de type "*.doc" (* car le fichier peut avoir differents noms) existe dans un répertoire précis. Si un fichier exister j'éxécute le script sinon je ferme l'application.
J'utilise :
Mais apparement on ne peut utiliser le caractère "*".
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Dim fso Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists("D:\Euromaster\Source\*.doc")) Then EXECUTION DU SCRIPT Else MsgBox ("Votre fichier source n'a pas été copier dans le répertoire Source") Application.Quit Exit Sub End If GESTION DES ERREURS End Sub
Si je mets un nom de fichier fixe il n'y a aucun problème mais ce n'est pas le but !
Je tourne en rond en cherchant sur divers forums et je me tourne donc vers vous.
Merci d'avance ,
Partager