Macro qui ne fonctionne plus sur 2010

Version imprimable

Bonjour à tous,

J'ai trouvé sur le net une macro qui me permet de lire une cellule d'un classeur fermé :
Code:

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 30 31 32 33 34 35 36 37 38 39 40 Function LireCellule_ClasseurFerme( _ Chemin As String, _ Fichier As String, _ Feuille As String, _ Cellule As Variant) As Variant Application.Volatile Dim Source As Object, Rst As Object, ADOCommand As Object Dim Cible As String Feuille = Feuille & "$" Cible = Cellule.Address(0, 0, xlA1, 0) & ":" & _ Cellule.Address(0, 0, xlA1, 0) Set Source = CreateObject("ADODB.Connection") Source.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Chemin & "\" & Fichier & _ ";Extended Properties=""Excel 8.0;HDR=No;"";" Set ADOCommand = CreateObject("ADODB.Command") With ADOCommand .ActiveConnection = Source .CommandText = "SELECT * FROM [" & Feuille & Cible & "]" End With Set Rst = CreateObject("ADODB.Recordset") '1 = adOpenKeyset, 3 = adLockOptimistic Rst.Open ADOCommand, , 1, 3 Set Rst = Source.Execute("[" & Feuille & Cible & "]") LireCellule_ClasseurFerme = Rst(0).Value Rst.Close Source.Close Set Source = Nothing Set Rst = Nothing Set ADOCommand = Nothing End Function
Cette fonction marche très bien sur des fichiers créés en excel 2003, mais malheureusement pas pour des fichiers créés en excel 2010 (il faut alors que le classeur soit ouvert, la fonction perd donc tout son intérêt)...

N'y connaissant rien du tout en VBA, je viens vous solliciter pour savoir si l'un d'entre vous aurait une solution à mon problème (j'imagine qu'il faut faire quelques petites modifs à ce code, mais je ne sais pas quoi...).

Un grand merci pour votre aide !!!! Et bon week-end ! :ccool:

Bonjour Charlie3 ;)

Essaye ce code

Code:

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
30
31
32
33
34
35
36
37
38
39
40
' Fonction ADODB pour 2010
Function LireCellule_ClasseurFerme( _
        Chemin As String, _
        Fichier As String, _
        Feuille As String, _
        Cellule As Variant) As Variant
 
    Application.Volatile
 
    Dim Source As Object, Rst As Object, ADOCommand As Object
    Dim Cible As String
 
    Feuille = Feuille & "$"
    Cible = Cellule.Address(0, 0, xlA1, 0) & ":" & _
        Cellule.Address(0, 0, xlA1, 0)
 
    Set Source = CreateObject("ADODB.Connection")
      Source.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
        "Data Source=" & Chemin & "\" & Fichier & _
        ";Extended Properties=""Excel 12.0;HDR=No;"";"
 
    Set ADOCommand = CreateObject("ADODB.Command")
    With ADOCommand
        .ActiveConnection = Source
        .CommandText = "SELECT * FROM [" & Feuille & Cible & "]"
    End With
 
    Set Rst = CreateObject("ADODB.Recordset")
    '1 = adOpenKeyset, 3 = adLockOptimistic
    Rst.Open ADOCommand, , 1, 3
    Set Rst = Source.Execute("[" & Feuille & Cible & "]")
 
    LireCellule_ClasseurFerme = Rst(0).Value
 
    Rst.Close
    Source.Close
    Set Source = Nothing
    Set Rst = Nothing
    Set ADOCommand = Nothing
End Function

A+

26/01/2013, 10h31
Charlie3

Salut BrunoM.45, merci de ton aide.

J'ai essayé avec tes modifs, mais j'ai toujours le même problème (à savoir #VALUE! si le classeur xlsx n'est pas ouvert) ...

Aurais-tu une autre suggestion ?

Bon we !
26/01/2013, 11h01
Invité

Re,

Perso j'ai testé et ça fonctionne :?

Pourrais-tu nous joindre tes 2 fichiers (sans données confidentielles) ?

A+
26/01/2013, 16h29
Charlie3

Ok, j'ai fait un test, et voici le problème :

Ma cellule contient par exemple la formule suivante :

Code:

=LireCellule_ClasseurFerme(A1;A3;A2;INDIRECT(C2))

La fonction "INDIRECT" fait effectivement buguer la fonction, puisque si je ne l'utilise pas, la fonction marche même si le classeur est fermé.

Néanmoins la fonction INDIRECT ne pose pas de problème si le classeur est fermé lorsque celui-ci est en xls et pas en xlsx...

J'utilisais la fonction INDIRECT pour éviter des problèmes de circularité, mais c'était inutile. Problème réglé donc !

Merci encore Bruno !