Requête ADO sur fichier fermé et plage dynamique

  • Initiateur de la discussion Initiateur de la discussion Jam
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Jam

XLDnaute Accro
Bonjour à tous,

J'ai réutilisé un un bout de code qui me permettait de requêter une plage d'un fichier XLS fermé via ADO (2.8).
J'ai modifié mon code pour qu'il récupère désormais des plages nommées dynamiques...et ça marche pô 🙁

Avant de me lancer dans de multiples tests, j'aurai d'abord une question toute bête: est-ce qu'on peux faire ce type de requête ou cela ne fonctionne-t-il que sur des plages nommées fixes ?

Merci d'avance pour vos sympathiques réponses.
 
Re : Requête ADO sur fichier fermé et plage dynamique

Salut Jam,

OUI, tu peux effectuer des requêtes ADO sur des plages nommées
En revanche, je ne sais pas si cela marche sur une plage dynamique, à tester ...

A+
 
Re : Requête ADO sur fichier fermé et plage dynamique

Bonjour,


-Les plages dynamiques ne fonctionnent pas.
-Définir un champ avec des lignes vides et les éliminer dans la requête SQL.

Dans ADOsource.xls, un nom de champ MaBD =Feuil1!$A$1:$C$500 a été défini.

Code:
Sub RecupTableurSQL()
  'Microsoft ActiveX DataObject doit être coché
  répertoire = ThisWorkbook.Path & "\"
  Dim rs As ADODB.Recordset
  Set cnn = New ADODB.Connection
  cnn.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & épertoire & "ADOsource.xls"
  Set rs = cnn.Execute("SELECT nom,Prenom,Salaire FROM MaBD where nom<>''")
  [A2].CopyFromRecordset rs
End Sub

-Si des ajouts dans la BD sont faits par SQL, le nom de champ est mis à jour.

ADO

JB
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour