Discussion :

[steps5ive]

Bonjour,

J'ai un fichier excel dans lequel certaines cellules sont reliées avec des cellules dans un autre fichier.

Jusque-là tout va bien. Mais est-il possible lorsque j'inscris mon chemin d'accès d'y intégrer certains paramètres?

Exemple dans ma cellule présentement, j'écris:

Code :

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

1
2
 
='C:\Test\[Fichier1.xls]'

Mais j'aimerais plutôt quelque chose du genre:<
A1 étant mon dossier
B1 étant mon fichier

Code :

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

1
2
 
='C:\ & A1 & B1

Merci pour votre aide

[cafeine]

Hello,

regarde l'aide pour INDIRECT()

[steps5ive]

J'ai déjà regardé cette fonction mais elle ne fonctionne pas lorsque le fichier externe est fermé. Et dans mon cas, bien le fichier doit rester fermé.

[SilkyRoad]

bonjour à vous

à ma connaissance ce n'est pas possible sans macro.


le plus simple

Code :

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

1
2
'Lecture de la cellule A1 dans la Feuil1 du classeur fermé				
MsgBox ExecuteExcel4Macro("'C:\dossier\[ClasseurBase.xls]Feuil1'!R1C1")

d'autres possiblités (moins simples)

http://silkyroad.developpez.com/VBA/ClasseursFermes/



bon après midi
michel

[steps5ive]

J'ai aussi essayé cette méthode mais je reçois #value comme erreur dans ma cellule.

[SilkyRoad]

peux tu montrer ta macro?


michel

[steps5ive]

Voilà

Code :

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

1
2
3
4
 
Public Function Test(Dossier As String, Fichier As String, Cellule As String)
    Test = ExecuteExcel4Macro("'C:\" & Dossier & "\[" & Fichier & "]Sheet1'!" & Cellule)
End Function

[SilkyRoad]

Rebonsoir


la cellule doit être spécifiée au format xlR1C1

Code :

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

1
2
3
4
5
Public Function Test(Dossier As String, Fichier As String, Cellule As String)
 
    Test = ExecuteExcel4Macro("'C:\" & Dossier & "\[" & Fichier & "]Sheet1'!" & _
        Range(Cellule).Address(, , xlR1C1, False))
End Function

michel

[steps5ive]

J'ai toujours la même erreur.

[SilkyRoad]

OOuuppss... j'avais oublié que tu souhaitais afficher le résultat dans une cellule.


Une autre méthode à tester

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
Public Function Test(Dossier As String, Fichier As String, Cellule As String) As Variant
    Dim Source As Object, Rst As Object, ADOCommand As Object
    Dim Feuille As String
 
    Feuille = "Sheet1$"
 
    Set Source = CreateObject("ADODB.Connection")
    Source.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & "C:\" & Dossier & "\" & Fichier & _
        ";Extended Properties=""Excel 8.0;HDR=No;"";"
 
    Set ADOCommand = CreateObject("ADODB.Command")
    With ADOCommand
        .ActiveConnection = Source
        .CommandText = _
            "SELECT * FROM [" & Feuille & Cellule & ":" & Cellule & "]"
    End With
 
    Set Rst = CreateObject("ADODB.Recordset")
    Rst.Open ADOCommand, , 1, 3
 
    Set Rst = Source.Execute("[" & Feuille & Cellule & ":" & Cellule & "]")
 
    Test = Rst.fields(0).Value
 
    Rst.Close
    Source.Close
    Set Source = Nothing
    Set Rst = Nothing
    Set ADOCommand = Nothing
End Function

michel

[steps5ive]

Je vais essayé ça!

Merci!