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 |
Partager