none
EXCEL 2013 - PB CODE VBA 'COPYFROMRECORDSET'- HELP RRS feed

  • Question

  • Bonjour,

    Je me tourne vers vous parce que j'ai un souci avec un fichier qui fonctionne très bien en Excel 2003, 2007, 2010 et qui plante avec 2013. 

    Le message d'erreur est le suivant : 

    Erreur d'exécution '-2147417848 (80010108)' : La méthode 'CopyfromRecordset' de l'objet Range a échoué.

    Mon Code : 

      

    Sub ExecuterRequete(requete As String, feuille As String, cellule As String)

        Dim £rst As ADODB.Recordset
        Dim numberOfRows

        Debug.Print requete
        ' FC : Pas de timeout !
        £cmd.CommandTimeout = 0

        With £cmd
            .CommandText = requete
            .CommandType = adCmdText
            .Execute
        End With

        ' Open the recordset
        Set £rst = New ADODB.Recordset
        Set £rst.ActiveConnection = £cnx
        £rst.Open £cmd

        With ThisWorkbook.Sheets(feuille)
            With .Range(cellule)
                 '.CurrentRegion.Clear
                numberOfRows = .CopyFromRecordset(£rst)
            End With
        End With

        Set £rst = Nothing

    End Sub

    Quelqu'un peut-il m'éclairer, svp ?

    D'avance merci

    mardi 24 novembre 2015 10:22