Discussion :

[loufab]

Bonjour,
Je vois dans ton code que c'est TestFichierExcel qui conditionne le passage dans ce message.

Code :

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

vbFormatOk = TestFichierExcel(vsFicName, vsTableName)

Il faut voir ce que fait ce test.

Le débogage peut t'aider à comprendre et à devenir autonome.

Cordialement,

[Didier L]

bonjour,

Le plus simple c'est de poster une version de ta base ou juste de ton formulaire avec tes chemins, etc ...
Ou fait aussi une capture écran de ton formulaire que l'on puisse mieux comprendre ce qui se passe

[typouce]

Bonjour,

j'ai finalement débogué le code :

j'ai placé ce code dans un module nommé Import excel :

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Option Compare Database
Option Explicit
 
Function TestFichierExcel(ByVal FileName As String, ByVal TableName As String) As Boolean
Dim MaFeuille As Excel.Worksheet
Dim I As Integer
Dim Appex As Excel.Application
Dim wbExcel As Excel.Workbook
Dim wsExcel As Excel.Worksheet
Set Appex = CreateObject("Excel.Application")
 
Dim vbFormatOk As Boolean
I = 1
 
    'On ouvre excel en mode caché
    Appex.Application.Visible = False
    Appex.Workbooks.Open FileName
 
    With Appex
        vbFormatOk = True
        While I < CurrentDb.TableDefs(TableName).Fields.Count And vbFormatOk
            If Replace(CurrentDb.TableDefs(TableName).Fields(I).Name, "#", ".") <> .Cells(1, I + 1) Then
                vbFormatOk = False
            End If
            I = I + 1
        Wend
        If vbFormatOk Then
            vbFormatOk = (.Cells(1, I + 1) = "") 'test si la colonne suivante est bien vide
        End If
    End With
 
    'On ferme excel
    Appex.Application.Quit
 
    TestFichierExcel = vbFormatOk
 
End Function
 
Sub ImportFichierExcel(ByVal FileName As String, ByVal TableName As String)
 
    Dim appExcel As Excel.Application
    Dim wbExcel As Excel.Workbook
    Dim wsExcel As Excel.Worksheet
 
    Set appExcel = CreateObject("Excel.Application")
    Set wbExcel = appExcel.Workbooks.Open(FileName)
    Set wsExcel = wbExcel.Worksheets(1)
 
    DoCmd.TransferSpreadsheet acImport, 8, TableName, FileName, True
 
    Set wbExcel = Nothing
    Set wsExcel = Nothing
    Set appExcel = Nothing
 
End Sub

Enfin j'ai placé le reste du code dans mon formulaire :

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

Encore un énorme merci pour votre aide.

Par contre j'ai un soucis avec les fichiers Excel ouvert lors de l'import qui restent dans les processus actif du gestionnaire des tâches. Mais la procédure d'import fonctionne correctement.

[loufab]

Pourquoi tu fais de l'automation si tu utilises une fonction ACCESS de transfert ?

[Didier L]

Effectivement c'est normal que tes fichiers restent ouvert dans Excel car tu ne referme par ton application dans ton code :

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
Sub ImportFichierExcel(ByVal FileName As String, ByVal TableName As String)
 
    Dim appExcel As Excel.Application
    Dim wbExcel As Excel.Workbook
    Dim wsExcel As Excel.Worksheet
 
    Set appExcel = CreateObject("Excel.Application")
    Set wbExcel = appExcel.Workbooks.Open(FileName)
    Set wsExcel = wbExcel.Worksheets(1)
 
    DoCmd.TransferSpreadsheet acImport, 8, TableName, FileName, True
 
    Set wbExcel = Nothing
    Set wsExcel = Nothing
    Set appExcel = Nothing
 
End Sub

La seule ligne qui te sert est :

Code :

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

1
2
3
Sub ImportFichierExcel(ByVal FileName As String, ByVal TableName As String)
     DoCmd.TransferSpreadsheet acImport, 8, TableName, FileName, True
End Sub