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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
| Option Compare Database
Option Explicit
Private Sub A_DblClick(Cancel As Integer)
Me.ActiveControl = OuvrirUnFichier(Me.Hwnd, "Sélectionner un fichier *.pdf", 1, "PDF", "pdf", "c:\pdf")
End Sub
Private Sub B_DblClick(Cancel As Integer)
Me.ActiveControl = OuvrirUnFichier(Me.Hwnd, "Sélectionner un fichier *.pdf", 1, "PDF", "pdf", "c:\pdf")
End Sub
Private Sub C_DblClick(Cancel As Integer)
Me.ActiveControl = OuvrirUnFichier(Me.Hwnd, "Sélectionner un fichier *.pdf", 1, "PDF", "pdf", "c:\pdf")
End Sub
Private Sub D_DblClick(Cancel As Integer)
Me.ActiveControl = OuvrirUnFichier(Me.Hwnd, "Sélectionner un fichier *.pdf", 1, "PDF", "pdf", "c:\pdf")
End Sub
Private Sub E_DblClick(Cancel As Integer)
Me.ActiveControl = OuvrirUnFichier(Me.Hwnd, "Sélectionner un fichier *.pdf", 1, "PDF", "pdf", "c:\pdf")
End Sub
Private Sub F_DblClick(Cancel As Integer)
Me.ActiveControl = OuvrirUnFichier(Me.Hwnd, "Sélectionner un fichier *.pdf", 1, "PDF", "pdf", "c:\pdf")
End Sub
Private Sub Créer_Click()
Dim Exec As String
Dim FichiersInput As String
Dim CAT As String
Dim OUT As String
Dim Arg As String
Dim Retour As String 'Vérifier que A, B et Fusion sont aménagés
If IsNull(Me.A) Or IsNull(Me.B) Or IsNull(Me.Fusion) Then
MsgBox "les champs en jaunes sont obligatoires", vbCritical, "Anomalie"
Exit Sub
End If 'Aménager l'exécutable
Exec = """" & Left(CurrentDb.Name, Len(CurrentDb.Name) - 20) & "pdftk.exe""" 'Aménager FichiersInput
FichiersInput = "A=""" & Me.A & """" & " B=""" & Me.B & """"
If Not IsNull(Me.C) Then FichiersInput = FichiersInput & " C=""" & Me.C & """"
If Not IsNull(Me.D) Then FichiersInput = FichiersInput & " D=""" & Me.D & """"
If Not IsNull(Me.E) Then FichiersInput = FichiersInput & " E=""" & Me.E & """"
If Not IsNull(Me.F) Then FichiersInput = FichiersInput & " F=""" & Me.F & """"
OUT = "output """ & Me.Fusion & """ "
EcrireLeBatch:
Arg = Exec & " " & FichiersInput & " " & OUT
Open "c:\tst.bat" For Output As #1
Print #1, Arg
Close #1
Retour = shell("c:\ConcaPdf.bat", vbNormalFocus)
End Sub |
