Discussion :

[Kestion100]

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?

[Thumb down]

Bonjour,
Essais comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
               & FileName & ";Extended Properties=""Excel 12.0;HDR=YES;ReadOnly=True;IMEX=1;"""
               Debug.Print ConnectionString

[Kestion100]

Ca ne change rien.
Je remarque que toute intervention sur le fichier le rebloque (j'étais arrivé à le débloquer...).
Là, j'ai changé le format des cellules en format date.....

Je remarque aussi, dans la fenêtre Visual Basic, deux occurrences pour ce fichier dont une qui reste même si je le ferme ou si je le supprime......



???????

[Kestion100]

J'ai l'impression que des connections se ferment mal

[Thumb down]

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
Sub test()
Dim tb
tb = getValues(ThisWorkbook.FullName, "select * from [Rapport$]")
If TypeName(tb) <> "Empty" Then ActiveCell.Resize(UBound(tb, 2) + 1, UBound(tb, 1) + 1) = Application.Transpose(tb)
End Sub
Private Function getValues(FileName As String, Sql As String)
With CreateObject("ADODB.Connection")
    .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & FileName & ";Extended Properties=""Excel 12.0;HDR=YES;IMEX=1"""
    With .Execute(Sql)
        If Not .EOF Then getValues = .GetRows
        .Close
    End With
    .Close
End With
End Function

[Kestion100]

Je teste et reviens vers toi.

Merci