Discussion :

[JonathanF]

Bonjour tout le monde,

Je suis en train de construire une macro qui me servirait à réaliser une recherchev sur un classeur fermé, avec en variable le nom du classeur et le nom de la feuille.

En synthèse:

Formule finale:
=LireCellule_ClasseurFerme(A1;A2;A3;G7)

A1 correspond au chemin:
C:\Documents and Settings\mimi\dossier

A2 correspond au nom du classeur:
ClasseurY.xls

A3 correspond au nom de la feuille:
Feuil1

G7 correspond à la cellule qui doit être lue dans le classeur fermé.

Et ci-dessous mon code. Mon soucis majeur est que le code fonctionne bien quand le classeur cible est ouvert. Lorsqu'il est fermé, le code me renvoi #valeur!.

Quelqu'un aurait-il une idée ?
Merci d'avance pour votre aide,
Jonathan

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

[bentor22]

ouvre et ferme le classeur avec ta macro:

Code :

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

1
2
3
4
5
6
7
8
9
Dim str As String
 
'Open the directory "S:" to be able to find the correct report
With Application.FileDialog(msoFileDialogFilePicker)
    .InitialFileName = "S:"
    .Show
    'and select the report on which you click
    If .SelectedItems.Count > 0 Then Workbooks.Open (.SelectedItems(1))
End With

ensuite

Code :

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

1
2
'Et tu fermes ton classeur sans sauvegarder
Workbooks(str).Close SaveChanges:=False

tiens moi au courant

[JonathanF]

Merci beaucoup pour ta réponse.

Je recherche cependant à mettre en variable le chemin d'accès:

A1 correspond au chemin:
C:\Documents and Settings\mimi\dossier

A2 correspond au nom du classeur:
ClasseurY.xls

Est-ce que tu vois le problème ?

Merci d'avance pour votre aide je ne m'en sors pas...

Personne a une petite idée svp...?