Cleaner un fichier Excel depuis Access

Bonjour,

Je ne vois pas d'autre solution que d'importer le fichier case à case en essayant de prévoir les différents formats d'import. Le vba étant commun à access et à excel on peut faire plein de trucs (trier les colonnes, supprimer celles inutiles, choisir les colonnes utiles en fonction de leur entete...) mais bien sûr il faut que les fichiers restent pas trop différents...

Voici un petit exemple pour un cas simple qui modifie des quantités dans une table en fonction d'un tableau reçu :

Code:

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
Private Sub import_vmi_Click()
If Not Mode_debug Then On Error GoTo err
Dim i As Integer, j As Integer, na As Integer
 
102 i = 2 'ligne lue
105 Call OuvreExcel(objApp, objBook, fichier) 'procedure qui ouvre l'excel dont le nom est dans le champ "fichier"
106 objApp.visible = true   'si on veut visualiser
 
114 j = 0: na = 0 'lignes ok et nok
 
120 With objBook.ActiveSheet 'la ref est en colonne t, déduction du stock mini colonne l
122   While .Range("t" & i) > " "
124     If IsNumeric(.Range("f" & i)) And .Range("f" & i) > 0 Then
126       Sr = "update stock_arti_champ set stock_vmi_cache=" & .Range("f" & i) - .Range("l" & i) & " where cd_stock_arti=(select cd_article from article where ref='" & .Range("t" & i) & "')"
127       cno.Execute Sr, Nr
128       If Nr = 1 Then j = j + 1 Else na = na + 1
        End If
130     i = i + 1
      Wend
    End With
 
    'libère excel
200 objBook.Close SaveChanges:=False
202 objApp.Quit: Set objBook = Nothing: Set objApp = Nothing
204 MsgBox i - 2 & " lignes lues et " & j & " quantités modifiées " & IIf(na > 0, " - " & na & " ligne(s) en anomalie !", ""), vbInformation, "import quantités"
    Exit Sub
err: Call message("Erreur " & err.Number & "/" & Erl & " dans EDI_convert.import_vmi : " & err.description) 'procedure perso de gestion d'erreur
End Sub