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