Microsoft 365 VBA Requette SQL sur un autre fichier excel

S

Seb

XLDnaute Occasionnel
Bonjour a tous,

Je suis despéré, je n'arrive pas a effectuer une requette sur un autre fichier excel ! Je veux recuperer une valeur dans un classeur fermé mais j'ai une erreur de syntaxte.

'Définit le classeur fermé servant de base de données
Fichier = Sheets("Parametres").Range("A2")
'CONNECTION
Set Cn = New ADODB.Connection
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

iValeur = "210013418"

NomFeuille = "Informations personnelles"
'Définit la requête

Texte_SQL2 = "Select * FROM [" & NomFeuille & "$] Where MATRICULE CEG = " & iValeurCegid

Set RST = New ADODB.Recordset
Set RST = Cn.Execute(Texte_SQL2) BUGGUE de SYNTAXE

Si il y a quelqu'un qui peu m'apporter une réponse.. CA fait plusieurs jours que je tourne en rond avec cette macro, je m'arrache les cheveux !

Merci beaucoup !
Seb
 
Trier par date Trier par votes
patricktoulon

patricktoulon

XLDnaute Barbatruc
Bonsoir
ca v"a t'aider a y voir plus clair
VB: 
Fichier = Sheets("Parametres").Range("A2") 'verifier si le chemin est bien complet  ici
'CONNECTION
Set Cn = New ADODB.Connection ' instanciation de l'object adodb.connection
With Cn
'.Provider = "Microsoft.Jet.OLEDB.4.0"' c'est certainnement pas le bon moteur (c'est pour 2003 ce moteur)

.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""

.Open 'ouverture de la connection

iValeur = "210013418" 'valeur recherchée

NomFeuille = "Informations personnelles" 'verifier l'ortographe et la casse

'verifier MATRICULE CEG
Texte_SQL2 = "Select * FROM [" & NomFeuille & "$] Where MATRICULE CEG = " & iValeurCegid

'c'est quoi ça iValeurCegid !!!!!!!!!!!!!!

Set RST = New ADODB.Recordset 'instanciation de l'object recordset
Set RST = Cn.Execute(Texte_SQL2)  'BUGGUE de SYNTAXE

End With
 
Vote positif 0 Vote négatif
Oneida

Oneida

XLDnaute Impliqué
Bonjour,
Seb
Relisez ce qu'a ecrit patricktoulon a propos de deux variables:
ivaleur: a priori valeur recherchee
iValeurCegid: dans la requete SQL et qui n'a aucune valeur affectee
Ou est l'erreur!
Voir aussi pour les [ ] nom de champ.
Nom de champ avec espace ou accens a eviter
 
Dernière édition:
Vote positif 0 Vote négatif
S

Seb

XLDnaute Occasionnel
patricktoulon à dit:
Bonsoir
ca v"a t'aider a y voir plus clair
VB: 
Fichier = Sheets("Parametres").Range("A2") 'verifier si le chemin est bien complet  ici
'CONNECTION
Set Cn = New ADODB.Connection ' instanciation de l'object adodb.connection
With Cn
'.Provider = "Microsoft.Jet.OLEDB.4.0"' c'est certainnement pas le bon moteur (c'est pour 2003 ce moteur)

.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""

.Open 'ouverture de la connection

iValeur = "210013418" 'valeur recherchée

NomFeuille = "Informations personnelles" 'verifier l'ortographe et la casse

'verifier MATRICULE CEG
Texte_SQL2 = "Select * FROM [" & NomFeuille & "$] Where MATRICULE CEG = " & iValeurCegid

'c'est quoi ça iValeurCegid !!!!!!!!!!!!!!

Set RST = New ADODB.Recordset 'instanciation de l'object recordset
Set RST = Cn.Execute(Texte_SQL2)  'BUGGUE de SYNTAXE

End With
Cliquez pour agrandir...
Bonjour !

Desolé erreur de recopie de code
Texte_SQL2 = "Select * FROM [" & NomFeuille & "$] Where MATRICULE CEG = " & iValeur

Je fais des test pour voir si j'arrive à me depatouiller de ca.
 
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
re
j'ajouterais que pour une valeur autant faire un copyfromrecordset
et ne pas s'ennuyer a décortiquer le rst
VB: 
Sub test()
    Dim Cn As Object, Rst As Object, Texte_SQL2$, NomFeuille$, iValeur,Destination as range
set destination=[A1]' a modifier  à  ton gré
    Fichier = Sheets("Parametres").Range("A2") 'verifier si le chemin est bien complet ici!!!!!!!!!!!!!!
    Set Cn = New ADODB.Connection ' instanciation de l'object adodb.connection
    On Error GoTo handler
    With Cn
        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
        .Open
        iValeur = "210013418"
        NomFeuille = "Informations personnelles" 'verifier l'ortographe et la casse
        Texte_SQL2 = "Select * FROM [" & NomFeuille & "$] Where [MATRICULE CEG] = " & iValeur
        Set Rst = New ADODB.Recordset 'instanciation de l'object recordset
        Set Rst = Cn.Execute(Texte_SQL2)
        Destination.CopyFromRecordset Rst
        '--- Fermeture connexion ---
        .Close
    End With
    'destruction variables object de connection
    Set Cn = Nothing: Set Rst = Nothing
handler:
    MsgBox Err.Number & vbCrLf & Err.description
    Err.Clear
    On Error GoTo 0
    Set Cn = Nothing: Set Rst = Nothing
End Sub
 
Vote positif 0 Vote négatif
S

Seb

XLDnaute Occasionnel
patricktoulon à dit:
re
j'ajouterais que pour une valeur autant faire un copyfromrecordset
et ne pas s'ennuyer a décortiquer le rst
VB: 
Sub test()
    Dim Cn As Object, Rst As Object, Texte_SQL2$, NomFeuille$, iValeur,Destination as range
set destination=[A1]' a modifier  à  ton gré
    Fichier = Sheets("Parametres").Range("A2") 'verifier si le chemin est bien complet ici!!!!!!!!!!!!!!
    Set Cn = New ADODB.Connection ' instanciation de l'object adodb.connection
    On Error GoTo handler
    With Cn
        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
        .Open
        iValeur = "210013418"
        NomFeuille = "Informations personnelles" 'verifier l'ortographe et la casse
        Texte_SQL2 = "Select * FROM [" & NomFeuille & "$] Where [MATRICULE CEG] = " & iValeur
        Set Rst = New ADODB.Recordset 'instanciation de l'object recordset
        Set Rst = Cn.Execute(Texte_SQL2)
        Destination.CopyFromRecordset Rst
        '--- Fermeture connexion ---
        .Close
    End With
    'destruction variables object de connection
    Set Cn = Nothing: Set Rst = Nothing
handler:
    MsgBox Err.Number & vbCrLf & Err.description
    Err.Clear
    On Error GoTo 0
    Set Cn = Nothing: Set Rst = Nothing
End Sub
Cliquez pour agrandir...
Bonjour Patrictoulon,

Super clair ! J’essaie demain ! J’ai beau chercher j’ai du mal à trouver des tutos,

En tout cas merci je reviens demain ;)
 
Vote positif 0 Vote négatif
dysorthographie

dysorthographie

XLDnaute Accro
Bonjour,
Code: 
    On Error GoTo handler
    With New ADODB.Connection ' instanciation de l'object adodb.connection
        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
        .Open
        iValeur = "210013418"
        NomFeuille = "Informations personnelles" 'verifier l'ortographe et la casse
        Texte_SQL2 = "Select * FROM [" & NomFeuille & "$] Where [MATRICULE CEG] = " & iValeur
        Destination.CopyFromRecordset .Execute(Texte_SQL2)
        '--- Fermeture connexion ---
        .Close
    End With
 
Vote positif 0 Vote négatif

Discussions similaires

S
  • Question
XL 2010 Connection avec autre feuille excel et insertion
Réponses
5
Affichages
808
dysorthographie
dysorthographie
p'tit vieux
  • Question
XL 2021 Créer une requête SQL pour lire plusieurs Ranges?
2
Réponses
26
Affichages
991
dysorthographie
dysorthographie
J
  • Question
XL 2016 VBA : Erreur automation - requête sur un fichier ouvert
Réponses
1
Affichages
953
fanch55
fanch55
vgendron
  • Question
XL 2010 Importer données fichier fermé
Réponses
5
Affichages
968
vgendron
vgendron
G
  • Question
Microsoft 365 Ecrire dans un classeur ferme
Réponses
2
Affichages
3 K
patricktoulon
patricktoulon
Fredox
  • Question
XL 2016 [Résolu] - [VBA] Récupérer le nom de la feuille 1 d'un fichier externe ouvert dans la procédure
Réponses
5
Affichages
2 K
Fredox
Fredox
patricktoulon
  • Résolu(e)
XL 2013 excercice2 ADO récupération de données de type différent dans la même colonnes
Réponses
12
Affichages
2 K
patricktoulon
patricktoulon
F
  • Question
Microsoft 365 Recordset avec fichier TSV
2
Réponses
15
Affichages
3 K
Hasco
Hasco
J
  • Question
XL 2013 VBA - ADO - requête fait ouvrir le fichier source 2
Réponses
14
Affichages
1 K
JLE
J
A
  • Question
XL 2010 Excel connexion à un fichier SharePoint
Réponses
2
Affichages
2 K
Laurent78
L

Membres actuellement en ligne

Aucun membre en ligne actuellement.
0 membres et 64 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 087
Messages
2 116 083
Membres
112 655
dernier inscrit
fannycordi