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 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78
| Private Sub btn_import_Click()
If IsNull(Me.Txt_path1) Or IsNull(Me.txt_path2) Or IsNull(Me.txt_path3) Then
MsgBox "Les fichiers ne sont pas sélectionnés.", vbCritical, "Manque infos"
Exit Sub
End If
ImportTousFichiersExcel
End Sub
Sub ImportTousFichiersExcel()
Const cnNbrFichier = 3
Dim I As Integer
Dim vsFicName As String
Dim vsTableName As String
Dim vbFormatOk As Boolean
I = 1
vbFormatOk = True
While I <= cnNbrFichier And vbFormatOk
If IsNull(Me.Controls("txt_path" & I)) Then
MsgBox "Fichier non saisi", vbCritical, "Manque Infos"
Exit Sub
End If
vsFicName = Me.Controls("txt_path" & I)
vsTableName = Choose(I, "Import Situation Commandes et Livraisons", "Import Reste à Livrer Interdiv", "Import OTD Interdiv ZM13")
vbFormatOk = TestFichierExcel(vsFicName, vsTableName)
I = I + 1
Wend
If vbFormatOk Then
For I = 1 To cnNbrFichier
vsFicName = Me.Controls("txt_path" & I)
vsTableName = Choose(I, "Import Situation Commandes et Livraisons", "Import Reste à Livrer Interdiv", "Import OTD Interdiv ZM13")
ImportFichierExcel vsFicName, vsTableName
Next
'Lancement des requêtes de MAJ
DoCmd.SetWarnings False
DoCmd.OpenQuery "MAJ-01"
DoCmd.OpenQuery "MAJ-02"
DoCmd.OpenQuery "MAJ-04"
DoCmd.OpenQuery "MAJ-05"
DoCmd.OpenQuery "MAJ-06"
DoCmd.OpenQuery "MAJ-08"
DoCmd.OpenQuery "MAJ-09"
DoCmd.OpenQuery "MAJ-10"
DoCmd.OpenQuery "MAJ-11"
DoCmd.OpenQuery "MAJ-12"
DoCmd.OpenQuery "MAJ-133"
DoCmd.OpenQuery "MAJ-14"
DoCmd.OpenQuery "MAJ-15"
DoCmd.OpenQuery "MAJ-16"
DoCmd.OpenQuery "MAJ-17"
DoCmd.OpenQuery "MAJ-18"
DoCmd.OpenQuery "MAJ-19"
DoCmd.OpenQuery "MAJ-20"
DoCmd.OpenQuery "MAJ-2110"
DoCmd.OpenQuery "MAJ-2111"
DoCmd.OpenQuery "MAJ-2112"
DoCmd.OpenQuery "MAJ-22"
DoCmd.OpenQuery "MAJ-23"
DoCmd.OpenQuery "MAJ-24"
DoCmd.OpenQuery "MAJ-25"
DoCmd.OpenQuery "MAJ-26"
DoCmd.OpenQuery "MAJ-27"
DoCmd.OpenQuery "MAJ-28"
DoCmd.OpenQuery "MAJ-29"
DoCmd.SetWarnings True
MsgBox "L'importation est terminée"
Else
MsgBox "Le format du fichier Excel : '" & vsFicName & vsTableName & "' n'est pas conforme !", vbExclamation
End If
End Sub |
Partager