Discussion :

[gentoo]

Bonjour,

Voilà, j'ai un programme qui demande à temps régulier d'ouvrir un répertoire pour lancer une impression d'un document PDF.

Le fichier à imprimer est toujours le dernier créé.

L'idée est de trouver une commande qui:

1 trouve le fichier le plus récent en création dans le répertoire "R"
2 imprime ce dernier fichier trouvé

Le tout en un simple double-clic

Quelqu'un a t-il une idée?

j'ai pensé à un .bat sous dos mais je ne sais pas trop m'y prendre...;





merci de votre concours!!!

[l_autodidacte]

j'ai un programme qui demande à temps régulier ....

Si tu as déjà ce programme, pourquoi ne pas le laisser faire son boulot ?

Mais si tu veux un programme (ou un bout de code) c'est une autre chose.
Une manière plus simple est de poser le problème dans le forum VBScript par exemple.

[gretch]

solution non testée mais cela devrait donner une bonne piste.
trouver fichier récent : trouvé dans la FAQ developpez...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

for /f "tokens=4* delims= " %%i in ('dir /o:d "C:\monRep\*.txt" ^| findstr /i /c:".txt"') do set VrFchRcnt=%%i %%j echo %VrFchRcnt%

imprimer le fichier trouver : dans la faq aussi !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

print /d:nomImprimante tondoc.pdf

ps : un simple copier coller des 2 questions dans google aurait certainement abouti !

[gentoo]

Si tu as déjà ce programme, pourquoi ne pas le laisser faire son boulot ?

Mais si tu veux un programme (ou un bout de code) c'est une autre chose.
Une manière plus simple est de poser le problème dans le forum VBScript par exemple.

Non, non.. le programme effectue une tâche, génère un dossier. logiquement on s'attend à avoir un bouton "imprimer" qui lance l'impression du dossier en cours. Sauf que:
1 On sort de la fenêtre active
2 On lance un nouveau module
3 On insère le N° du dossier à imprimer
4 On exécute la tâche
5 On indique à quel endroit doit se générer le fichier pdf
6 On valide
7 On ouvre le répertoire en question
8 On sélectionne le fichier en question (le plus récent)
9 On ouvre le fichier
10 On lance l'impression!!!!

[gentoo]

solution non testée mais cela devrait donner une bonne piste.
trouver fichier récent : trouvé dans la FAQ developpez...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

for /f "tokens=4* delims= " %%i in ('dir /o:d "C:\monRep\*.txt" ^| findstr /i /c:".txt"') do set VrFchRcnt=%%i %%j echo %VrFchRcnt%

imprimer le fichier trouver : dans la faq aussi !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

print /d:nomImprimante tondoc.pdf

ps : un simple copier coller des 2 questions dans google aurait certainement abouti !

Merci Gretch,

je vais vois ça de plus près....

[l_autodidacte]

Salut;
Il y a cette possibilité en enregistrant le code suivant dans un fichier .vbs :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Option Explicit
 
Dim objShell, objFolder, colItems, objItem, fso, strIn, J, MonFich, tb(100), n, Fich, I
 
 strIn = InputBox("Chemin du dossier à explorer : ","Chemin à explorer","C:\Tmp")
If strIn = "" Then Wscript.Quit(0)
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set objShell = CreateObject("Shell.Application")  
  Set objFolder = objShell.Namespace(strIn) 
  Set colItems = objFolder.Items
  n = colItems.Count ': MsgBox n
  If Right(strIn,1)<> "\" Then strIn = strIn + "\"
   Dim K, L, S : S = ""
   L = 0
   For K = 0 to n-1
     If Ucase(Right(colItems.Item(K),4))=".PDF"  Then 
		Tb(L) = colItems.Item(K)
		'Msgbox (L) & " : " & tb(L)
		L = L +1
	 End If
   Next
   I = 0
   For J = 0 To L - 2
      IF fso.GetFile(strIn & Tb(J)).DateCreated > fso.GetFile(strIn & Tb(J+1)).DateCreated Then
	     MonFich = tb(J) 
	  Else : MonFich = tb(J+1)
	  End If 
	  I = I + 1
	'  S = S + MonFich & "  ===>  " & Cstr(I) + Vbcrlf
   Next
  ' MsgBox S
  ' Set Fich = fso.GetFile(strIn & MonFich)
  ' MsgBox Fich  
   colItems.Item(I-1).InvokeVerbEx("Print")

Si le chemin du dossier contenant les fichiers à imprimer est connu, on peut remplacer la ligne
strIn = InputBox("Chemin du dossier à explorer : ","Chemin à explorer","C:\Tmp") par
strIn = "Ton chemin pour le dossier".
L'impression démarre automatiquement si l'imprimante est connectée et est sous tension.

[gentoo]

Merci l'autodidacte,

Je teste:::