Discussion :

[Charlie3]

Bonjour à tous,

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

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
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 !

[Invité]

Bonjour Charlie3

Essaye ce code

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
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+

[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 !

[Invité]

Re,

Perso j'ai testé et ça fonctionne

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

A+

[Charlie3]

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

Ma cellule contient par exemple la formule suivante :

Code :

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

=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 !