Impression automatique de fichier dans un dossier

bobo27110
Messages postés
4
Date d'inscription
mercredi 23 décembre 2009
Statut
Membre
Dernière intervention
28 octobre 2010
- 27 oct. 2010 à 13:36
bobo27110
Messages postés
4
Date d'inscription
mercredi 23 décembre 2009
Statut
Membre
Dernière intervention
28 octobre 2010
- 28 oct. 2010 à 11:23
Bonjour,
Je dois réaliser un script en VB ayant pour but d'imprimer de façon régulière (toutes les 2 mins) et automatique tous les fichier PDF ce trouvant dans un dossier "x".

J'espère que vous comprendrais ma requête et pourrais me diriger dans les démarches à entreprendre.

Je reste à votre disposition pour d'autres informations.

4 réponses

lolokun
Messages postés
1241
Date d'inscription
mardi 10 octobre 2006
Statut
Membre
Dernière intervention
27 août 2013
6
27 oct. 2010 à 13:43
Bonjour,

un script en vb?donc du vbs?
Les démarches à entreprendre :
- bien décomposer ton besoin en plusieurs parties : - tout d'abord lister des fichier PDF, ensuite tu t'occuperas de l'impression.
Le bouton rechercher est donc là pour t'aider


L'expérience, c'est une connerie par jour, mais jamais la même..
0
bobo27110
Messages postés
4
Date d'inscription
mercredi 23 décembre 2009
Statut
Membre
Dernière intervention
28 octobre 2010

27 oct. 2010 à 13:54
Oui du Vbs.
Donc si je comprend bien ce que tu me dit Lolokun, avant de parlé d'impression je dois tout d'abord faire une liste des PDF et par exemple les regroupés dans un tableau pour pouvoir ensuite les imprimés de façon automatique ?

Merci d'avance
0
bobo27110
Messages postés
4
Date d'inscription
mercredi 23 décembre 2009
Statut
Membre
Dernière intervention
28 octobre 2010

27 oct. 2010 à 15:34
Apparemment ce bout de script marcherais Sous VBA mais comment l'adapter sous VBS.

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1

Dim NbFichiers As Long
Dim Tableau() As String
Const Dossier As String = "C:\Transfert"

Sub Tst()
Dim hwnd As Long
Dim i As Long
Dim DossierOk As String

DossierOk = Dossier
If Right(DossierOk, 1) <> "" Then DossierOk = Dossier & ""
ListeFichiers DossierOk, "pdf"
If NbFichiers > 0 Then
For i = 1 To UBound(Tableau)
ShellExecute hwnd, "print", DossierOk & Tableau(i), "", "", SW_SHOWNORMAL
Next
End If
End Sub

Private Sub ListeFichiers(ByVal NomDossierSource As String, ByVal Extension As String)
Dim NomFichier As String
NomFichier = Dir(NomDossierSource & "*." & Extension)

Erase Tableau
NbFichiers = 0
Do While Len(NomFichier) > 0
NbFichiers = NbFichiers + 1
ReDim Preserve Tableau(1 To NbFichiers)
Tableau(NbFichiers) = NomFichier
NomFichier = Dir()
Loop
End Sub

Merci d'avance
0
bobo27110
Messages postés
4
Date d'inscription
mercredi 23 décembre 2009
Statut
Membre
Dernière intervention
28 octobre 2010

28 oct. 2010 à 11:23
Personne ne peux m'aider ?
0