Discussion :

[MELINE]

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.

[pgz]

Bonjour,

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

Code :

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

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 :

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

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

pgz

[MELINE]

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 :

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