Comment appeler une cellule dans un autre classeur.

Question

Bonjour, 

Voila je suis superviseur de soir dans une usine et chaque superviseur de jour rempli un fichier Excel qui sera stocké dans un dossier. 
Moi le soir je répond sous forme de rapport avec tout leur fichier Excel . 
Chaque fichier Excel rempli par les autres superviseur porte le numéro de la journée et la date . 
je veux donc allé cherché certaine cellule de leur document pour les intégré a mon rapport. 

Voici la formule : =('C:\Users\pchagnon\Desktop\transfert quart\Fusion\[245 - 2014-09-02.xlsm]Feuil1'!B6) 

245 - 2014-09-02.xlsm est le nom du fichier Excel . J'aimerai le remplacé par 2 cellules de mon fichier 

la cellule C4 = 245 ( le jour ) 
la cellule C5 = 2014-09-02 ( la date ) 

Quand je change l'information des 2 cellules je veux que les donné sois prise dans le fichier Excel appelé

Configuration: Windows 7 / Mozilla 11.0

f894009 · Answer

Bonjour,

a tester: C5 devra etre en format texte

=('C:\Users\pchagnon\Desktop\transfert quart\Fusion\[&C4& - &C5&.xlsm]&Feuil1'!B6)

Chagnonpatrick · Answer

voici ce qui apparait.

Raymond PENTIER · Answer

La suggestion de f894009 est intéressante ; il faudrait y ajouter les guillemets autour du tiret [&C4&" - "&C5&.xlsm]
Par ailleurs les parenthèses encadrant la formule de Chagnonpatrick semblent inutiles. 
Pour l'image, elle est jolie mais illisible. Il aurait mieux valu joindre le fichier lui-même.
 
Cordialement.

Chagnonpatrick · Answer

comment je fait pour envoyé le fichier

Chagnonpatrick · Answer

ce que vous m'avez donné ne fonctionne pas.
Ca me dit toujours de mettre a jour les valeur et ouvre une page pour sélectionner un dossier.

voir l'image : 


j'ai fait ca aussi mais je me demande si il y a une erreur ?

voila ce code : 

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


dans la case que j'ai besoin j'ai entré cette formule :

=LireCellule_ClasseurFerme(J4;I5;I4;I6)


J4 correspond au chemin:
C:\Users\pchagnon\Desktop	ransfert quart\Fusion

I5 correspond au nom du classeur:
245 - 09-02-2014.xlsm

I4 correspond au nom de la feuille:
Feuille1

I6 correspond à la cellule qui doit être lue dans le classeur fermé.
C6 


Mais ca ne fonctionne pas. 
#valeur!

f894009 · Answer

Bonjour a vous deux,

simple remarque:

nom de fichier sur disque: 245_-_09-02-2014.xlsm

nom de fichier sur feuille: 245 - 09-02-2014.xlsm

le quel est le bon ??????

je regarde pour la suite

Comment appeler une cellule dans un autre classeur.

6 réponses

Discussions similaires

Newsletters