Discussion :

[MELINE]

Re-bonjour,

Toujours pas de super génie pour m'aider à débuger ce petit programme?

Un bug apparaît au niveau du filtre élaboré.

Merci au super developpeur qui va me permettre d'avancer mon projet.

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

[Arkham46]

Salut,

"Génie" je sais pas mais c'est sûr que c'est bugué...

L'instruction <with> te permet de ne pas répéter le nom de l'objet inutilement sur plusieurs lignes.

en gros si tu mets :
with machin
.truc = blabla
endwith

le .truc est équivalent à machin.truc

Donc dans ton cas il ne faut pas mettre wbk("sheet1") mais juste un point.

Et il faut toujours toujours pensé à mettre le nom de l'objet parent, c-à-d l'application excel : wbk.sheets("CRITERES DE FILTRE AAA") sinon si tu oublies le wbk alors access ne sait pas de quel classeur tu veux lire les feuilles.

Essaye avec ça :

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
Dim xl As Excel.Application
Dim wbk As Excel.Workbook
Set xl = New 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")
 
 .Columns("A:F").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=wbk.Sheets( _
      "CRITERES DE FILTRE AAA").Range("B3:F4"), CopyToRange:=.Range("H1"), Unique _
        :=False
 .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

[MELINE]

Arkham46 tu es le vrai génie n'en doute jamais!! :lol:

Un grand merci!