Skip to content
Excel - Power Query - Power Pivot - VBA
  • Pages
    • Excel - Power Query - Power Pivot - VBA
    • Raccourcis clavier
    • Généralités
      • Quel stage Excel choisir ?
        • Parcours de formation Excel
        • Une démarche BI avec Excel ?
        • Excel, VBA ou Power Pivot / Query / BI ?
      • Installation des outils
    • Manipulations de bases
      • Gestion des feuilles
      • Formater les cellules
      • Lignes et colonnes
      • Trier et filtrer
    • Temps 1 | Organiser ses données en tableau
      • Concevoir un tableau
      • Tableau dans Excel
    • Temps 2 | Saisir et importer
      • Valider ses données
      • Protéger les données
      • Mise en forme conditionnelle
      • Types de données (tables recommandées)
    • Temps 3 | Calculer
      • Calculs
      • Fonctions de texte
      • Fonctions de date
      • Fonctions logiques
      • Fonctions de synthèse
      • Fonction de recherche
      • Fonctions d'information
      • Formules matricielles ou Tableaux dynamiques [365]
      • Nouvelles fonctions [365]
    • Temps 4 | Présenter et synthétiser
      • Mise en forme avec les styles
      • Mise en page et impression
      • Tableaux croisées dynamiques
        • TCD multi tables
      • Graphiques croisés dynamiques
    • A à Z : créer un classeur d'analyse [Exemple 002]
    • Power Query
    • Power Pivot
      • Présentation
      • Mise en pratique
      • Exercice 01
    • VBA
      • Visual Basic
        • Visual Basic Editor
        • Variables
        • Décisions
        • Boucles
        • Fonctions
          • Quelques fonctions intrinsèques
        • Organisation du code
        • Procédures
      • VB Excel
        • Objets Excel
        • Classeurs
        • Feuilles
        • Plages et cellules
        • Tableaux
        • Fonctionnalités d'Excel
        • icon picker
          SQL & VBA
        • Boucle des fichiers d'un dossier
        • Manipuler d'autres logiciels depuis Excel
      • Créer une application Excel
      • API REST avec JSON
      • Exercice Signalements
    • Exercices
      • Excel 1 |
    • Office Script
    • Office Scripts pour Excel : Comparaison avec VBA
    • Échanges stagiaires
Excel - Power Query - Power Pivot - VBA
/
/
SQL & VBA
Share
Explore

SQL & VBA

Function LoadCn(Optional sSource As String) As ADODB.Connection
Dim cn As New ADODB.Connection
If sSource = "" Then
sSource = ThisWorkbook.Path & "\" & ThisWorkbook.Name
End If
cn.Open "DRIVER={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" & sSource
Set LoadCn = cn
End Function

Function LoadRst(sSQL As String, Optional sSource As String, Optional sMsgError As String) As ADODB.Recordset
Dim cn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Set cn = LoadCn(sSource)
On Error Resume Next
rst.Open sSQL, cn, adOpenStatic, adLockOptimistic
If Err <> 0 Then
sMsgError = Err.Description
If IsDebugMode Then
MsgBox Err.Description, vbExclamation
Stop
End If
Else
Set LoadRst = rst
End If
End Function
Want to print your doc?
This is not the way.
Try clicking the ··· in the right corner or using a keyboard shortcut (
CtrlP
) instead.