IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Erreur Driver ODBC lors passage à Office 2010


Sujet :

Macros et VBA Excel

  1. #1
    Membre du Club
    Inscrit en
    Mars 2008
    Messages
    42
    Détails du profil
    Informations forums :
    Inscription : Mars 2008
    Messages : 42
    Points : 48
    Points
    48
    Par défaut Erreur Driver ODBC lors passage à Office 2010
    Bonjour

    A l'ouverture de mon fichier Excel comportant des macros.
    Je rappatrie dans des feuilles cachées, des données venant d'autre fichiers Excel du réseau.

    Pour ce faire, je récupère cdans un recordset adodb le contenu du fichier excel lu, pour ensuite aller coller le contenu de ce recordset dans ma feuille cachée

    Voila la fonction qui récupère le contenu du fichier Excel lu dans un recordset :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    Public Function Open_MyRecordset_FromExcelSQL(strSQL$, ByRef rstReturn As ADODB.Recordset, WBPath$ = "ThisWorkBookCompletePath") As Boolean
    On Error GoTo Err
        Dim strDriver$
     
        If TypeName(ConnEXCEL) = "Nothing" Then
            If Right(WBPath, 3) = "xls" Then
                strDriver = "DRIVER={Microsoft Excel Driver (*.5)}"
            Else
                strDriver = "DRIVER={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}"
            End If
            Set ConnEXCEL = New ADODB.Connection
        With ConnEXCEL
            .Provider = "MSDASQL"
            .ConnectionString = strDriver & ";DBQ=" & WBPath & "; ReadOnly=True;"
            .Open
        End With
        End If
     
        rstReturn.Open strSQL, ConnEXCEL
     
     
    Open_MyRecordset_FromExcelSQL = True
    Fin:
        Exit Function
    Err:
        MsgBox Err.Description
        GoTo Fin
        Resume
    End Function
    Mon problème :
    Ça marchait chez tout le monde en Excel 2007.
    Ça ne marche plus que chez les administrateurs en Excel 2010.
    Pour tous les autres, on obtient le message présent en pièce jointe.

    La j'avoue
    Je comprend pas
    Images attachées Images attachées  

Discussions similaires

  1. [2010] Passage Office 2010 64 bits vers 32 bits
    Par Harry Covair dans le forum Microsoft Office
    Réponses: 2
    Dernier message: 29/05/2012, 23h19
  2. [AC-2010] erreur 3251 VBA access Office 2010
    Par jpfor17 dans le forum VBA Access
    Réponses: 1
    Dernier message: 11/04/2012, 11h42
  3. Réponses: 0
    Dernier message: 19/12/2011, 09h09
  4. Erreur "Driver not capable" sur un job utilisant un ODBC
    Par david686 dans le forum Développement de jobs
    Réponses: 1
    Dernier message: 26/03/2009, 10h18
  5. Réponses: 2
    Dernier message: 31/01/2008, 16h02

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo