Récupération d'une cellule d'un fichier non ouvert [Résolu]

Signaler
Messages postés
50
Date d'inscription
vendredi 7 juillet 2006
Statut
Membre
Dernière intervention
2 septembre 2009
-
cs_MPi
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
-
Bonjour à tous,


Est-il possible de récupérer la valeur d'une cellule d'un fichier Excel non ouvert.


Si oui, quel en est la syntaxe ??


Merci d'avance

10 réponses

Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
46
Salut,
Qu est ce qui t'empêche de l'ouvrir par le code avant de récupérer la valeur de cette cellule?

@+: Ju£i?n
Pensez: Réponse acceptée
Messages postés
178
Date d'inscription
vendredi 9 février 2007
Statut
Membre
Dernière intervention
8 juin 2007

Je me demande toujours comment on peut faire pour récupérer des données sans ouvrir un fichier. Pour moi c'est comme compter le nombre de corn flakes dans le packet au fond du placard de ta cuisine quand t'es au bureau.
Messages postés
50
Date d'inscription
vendredi 7 juillet 2006
Statut
Membre
Dernière intervention
2 septembre 2009

Je ne veux pas l'ouvrir car il y a, dans ce fichier, des données "confidentielles" alors que le code sera accessible à tous...
Messages postés
178
Date d'inscription
vendredi 9 février 2007
Statut
Membre
Dernière intervention
8 juin 2007

Tu n'as qu'à l'ouvrir en non visible, lecture seule et avec une protection supplémentaire sur tes données confidentielles que tu auras au préalable mises en noir.
Messages postés
178
Date d'inscription
vendredi 9 février 2007
Statut
Membre
Dernière intervention
8 juin 2007

Cherche dans le forum, c'est là que j'ai appris. Concernant Excel j'y ai toujours tout trouvé sauf ce dont j'avais besoin. Mais ouverture/fermeture Excel tu manques pas d'infos.
Messages postés
2237
Date d'inscription
lundi 29 mai 2006
Statut
Membre
Dernière intervention
29 mai 2008
6
Salut, hé bien se n'est pas possible sans l'ouvrir!

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
Messages postés
50
Date d'inscription
vendredi 7 juillet 2006
Statut
Membre
Dernière intervention
2 septembre 2009

Comment fait-on pour ouvrir un fichier en non visible alors ??
Messages postés
50
Date d'inscription
vendredi 7 juillet 2006
Statut
Membre
Dernière intervention
2 septembre 2009

Merci beaucoup pour ces "non-réponses".
Messages postés
178
Date d'inscription
vendredi 9 février 2007
Statut
Membre
Dernière intervention
8 juin 2007

Sur ce site l'interêt n'est pas de donner les réponses toutes faites pour faire un copier/coller, mais plutôt de donner des pistes ou des bouts de code quand il faut. Ta question trouvera facilement une réponse avec 5minutes de recherche sur le forum (ce qu'il faut faire avant de poser une question), donc il est normal que personne n'est donné de réponse précise.
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
16
Fais ce test.

Crée un nouveau classeur. (je le nommerai 1)
Ouvre le fichier que tu veux lire. (je le nommerai 2)
Dans le fichier 1, écrit dans une cellule   =
Va dans le fichier 2, sélectionne une cellule, puis tape ENTER

Tu as donc dans cette cellule du fichier 1 une formule qui lit dans le fichier voulu.
Regarde comment la formule est inscrite

Maintenant, ferme le fichier 2 et regarde comment la formule est inscrite. Tu remarqueras que le chemin a été ajouté.

Tu peux donc créer une formule qui lit dans un fichier fermé en autant que le chemin et les autres détails soient valides, non ?

Maintenant, si tu veux procéder par code VBA

Sub Lire()
    Dim Chemin As String, Fichier As String, Feuille As String, Cellule As String
   
'déterminer ce qu'on veut lire
    Chemin = "C:\RépertoireComplet"
    Fichier = "[NomDuFichier.xls]"
    Feuille = "NomDeLaFeuille"
    Cellule = "A2"

'Inscrire la formule  
    Range("D5").Formula = "='" & Chemin & Fichier & Feuille & "'!" & Cellule

'la mettre en valeur si nécessaire
    Range("D5").Copy
    Range("D5").PasteSpecial xlPasteValues

End Sub

Tu n'as qu'à modifier ce qu'il y a en rouge

MPi