A voir également:
- Détecter l'arrivée d'un nouveau fichier :VBA
- Fichier rar - Guide
- Comment ouvrir un fichier epub ? - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment détecter un traceur sur téléphone - Accueil - Confidentialité
- Ouvrir un fichier .bin - Guide
3 réponses
Pas si compliquer je pense:
Faut pas que tu utilise excel pour la meme chose:
Ce que tu peux faire:
- Une macro qui se lance toutes les x minutes, ou seconde, ou ce que tu veux. Qui detecte les nouveau fichier dans le repertoire, et s'il y a une nouveau fichier, alors ca l ouvre, ca le traite, impression etc, ce que tu veux, puis ca le referme.
CA me semble pas insurmontable, et si c'est toujours d'actualite, je veux bien m'y pencher.
Mangda
Faut pas que tu utilise excel pour la meme chose:
Ce que tu peux faire:
- Une macro qui se lance toutes les x minutes, ou seconde, ou ce que tu veux. Qui detecte les nouveau fichier dans le repertoire, et s'il y a une nouveau fichier, alors ca l ouvre, ca le traite, impression etc, ce que tu veux, puis ca le referme.
CA me semble pas insurmontable, et si c'est toujours d'actualite, je veux bien m'y pencher.
Mangda
Voici ce que j'ai fait Mangda...si tu as des suggestions...te gêne surtout pas!
J'ai fait une Loop...elle est sans fin mais bon pour les besoins de la cause c'est suffisant et je l'arrête en fermant excel! Elle recherche un nouveau fichier...elle n'en trouve pas alors la macro s'arrete pour trois seconde...elle en trouve un...elle l'ouvre...blablabla...le ferme et le détruit...puis on recommence!
code = Format(Date, "yymmdd")
Do
With Application.Filesearch
.Newsearch
.Filetype = msoFileTypeAllFiles
.Filename = code & ".xls"
.LookIn = "C:\Mesure"
.Execute
If .foundfiles.Count = 0 Then
newhour = Hour(Now( ))
newminute = Minute(Now( ) )
newsecond = Second (Now ( ) ) + 3
WaitTime = Timeserial ( newhour, newminute, newsecond)
Application.Wait Wait time
Else If .foundfiles.Count >0 Then
Workbooks.Open (.foundfiles(1))
Bla Bla Bla
ActiveWorkbook.Close False
Kill .foundfiles(1)
End if
End With
Loop
J'ai fait une Loop...elle est sans fin mais bon pour les besoins de la cause c'est suffisant et je l'arrête en fermant excel! Elle recherche un nouveau fichier...elle n'en trouve pas alors la macro s'arrete pour trois seconde...elle en trouve un...elle l'ouvre...blablabla...le ferme et le détruit...puis on recommence!
code = Format(Date, "yymmdd")
Do
With Application.Filesearch
.Newsearch
.Filetype = msoFileTypeAllFiles
.Filename = code & ".xls"
.LookIn = "C:\Mesure"
.Execute
If .foundfiles.Count = 0 Then
newhour = Hour(Now( ))
newminute = Minute(Now( ) )
newsecond = Second (Now ( ) ) + 3
WaitTime = Timeserial ( newhour, newminute, newsecond)
Application.Wait Wait time
Else If .foundfiles.Count >0 Then
Workbooks.Open (.foundfiles(1))
Bla Bla Bla
ActiveWorkbook.Close False
Kill .foundfiles(1)
End if
End With
Loop