J'ai un programme qui permet de détecter si il y a un fichier excel toutes les 5 minutes dans un folder, ensuite il doit l'analyser et envoyer un mail d'erreur si il detecte quelque chose, (enfin j'espere)
Le programme ne veut pas se compiler à "range" il me dit que sub n'est pas definit!
Aidez-moi svp
Sub RechercheFichier()
code = Format(Date, "yymmdd")
Do
With Application.FileSearch
.NewSearch
.FileType = msoFileTypeAllFiles
.FileName = code & ".xls"
.LookIn = "C:\RECEPTIONS\Leh"
.Execute
If .foundfiles.Count = 0 Then
newhour = Hour(Now())
newminute = Minute(Now())
newsecond = Second(Now()) + 3
WaitTime = TimeSerial(newhour, newminute, newsecond)
Application.Wait Time
ElseIf .foundfiles.Count > 0 Then
Workbooks.Open (.foundfiles(1))
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
If Range("a1").Value = Empty Or Range("e3").Value <> Range("f3").Value Then
MailAd = ("qqun1@qq.com;qqun2@qq.com")
Subj = ("erreur fichier")
Msg = Msg & ("Le fichier que vous nous avez envoyé est vide")
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End If
ActiveWorkbook.Close False
Kill .foundfiles(1)
End If
End With
Loop
End Sub