Formule cherchant infos dans classeurs différents
Sylvain
-
SylvainChevalier -
SylvainChevalier -
Bonjour,
Dans un fichier Excel de synthèse où chaque ligne correspond à un numéro d'affaire (exemple: AF01 pour l'affaire n°1, etc.) , je souhaite aller chercher des informations (exemple: poids, volume, etc.) qui sont renseignées exactement dans la même cellule (exemple: C9) d'un même onglet (ex: onglet intitulé caractéristiques) dans des fichiers Excel qui sont stockés dans un même dossier mais où chaque fichier Excel porte un nom différent qui reprend le nom de l'affaire
Exemple:
Aff01.xlsx est le nom du fichier Excel de l'affaire n° 1 où le poids est renseigné dans la cellule C9 de l'onglet "caractéristiques"
Aff02.xlsx est le nom du fichier Excel de l'affaire n° 2 où le poids est renseigné dans la cellule C9 de l'onglet "caractéristiques"
Les fichiers sources de chaque affaire sont fermés.
Y a t'il un moyen autre que de saisir le chemin dans le fichier de synthèse?
Merci.
Dans un fichier Excel de synthèse où chaque ligne correspond à un numéro d'affaire (exemple: AF01 pour l'affaire n°1, etc.) , je souhaite aller chercher des informations (exemple: poids, volume, etc.) qui sont renseignées exactement dans la même cellule (exemple: C9) d'un même onglet (ex: onglet intitulé caractéristiques) dans des fichiers Excel qui sont stockés dans un même dossier mais où chaque fichier Excel porte un nom différent qui reprend le nom de l'affaire
Exemple:
Aff01.xlsx est le nom du fichier Excel de l'affaire n° 1 où le poids est renseigné dans la cellule C9 de l'onglet "caractéristiques"
Aff02.xlsx est le nom du fichier Excel de l'affaire n° 2 où le poids est renseigné dans la cellule C9 de l'onglet "caractéristiques"
Les fichiers sources de chaque affaire sont fermés.
Y a t'il un moyen autre que de saisir le chemin dans le fichier de synthèse?
Merci.
A voir également:
- Formule cherchant infos dans classeurs différents
- Formule si et - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Formule mathématique - Télécharger - Études & Formations
- Formule somme excel colonne - Guide
- Excel mise en forme conditionnelle formule - Guide
7 réponses
Bonjour;
Une fois qu'on connaitra le chemin des classeurs source ;, il n'y a aucun problème pour récupérer C9 et ce, sans ouvrir les classeurs source.
Dans le classeur "cible" dans quelle colonne et quelle feuille se trouvent les n° d'affaire ?
Ces n° sont ils bien dans l'ordre croissant (AF01, AF02....) et de m^me dans le dossier "source" ?
pour tester, il serait bien que tu nous indiques ce chemin et pour faciliter ces tests, que tu joignes 1 ou 2 classeurs source, voire un extrait du classeur cible ?
pour cela
Mettre le classeur sans données confidentielles en pièce jointe sur
https://mon-partage.fr/
Puis faire un clic « copier le raccourci » et le coller dans votre message
Dans l’attente
Une fois qu'on connaitra le chemin des classeurs source ;, il n'y a aucun problème pour récupérer C9 et ce, sans ouvrir les classeurs source.
Dans le classeur "cible" dans quelle colonne et quelle feuille se trouvent les n° d'affaire ?
Ces n° sont ils bien dans l'ordre croissant (AF01, AF02....) et de m^me dans le dossier "source" ?
pour tester, il serait bien que tu nous indiques ce chemin et pour faciliter ces tests, que tu joignes 1 ou 2 classeurs source, voire un extrait du classeur cible ?
pour cela
Mettre le classeur sans données confidentielles en pièce jointe sur
https://mon-partage.fr/
Puis faire un clic « copier le raccourci » et le coller dans votre message
Dans l’attente
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bon! en attendant, un exemple adaptable
Sub transferer()
Dim lig As Long
Dim recap As String, chemin As String, onglet As String
Dim fich As String
recap = ThisWorkbook.Name
onglet = "feuil1" ' A ADAPTER
chemin = ThisWorkbook.Path ' A ADAPTER
Application.ScreenUpdating = False
Range("B2:B300").ClearContents ' A ADAPTER
lig = 2 ' A ADAPTER
ChDir chemin
fich = Dir("*.xlsx")
While fich <> ""
If fich <> recap Then ' SI "recap" dans le m^me dossier
'source: instruction dite de "Walkenbach")
Cells(lig, 2) = ExecuteExcel4Macro("'" & chemin & "\[" & fich & "]" & onglet & "'!R9C2") 'R9C3<==> C9
lig = lig + 1
End If
fich = Dir
Wend
MsgBox "récapitulatif terminé avec succès"
End Sub
