Requete SQL sur un fichier excel

Résolu
cs_Alien Messages postés 86 Statut Membre -  
cs_Alien Messages postés 86 Statut Membre -
Bonjour,
J'ai un fichier excel avec un onglet DATA,
j'ai un deuxième fichier excel d'exploitation des données,
j'aimerais sur le deuxième fichier faire une requête SQL qui pointe vers l'onglet DATA du 1er fichier excel.

Quelqu'un à une idée de la syntaxe ?

--
Jérôme.

1 réponse

  1. via55 Messages postés 14391 Date d'inscription   Statut Membre Dernière intervention   2 759
     
    Bonjour

    Quel est le besoin de la requête ?
    Des formules devraient suffire
    Poste un exemple de ton fichier sur cjoint.com, copie le lien créé et reviens le coller ici en précisant quelles données tu souhaites extraire de DATA et selon quels critères

    Cdlmnt
    Via
    0
    1. cs_Alien Messages postés 86 Statut Membre 23
       
      Je viens de faire pas mal de recherche et j'ai trouvé la solution à mon problème.

      J'ai un fichier excel qui contient des données rempli par beaucoup de personne, donc je ne veux pas
      le modifier en ajoutant des onglets ou du code macro pour faire des requetes en triant les données que je veux extraire qui son fonction de critère multiple.

      J'ai crée un fichier excel "exploitation" pour d'autre personne qui ne rentre pas de données mais on besoin de les exploiter.


      Merci d'avoir répondu.



      Il suffisait juste de définir le chemin dans la variable "Fichier"


      Sub Req_SQL(Target As Range)
      On Error GoTo Erreur

      Dim Fichier As String
      Dim Cn As ADODB.Connection
      Dim texte_SQL As String
      Dim Rst As ADODB.Recordset
      Dim nbre As Long

      ' Définit le classeur servant de base de données
      Fichier = Sheets("config").Cells(1, 2
      Set Cn = New ADODB.Connection

      ' Connexion au classeur de données
      With Cn
      .Provider = "Microsoft.Jet.OLEDB.4.0"
      .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
      & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
      .Open
      End With
      1