Microsoft 365 Récupérer la valeur d'une cellule d'un autre fichier

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
D

Diane272727

XLDnaute Junior
Bonjour,

Je souhaite récupérer la valeur de la cellule P2 de l'onglet "test" d'un fichier B, dont le chemin et le nom du fichier on été créé dans une cellule du fichier A.

Voici en PJ le fichier A.

En A1 : chemin et nom du fichier B (qui a été créer à partir d'autres cellules) : ="\\toto\_AAA_" & Feuil2!A1 & Feuil2!A2 & Feuil2!A3 & ".xlsx"

A noter que je souhaite utiliser une formule, et que le fichier B sera fermé (donc fonction indirect inutilisable).

Si vous avez des idées je suis preneuse 🙂

Merci beaucoup pour votre aide.
 
Solution
job75
Diane272727 à dit:
Merci beaucoup, mais j'ai besoin d'avoir le résultat de façon automatique, donc sans bouton 😉
Cliquez pour agrandir...
Alors téléchargez où il faut les fichiers joints.

Le chemin en C2 et le nom du fichier en C3 sont à adapter si nécessaire.

La macro dans ThisWorkbook :
VB: 
Private Sub Workbook_Activate()
Dim chemin$, fichier$, feuille$
chemin = [C2]
fichier = [C3]
feuille = "test"
Application.DisplayAlerts = False
On Error Resume Next
[C4] = "='" & chemin & "[" & fichier & "]" & feuille & "'!P2"
[C4] = [C4].Value
End Sub
Elle se déclenche quand on ouvre ou active le fichier de la macro.
Trier par date Trier par votes
Bonsoir Diane272727,

Le chemin et le nom du fichier peuvent être modifiés, il vaut mieux utiliser la méthode GetOpenFileName :
VB: 
Sub Recherche()
Dim fichier As Variant, chemin$, feuille$
fichier = Application.GetOpenFilename("Fichiers .xlsx (*.xlsx),*.xlsx")
If fichier = False Then Exit Sub
chemin = Left(fichier, InStrRev(fichier, "\"))
fichier = Mid(fichier, Len(chemin) + 1)
feuille = "test"
On Error Resume Next
[C2] = "='" & chemin & "[" & fichier & "]" & feuille & "'!P2"
End Sub
Bonne nuit.
 

Pièces jointes

Vote positif 0 Vote négatif
Diane272727 à dit:
Bonjour,

Je souhaite récupérer la valeur de la cellule P2 de l'onglet "test" d'un fichier B, dont le chemin et le nom du fichier on été créé dans une cellule du fichier A.

Voici en PJ le fichier A.

En A1 : chemin et nom du fichier B (qui a été créer à partir d'autres cellules) : ="\\toto\_AAA_" & Feuil2!A1 & Feuil2!A2 & Feuil2!A3 & ".xlsx"

A noter que je souhaite utiliser une formule, et que le fichier B sera fermé (donc fonction indirect inutilisable).

Si vous avez des idées je suis preneuse 🙂

Merci beaucoup pour votre aide.
Cliquez pour agrandir...
Bonjour,
Une autre méthode, sans choix ni ouverture de fichier :
Placer les infos dans 4 cellules distinctes (par exemple en A1, A2, A3 & A4
A1=Chemin du classeur (sans \ à la fin)
A2=Nom du classeur
A3=Nom de la feuille
A4=Référence de la cellule à extraire au format $L$C (ex $P$2)

La cellule A5 recevra le résultat
Si erreur un message est émis
VB: 
Sub Extrait_Valeur()

Dim i As Integer, Dim a$

With ActiveSheet
    a$ = .Range("A1")  ' Nom du chemin (sans \ en fin)
    ' Double les apostrophes si présentes
    a$ = Replace(a$, "'", "''", 1)

    ' Chaîne de liaison complète
    a$ = "='" & a$ & "\[" & .Range("A2") & "]" & .Range("A3") & "'!" & .Range("A4")

    Application.DisplayAlerts = False ' Pas de message d'alerte (sinon affiche la fenêtre choix de fichier)
    On Error Resume Next
    .Range("A5").Formula = a$ ' Place la formule en A5
    i = Err.Number
    On Error GoTo 0
    Application.DisplayAlerts = True ' Rétablit les alertes
    If i = 0 Then
        ' La cellule A5 Retourne True si erreur ("#REF!") = Chemin ou Fichier absent
        If IsError(.Range("A5")) Then
            MsgBox "Fichier absent ou référence incorrecte", vbCritical
            Exit Sub
        Else
            ' Aucune erreur
            ' A5 contient le résultat
        End If
    Else
        ' Erreur dans la formule
        MsgBox "La formule est erronée (nom feuille ...)"
        Exit Sub
    End If
End With

End Sub

Eric
 
Vote positif 0 Vote négatif
Merci , mais j
job75 à dit:
Bonsoir Diane272727,

Le chemin et le nom du fichier peuvent être modifiés, il vaut mieux utiliser la méthode GetOpenFileName :
VB: 
Sub Recherche()
Dim fichier As Variant, chemin$, feuille$
fichier = Application.GetOpenFilename("Fichiers .xlsx (*.xlsx),*.xlsx")
If fichier = False Then Exit Sub
chemin = Left(fichier, InStrRev(fichier, "\"))
fichier = Mid(fichier, Len(chemin) + 1)
feuille = "test"
On Error Resume Next
[C2] = "='" & chemin & "[" & fichier & "]" & feuille & "'!P2"
End Sub
Bonne nuit.
Cliquez pour agrandir...
Merci beaucoup, mais j'ai besoin d'avoir le résultat de façon automatique, donc sans bouton 😉
 
Vote positif 0 Vote négatif
Eric_49 à dit:
Bonjour,
Une autre méthode, sans choix ni ouverture de fichier :
Placer les infos dans 4 cellules distinctes (par exemple en A1, A2, A3 & A4
A1=Chemin du classeur (sans \ à la fin)
A2=Nom du classeur
A3=Nom de la feuille
A4=Référence de la cellule à extraire au format $L$C (ex $P$2)

La cellule A5 recevra le résultat
Si erreur un message est émis
VB: 
Sub Extrait_Valeur()

Dim i As Integer, Dim a$

With ActiveSheet
    a$ = .Range("A1")  ' Nom du chemin (sans \ en fin)
    ' Double les apostrophes si présentes
    a$ = Replace(a$, "'", "''", 1)

    ' Chaîne de liaison complète
    a$ = "='" & a$ & "\[" & .Range("A2") & "]" & .Range("A3") & "'!" & .Range("A4")

    Application.DisplayAlerts = False ' Pas de message d'alerte (sinon affiche la fenêtre choix de fichier)
    On Error Resume Next
    .Range("A5").Formula = a$ ' Place la formule en A5
    i = Err.Number
    On Error GoTo 0
    Application.DisplayAlerts = True ' Rétablit les alertes
    If i = 0 Then
        ' La cellule A5 Retourne True si erreur ("#REF!") = Chemin ou Fichier absent
        If IsError(.Range("A5")) Then
            MsgBox "Fichier absent ou référence incorrecte", vbCritical
            Exit Sub
        Else
            ' Aucune erreur
            ' A5 contient le résultat
        End If
    Else
        ' Erreur dans la formule
        MsgBox "La formule est erronée (nom feuille ...)"
        Exit Sub
    End If
End With

End Sub

Eric
Cliquez pour agrandir...
Meric beaucoup. J'ai mis le code VBA et les infos dans la col A, mais ça ne lance rien. Pourrais tu m'aider ? merci beaucoup
 

Pièces jointes

Vote positif 0 Vote négatif
Diane272727 à dit:
Merci beaucoup, mais j'ai besoin d'avoir le résultat de façon automatique, donc sans bouton 😉
Cliquez pour agrandir...
Alors téléchargez où il faut les fichiers joints.

Le chemin en C2 et le nom du fichier en C3 sont à adapter si nécessaire.

La macro dans ThisWorkbook :
VB: 
Private Sub Workbook_Activate()
Dim chemin$, fichier$, feuille$
chemin = [C2]
fichier = [C3]
feuille = "test"
Application.DisplayAlerts = False
On Error Resume Next
[C4] = "='" & chemin & "[" & fichier & "]" & feuille & "'!P2"
[C4] = [C4].Value
End Sub
Elle se déclenche quand on ouvre ou active le fichier de la macro.
 

Pièces jointes

Vote positif 0 Vote négatif
Solution
UN GRAND MERCI CA FONCTIONNE TRES BIEN !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! belle fin de journée
job75 à dit:
Alors téléchargez où il faut les fichiers joints.

Le chemin en C2 et le nom du fichier en C3 sont à adapter si nécessaire.

La macro dans ThisWorkbook :
VB: 
Private Sub Workbook_Activate()
Dim chemin$, fichier$, feuille$
chemin = [C2]
fichier = [C3]
feuille = "test"
Application.DisplayAlerts = False
On Error Resume Next
[C4] = "='" & chemin & "[" & fichier & "]" & feuille & "'!P2"
[C4] = [C4].Value
End Sub
Elle se déclenche quand on ouvre ou active le fichier de la macro.
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

K
  • Question Question
Microsoft 365 vba :Vlookup + incrémentation d'une plage de donnée
Réponses
1
Affichages
175
vgendron
vgendron
J
  • Question Question
XL 2021 activesheet.shapes suivant la valeur d'une cellule
Réponses
5
Affichages
78
JUAN45
J
J
  • Question Question
XL 2010 définir un nom de cellule en fonction de la valeur d'une autre
Réponses
12
Affichages
896
jojo4738
J
I
  • Résolu(e)
Microsoft 365 Exécuter une macro en fonction de la valeur d'une cellule
Réponses
12
Affichages
430
iliess
I
C
  • Question Question
Mettre une cellule en jaune quand le contenue correspond a une des valeurs d'une colonne d'un autre onglet
Réponses
9
Affichages
317
job75
job75
F
  • Question Question
Microsoft 365 Problème avec VBA ( Résolu)
Réponses
2
Affichages
338
firecarl
F
E
  • Question Question
XL 2016 extraire le résultat d'une colonne a partir d'un autre fichier excel
Réponses
13
Affichages
263
vgendron
vgendron
F
  • Question Question
Autres Récupération de données d'une feuille X en fonction de la valeur de cellule dans une collone d'une feuille Y
2
Réponses
27
Affichages
719
fanfan38
fanfan38
S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
161
Phil69970
Phil69970
Droopyougo
  • Résolu(e)
Microsoft 365 Remplir une cellule avec la valeur d'une autre sous condition
Réponses
2
Affichages
329
Droopyougo
Droopyougo
A
  • Question Question
XL 2021 récupérer la valeur d'une variable en fin de boucle dans une autre procédure
Réponses
5
Affichages
425
Attila451
A
R
  • Question Question
Microsoft 365 Fonction INDIRECT avec Sharepoint
Réponses
4
Affichages
814
Viniasco
V
A
  • Résolu(e)
Microsoft 365 Enregistrer copie d'un fichier avec pour nom le contenu d'une cellule excel (macro)
2
Réponses
15
Affichages
891
firecarl
F
F
  • Question Question
XL 2021 Liste déroulante vers un autre classeur
Réponses
1
Affichages
384
Dudu2
Dudu2
13Hubert
  • Résolu(e)
Microsoft 365 VBA - Coller la valeur d'une cellule d'une autre feuille...
Réponses
11
Affichages
853
13Hubert
13Hubert
chris6999
  • Question Question
Microsoft 365 Conserver la valeur de ma variable pour l'utiliser dans un autre code
Réponses
3
Affichages
340
mapomme
mapomme
Chaton77
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
477
Chaton77
Chaton77
F
  • Résolu(e)
Microsoft 365 copier coller des colonnes en fonction de la valeur d'une cellule
Réponses
8
Affichages
692
loloboc
L
P
  • Résolu(e)
Microsoft 365 Rechercher une valeur d'une cellule à partir d'un nom de feuille
Réponses
2
Affichages
364
paulng
P
Z
  • Question Question
Microsoft 365 Copier valeur cellule suivant le resultat d'une autre
Réponses
13
Affichages
613
Cousinhub
Cousinhub
Retour