Filtre élaboré Excel dans une fonct automation access

Pourriez vous m'aider à intégrer une fonction de filtre élaboré Excel, dans un programme d'automation Access?

En effet je ne parviens pas à faire fonctionner de façon efficace les lignes de code issue d'une macro Excel dans un progamme d'automation semblable à ceux des tutoriaux qui traitent de ce sujet.

Columns("A:F").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets( _
"CRITERES DE FILTRE AAA").Range("B3:F4"), CopyToRange:=Range("H1"), Unique _
:=False
Columns("L:L").ColumnWidth = 11.29

Merci d'avance.

Bonjour,

Si tu es en automation d'exel, tu as du déclarer un objet workbook et l'instancer...

Code:

---

1 2 3 4

Dim xl As Excel.Application Dim wbk As Excel.Workbook Set xl = Excel.Application Set wbk = xl.Workbooks.Open("Chemin")

---

Maintenant pour appeler une méthode xl

Code:

---

1 2 3

with wbk.Sheets("NomFeuille") .Objetfeuille.méthode ... end with

---

pgz

Bonjour,

J'ai repris votre code scrupuleusement pour faire un essai. Mais je ne comprends pas comment utiliser Objetfeuilleméthode. Pourriez vous me corriger ce code qui bloque toujours au niveau du filtre élaboré?
Merci.
PS : Je débute et je n'ai encore pas du choisir le truc le plus simple à faire!

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

Dim xl As Excel.Application Dim wbk As Excel.Workbook Set xl = Excel.Application   'ouverture de l'application With xl .Visible = True End With 'ouverture du fichier Set wbk = xl.Workbooks.Open("C:\test.xls")   With wbk.Sheets("sheet1")   wbk("sheet1").Columns("A:F").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets( _ "CRITERES DE FILTRE AAA").Range("B3:F4"), CopyToRange:=Range("H1"), Unique _ :=False wbk("sheet1").Columns("L:L").ColumnWidth = 11.29   End With   'fermer et sauvegarder wbk.Save wbk.Close xl.Quit   'Désallocation mémoire Set xl = Nothing Set wbk = Nothing   End Sub

---

Merci d'utiliser les balises codes dans vos messages | cafeine