utilisation des filtres excel avec une macro access
Bonjour,
J'ai un petit problème avec ma macro access, je voudrais pouvoir utiliser une macro qui filtre un fichier excel (le filtre agis sur la première colone de mon fichier excel et enlève les lignes vide). voici le code que j'ai qui ne fonctionne pas :( je pense que la selection le réussi pas a agit sur le fichier excel, si quelqu'un aurais une solution, je sui preneur^^
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
29
30
31
32
33
| Private Sub Commande0_Click()
Dim oApp As Object
Dim oWkb As Object
Dim oWSht As Object
Set oApp = CreateObject("excel.application")
Set oWkb = oApp.Workbooks.Open("U:\Fichiers Synchronisés\Programme UPR DT AQ.xls")
Set oWSht = oWkb.Worksheets("PGR ADSL")
'selectionne les cellules qui ne sont pas vide
selection.autofilter Field:=1, Criteria1:=""
'premier ligne ou tu commence ton import
i = 19
'pour éviter les messages lors de l'ajout des enregistrements
DoCmd.SetWarnings False
'tant que la cellule n'est pas vide
While oWSht.Range("A" & i).Value <> ""
cSQL = "insert into [TableTest] ( [champ1], [champ2], [champ3], [champ4], [champ5]) values (" & Chr(34) & oWSht.Cells(i, 1) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 2) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 3) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 4) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 5) & Chr(34) & ")"
'exécute la requète
DoCmd.RunSQL cSQL
i = i + 1
Wend
DoCmd.SetWarnings True
End Sub |
