Bonjour,
je désire créer un fichier texte nommée avec la date du jour.
Apres une recherche je n'ai rien trouvé et mon code a un bug:
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
Set colItems = objWMIService.ExecQuery("Select * from Win32_LocalTime" )
For Each objItem in colItems
dim annee
annee = objItem.Year
Next
'On vérifie que le fichier txt existe sinon on le creé.
On Error Resume Next
FileExists = ((GetAttr(DesktopPath&"\"&annee".txt" ) And vbDirectory) = 0) '<-chemin du fichier.txt
'Si le fichier existe c'est bon sinon le crée
If Not FileExists Then
Set MonFic = FSys.CreateTextFile(DesktopPath&"\"&annee".txt" )
End If
L erreur se produit la ligne FileExistes = ......
Quelle est la bonne syntaxe pour que le fichier se crée sans bug ?? Merci d'avance 
