Bonjour, j'utilise le code suivant pour me connecter à un classeur:


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
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
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Debug.Print ConnectionString
me renvoie:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 à:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
  Set rs = cn.Execute("select * from [Rapport$]")
erreur: Erreur d'exécution
Code : Sélectionner tout - Visualiser dans une fenêtre à part
'-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:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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?