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 :

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
Mais apparement on ne peut utiliser le caractère "*".

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 ,