Comment appeler une cellule dans un autre classeur.
Chagnonpatrick
Messages postés
9
Date d'inscription
Statut
Membre
Dernière intervention
-
Chagnonpatrick Messages postés 9 Date d'inscription Statut Membre Dernière intervention -
Chagnonpatrick Messages postés 9 Date d'inscription Statut Membre Dernière intervention -
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é
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é
A voir également:
- Comment appeler une cellule dans un autre classeur.
- Appeler en privé - Guide
- Comment aller à la ligne dans une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Proteger cellule excel - Guide
- Excel remplir automatiquement une cellule en fonction d'une autre ✓ - Forum Excel
6 réponses
Bonjour,
a tester: C5 devra etre en format texte
=('C:\Users\pchagnon\Desktop\transfert quart\Fusion\[&C4& - &C5&.xlsm]&Feuil1'!B6)
a tester: C5 devra etre en format texte
=('C:\Users\pchagnon\Desktop\transfert quart\Fusion\[&C4& - &C5&.xlsm]&Feuil1'!B6)
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.
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.
comment je fait pour envoyé le fichier
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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\transfert 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!
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\transfert 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!
fichier rapport
https://www.cjoint.com/?DIrcY782nEC
les autre fichier dans le quel les info sont pris
https://www.cjoint.com/?DIrc2ujzaA6
https://www.cjoint.com/?DIrc3hGgUuL
https://www.cjoint.com/?DIrc3Z6GzDM
https://www.cjoint.com/?DIrc42VgQgU
Fait a noter :
il porte toute le même nom mais son situé dans des fichier different.
Exp.: Fusion , Finition, IMF, NB
https://www.cjoint.com/?DIrcY782nEC
les autre fichier dans le quel les info sont pris
https://www.cjoint.com/?DIrc2ujzaA6
https://www.cjoint.com/?DIrc3hGgUuL
https://www.cjoint.com/?DIrc3Z6GzDM
https://www.cjoint.com/?DIrc42VgQgU
Fait a noter :
il porte toute le même nom mais son situé dans des fichier different.
Exp.: Fusion , Finition, IMF, NB