Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Filtre automatique

Filtre automatique

1 réponse
Avatar
LARNAUDIE Serge
Comment faire un filtre auto basé sur des valeurs (une dizaine) stockées
dans une plage d'un autre classeur ?
Merci
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Philippe.R
Bonsoir Serge,

A l'aide de cette procédure de Frédéric Sigonneau, ce doit être possible :

http://perso.wanadoo.fr/frederic.sigonneau/code/Ado/ADOLireClasseurFerme.txt
Attribute VB_Name = "ADOLireClasseurFerme"



Public Sub GetXLWbkData(FileName As String, RangeName As String)

Dim dbConnection As ADODB.Connection
Dim rs As ADODB.Recordset
Dim dbConnectionString As String

dbConnectionString = "DRIVER={Microsoft Excel Driver (*.xls)};ReadOnly=1;" _
& "DBQ=" & FileName
Set dbConnection = New ADODB.Connection

dbConnection.Open dbConnectionString

Set rs = dbConnection.Execute("[" & RangeName & "]")
Range("A1") = rs.Fields(0).Name
Range("A2").CopyFromRecordset rs

rs.Close
dbConnection.Close
Set rs = Nothing
Set dbConnection = Nothing

End Sub

Sub test()
GetXLWbkData "D:TestADO.xls", "A1:A10"
End Sub

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"LARNAUDIE Serge" <serge.larnaudie----wanadoo.fr> a écrit dans le message de
news:c75i87$
Comment faire un filtre auto basé sur des valeurs (une dizaine) stockées
dans une plage d'un autre classeur ?
Merci