Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Traitement de deux fichiers Excel par un troisième

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Ben Becker
  • Date de début Date de début

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
B

Ben Becker

Guest
Bonjour à vous tous,

Je viens vous solliciter pour un problème sur lequel je n’arrive pas à avancer et après avoir chercher sur ce forum, je n’ai pas trouvé de réponses à mon problème.

J’ai 3 fichiers Excel, deux sont des bases de données et le troisième me sert à la présentation des chiffres souhaités.

En fait je souhaite récupérer dans mon fichier « Traitement par dépôt » toutes les lignes de mon fichier « Base de données » qui correspondent aux numéros commande du fichier « Commandes ». Je souhaite également que ces lignes soient rangées dans les bons onglets, exemple : les lignes de l’Entrepôt Paris dans l’onglet « Paris ».

Je pensais pouvoir passer par des formules pour y arriver : recherchev avec conditions,…. Mais ma « Base de données » fais plus de 50000 lignes et Excel m’explique gentiment que je lui en demande trop. Donc je voulais passer par une macro et notamment du Vlook, mais mes compétences ne me permettent pas d’obtenir ce que je veux et je vais de message d’erreur en message d’erreur.

Ayant du mal à expliquer clairement mon problème, je vous joins les 3 fichiers, sachant que les résultats que je souhaite obtenir sont mis dans le tableau « Traitement ».

Merci par avance

Ben
 

Pièces jointes

Trier par date Trier par votes
Re : Traitement de deux fichiers Excel par un troisième

En complément de mon exposé d'hier, vous trouverez ci-dessous mon code VBA qui ne fonctionne pas mais qui a au moins le mérite de décrire la logique que je cherche (en tout cas je l'espère). Merci d'avance pour votre aide.

Ben


Sub test()
Application.ScreenUpdating = False

l = 11
For i = 2 To Range("G65536").End(xlUp).Row

num_cmde = Workbooks("D:\...\Base de données\Base de données du 24-03.xls").Sheets("A").Cells(i, 1)
depot = Workbooks("D:\...\Base de données\Base de données du 24-03.xls").Sheets("A").Cells(i, 2)
code_article = Workbooks("D:\...\Base de données\Base de données du 24-03.xls").Sheets("A").Cells(i, 3)
quantite = Workbooks("D:\...\Base de données\Base de données du 24-03.xls").Sheets("A").Cells(i, 4)


If Application.WorksheetFunction.VLookup(Workbooks("D:\...\Base de données\Base de données du 24-03.xls").Sheets("A").Cells(i, 1), Workbooks("D:\...\Listing commandes\Commandes du 24-03.xls").Sheets("A").Columns("B:B"), 1, False) = Workbooks("D:\...\Base de données\Base de données du 24-03.xls").Sheets("A").Cells(i, 1) And Workbooks("D:\...\Base de données\Base de données du 24-03.xls").Sheets("A").Cells(i, 2).Value = "Entrepôt Rouen" Then
Sheets("Rouen").Select
Cells(l, 1) = num_cmde
Cells(l, 2) = code_article
Cells(l, 3) = quantite
l = l + 1
ElseIf Application.WorksheetFunction.VLookup(Workbooks("D:\...\Base de données\Base de données du 24-03.xls").Sheets("A").Cells(i, 1), Workbooks("D:\...\Listing commandes\Commandes du 24-03.xls").Sheets("A").Columns("B:B"), 1, False) = Workbooks("D:\...\Base de données\Base de données du 24-03.xls").Sheets("A").Cells(i, 1) And Workbooks("D:\...\Base de données\Base de données du 24-03.xls").Sheets("A").Cells(i, 2).Value = "Entrepôt Toulouse" Then
Sheets("Toulouse").Select
Cells(l, 1) = num_cmde
Cells(l, 2) = code_article
Cells(l, 3) = quantite
l = l + 1
ElseIf Application.WorksheetFunction.VLookup(Workbooks("D:\...\Base de données\Base de données du 24-03.xls").Sheets("A").Cells(i, 1), Workbooks("D:\...\Listing commandes\Commandes du 24-03.xls").Sheets("A").Columns("B:B"), 1, False) = Workbooks("D:\...\Base de données\Base de données du 24-03.xls").Sheets("A").Cells(i, 1) And Workbooks("D:\...\Base de données\Base de données du 24-03.xls").Sheets("A").Cells(i, 2).Value = "Entrepôt Paris" Then
Sheets("Paris").Select
Cells(l, 1) = num_cmde
Cells(l, 2) = code_article
Cells(l, 3) = quantite
l = l + 1
ElseIf Application.WorksheetFunction.VLookup(Workbooks("D:\...\Base de données\Base de données du 24-03.xls").Sheets("A").Cells(i, 1), Workbooks("D:\...\Listing commandes\Commandes du 24-03.xls").Sheets("A").Columns("B:B"), 1, False) = Workbooks("D:\...\Base de données\Base de données du 24-03.xls").Sheets("A").Cells(i, 1) And Workbooks("D:\...\Base de données\Base de données du 24-03.xls").Sheets("A").Cells(i, 2).Value = "Entrepôt Rennes" Then
Sheets("Rennes").Select
Cells(l, 1) = num_cmde
Cells(l, 2) = code_article
Cells(l, 3) = quantite
l = l + 1
ElseIf Application.WorksheetFunction.VLookup(Workbooks("D:\...\Base de données\Base de données du 24-03.xls").Sheets("A").Cells(i, 1), Workbooks("D:\...\Listing commandes\Commandes du 24-03.xls").Sheets("A").Columns("B:B"), 1, False) = Workbooks("D:\...\Base de données\Base de données du 24-03.xls").Sheets("A").Cells(i, 1) And Workbooks("D:\...\Base de données\Base de données du 24-03.xls").Sheets("A").Cells(i, 2).Value = "Entrepôt Lyon" Then
Sheets("Lyon").Select
Cells(l, 1) = num_cmde
Cells(l, 2) = code_article
Cells(l, 3) = quantite
l = l + 1
End If


Next i
Application.ScreenUpdating = True
End Sub
 
Vote positif 0 Vote négatif
Re : Traitement de deux fichiers Excel par un troisième

Bonjour Ben Becker,

J'ai préparé quelque chose mais le fichier est au boulo, je n'ai pas eu le temps de te l'envoyer 😱. Je te l'enverrai lundi si tu veux.

Bon WE.
 
Vote positif 0 Vote négatif
Re : Traitement de deux fichiers Excel par un troisième

Bonjour le forum, skoobi,

désolé pour ma réponse tardive, je te remercie de t'être penché sur mon problème, ce serait une grande aide si en effet tu pouvais me l'envoyer car je fait du sur-place.

Ben
 
Vote positif 0 Vote négatif
Re : Traitement de deux fichiers Excel par un troisième

Bonjour,

Ci-joint une proposition.
Pour que le code dans le fichier "Traitement par dépôts.xls" via le bouton "Bilan" fonctionne il faut que les 3 fichiers soient ouverts.
Je n'ai pas eu le temps de mettre des explications dans le code.
Si besoin refait signe.
Bonne journée.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Traitement de deux fichiers Excel par un troisième

Salut Ben Becker
Bonjour le Fil (Skoobi)
Bonjour le Fourm

Arff je me suis penché sur le problème et en voyant la réponse de Skoobi ,je me suis rendu compte que nous avions utilisé la même méthode , mais à l'envers Lol
je suis parti des données pour aller vers les feuilles et lui l'inverse lol

je ne joins que le fichier Commandes du 24-03.xls et comme pour Skoobi il faut que les trois fichiers soient ouvert et comme lui pas encore de commentaires Arfff
Le Fichier : Regarde la pièce jointe Commandes du 24-03.zip
Bonne journée
 
Vote positif 0 Vote négatif
Re : Traitement de deux fichiers Excel par un troisième

Re,

un grand merci à vous deux pour vos réponses apportées. C'est exactement ce que je voulais, et en plus je viens de comprendre vos codes ce qui est une source de satisfaction pour moi.
Des deux codes, je vais retenir celui de skoobi qui est mis sur le fichier que je souhaitais.

J'en profite tout de même pour évoquer le sujet des fichiers ouverts : l'idéal pour moi à la base était de ne pas ouvrir les 2 fichiers "commande" & "base de données"...est-ce vraiment beaucoup plus compliqué de créer un code pour que le résultat s'affiche sans les ouvrir ?
Si la réponse est oui, n'en tenez pas compte vous m'avez largement aidé.

Ben
 
Vote positif 0 Vote négatif
Re : Traitement de deux fichiers Excel par un troisième

Re bonjour,
Hello Jean-Marie 🙂,

Non, à partir du moment où tu ne compte pas faire de modification dans ces fichiers, ce n'est pas compliqué.
Il faut pour cela utiliser GetObject.
En fait, le fichier est "chargé sans être ouvert visuellement" dans une variable pour pouvoir y récupérer ce que l'on veut et ensuite il faut absolument pensé à le fermer (en gras)
Voici un exemple qui écrit la cellule A2 de la feuille 1 du fichier Essai.xls se trouvant sur C dans un message:

Code: 
Sub test()
Dim Wb As Workbook
[SIZE=3][B]Set Wb = GetObject("C:\Essai.xls")[/B][/SIZE]
MsgBox Wb.Sheets(1).[A2].Value
[SIZE=3][B]Wb.Close[/B][/SIZE]
End Sub
Bonne soirée.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

A
  • Question Question
XL pour MAC Formatage de fichiers de coordonnées
Réponses
10
Affichages
386
agnesd
A
D
  • Question Question
XL 2013 Aide à création Fichiers, SMS, envoi
Réponses
0
Affichages
289
DARRIEUX
D
F
  • Question Question
XL 2016 Fusion 1 onglet de plusieurs fichiers EXCEL
Réponses
1
Affichages
197
chris
F
  • Résolu(e)
Microsoft 365 Traitement de données
Réponses
9
Affichages
493
Faroyo
F
Y
  • Question Question
Power Query Besoin d'aide pour configurer un power query
Réponses
3
Affichages
186
alexga78
A
C
  • Question Question
Microsoft 365 Disparation de données dans des fichiers excel
Réponses
10
Affichages
750
CedricR34
C
V
  • Question Question
XL pour MAC Deux colonnes Excel dans Word
2
Réponses
22
Affichages
1 K
job75
N
  • Question Question
Microsoft 365 Calcul de prix moyen pondéré de recettes
2
Réponses
15
Affichages
716
Nino63
N
N
  • Question Question
Microsoft 365 Propagation de formule dans un tableau avec des valeurs existantes (saisies manuellement)
Réponses
4
Affichages
292
NikonvsWild
N
L
  • Résolu(e)
Power Query Problème de fusion de données entre deux fichiers Excel sous Power Query
Réponses
8
Affichages
945
chris
  • Question Question
XL 2021 Détecter un changement dans un des contrôles de formulaire et mettre à jour un TS correspondant.
2
Réponses
15
Affichages
561
jeff1494
  • Question Question
Microsoft 365 faire une copie d'un fichier stocké dans un sous sous... sous répertoire
2
Réponses
20
Affichages
987
TooFatBoy
P
  • Résolu(e)
XL 2016 VBA Insérer une date dans le nom de fichiers PDF publipostés via WORD à partir d"excel
Réponses
3
Affichages
687
PHIL37
P
  • Question Question
XL 2021 EXTRAIRE + SOMME des 6 meilleures valeurs avec condition par participant
Réponses
11
Affichages
438
Poulet13
I
  • Question Question
XL pour MAC Xlsm - Fichier permettant de gérer un cross d'établissement scolaire
Réponses
8
Affichages
669
iruri
I
V
  • Résolu(e)
XL 2021 Ramener les données de façon structurée sans TCD
Réponses
12
Affichages
645
VaLu
V
A
  • Question Question
Microsoft 365 Macro pour recherche de cellules entre 2 fichiers Excel
Réponses
7
Affichages
496
AtTheOne
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
976
Nel'
N
  • Résolu(e)
XL 2016 Optimisation des fichiers Excel volumineux
Réponses
4
Affichages
446
Armisa
S
  • Question Question
Microsoft 365 Liaison de données sur deux tableurs
Réponses
7
Affichages
586
AtTheOne
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…