Requete SQL sur un fichier excel
Résolu/Fermé
cs_Alien
Messages postés
63
Date d'inscription
mardi 4 juin 2002
Statut
Membre
Dernière intervention
8 octobre 2022
-
17 mai 2020 à 17:14
cs_Alien Messages postés 63 Date d'inscription mardi 4 juin 2002 Statut Membre Dernière intervention 8 octobre 2022 - 17 mai 2020 à 19:16
cs_Alien Messages postés 63 Date d'inscription mardi 4 juin 2002 Statut Membre Dernière intervention 8 octobre 2022 - 17 mai 2020 à 19:16
A voir également:
- Requête sql sur feuille excel
- Liste déroulante excel - Guide
- Formule excel - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Déplacer une colonne excel - Guide
- Aller à la ligne excel - Guide
1 réponse
via55
Messages postés
14030
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
25 janvier 2023
2 547
17 mai 2020 à 18:27
17 mai 2020 à 18:27
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
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
Modifié le 17 mai 2020 à 19:18
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