Bonjour, j'utilise le code suivant pour me connecter à un classeur:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Private Function getValues(FileName As String)
Dim sql As String
Dim ConnectionString As String
Dim rs As Object
Dim cn As Object
ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
& FileName & ";Extended Properties=""Excel 12.0;HDR=YES;IMEX=1"""
Debug.Print ConnectionString
Set cn = CreateObject("ADODB.Connection")
cn.Open ConnectionString
Set rs = cn.Execute("select * from [Rapport$]")
getValues = rs.GetRows
cn.Close
Set rs = Nothing
Set cn = Nothing
End Function |
Le
Debug.Print ConnectionString
me renvoie:
Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\ZZZZ\Desktop\ZZZZ\EXCEL\ZZZZ\TOUT.xlsm;Extended Properties="Excel 12.0;HDR=YES;IMEX=1"
Tout y est OK, le fichier existe bien.
Le code plante à:
Set rs = cn.Execute("select * from [Rapport$]")
erreur: Erreur d'exécution
'-2147417848 (80010108)' La méthode 'Execute' de l'objet '_Connection' a échoué.
Noter que j'ouvre ce fichier en début de journée, à partir d'un autre fichier par:
Application.Workbooks.Open "C:\Users\pseitz1\Desktop\DPE\EXCEL\LISTES ENSEIGNANTS\TOUT.xlsm"
Tout fonctionnait parfaitement bien mais depuis hier KO sur KO!!!
Quelqu'un peut-il m'aider?
Partager