cs_jeyjey1
Messages postés46Date d'inscriptionmardi 3 avril 2007StatutMembreDernière intervention 8 février 2010
-
6 juin 2008 à 14:02
us_30
Messages postés2065Date d'inscriptionlundi 11 avril 2005StatutMembreDernière intervention14 mars 2016
-
7 juin 2008 à 00:08
Bonjour,
j ai une textbox, style boite de recherche, qui me sert lorsque j'insert une donnée de filtrer les info dans un autre fichier excel sans l'ouvrir .
Le probleme c'est que j'ai un message d'erreur au niveau du selection autofilter.
Quelqu'un aurait une idée...merci
Private Sub TextBox1_Change()
Dim appxl As Excel.Application
Dim fichier As Window
Dim feuille As Worksheet
Set appxl = CreateObject("Excel.application")
Dim read As Variant
With appxl
.Workbooks.Open "U:\Release\Nomenc\DCS-MF\GESTION_DES_MT\liste_MTG_DS.xls"
.Visible = False
End With
Set fichier = appxl.Windows("liste_MTG_DS.xls")
fichier.Activate
Set feuille = appxl.Sheets("MT")
us_30
Messages postés2065Date d'inscriptionlundi 11 avril 2005StatutMembreDernière intervention14 mars 201610 7 juin 2008 à 00:08
Bonsoir à tous,
Je suis d'accord avec bigfish, et de plus, il me semble que les "Selection" doivent être dirigées vers la feuille du fichier qui vient d'être ouvert... "feuille.selection.... " ?