XL 2016 comparer deux fichiers

[kenny]

Bonjour,Bonsoir,

Voilà, un traitement va me mettre à disposition un fichier journalier de survey.
Dans ces fichiers je devrais quotidiennement sortir les différences sur la colonne Code (T).
Le nom des onglets sera toujours identiques.

Je voudrais savoir si c'est possible d'avoir une macro qui me compare les deux colonnes et me crée un fichier à part en ramenant les différences du nouveaux fichier journaliers.

Je joins les deux fichiers merci beaucoup encore.

 

[_Thierry]

Bonsoir @kenny, le Forum

Ta demande est faisable, il n' y a pas de problème majeur (sour réserve de ma comprhension !)

Il faut que tu installes ce fichier dans un repertoire de Test par exemple :
C:\Users\Kenny\Documents\XLD\kenny\XLD_Kenny_results-survey-Comparateur_v00.xlsm

Il faut aussi que tu copies tes deux classeurs :

• results-survey173518 11 juin 17h00.xlsx
• results-survey173518 12 juin 17h00.xlsx

Dans : C:\Users\Kenny\Documents\XLD\kenny\Source\

Afin d'être en accord avec cette constante (primordial !)

Const CheminSource As String = "C:\Users\Kenny\Documents\XLD\kenny\Source\" '<<<<<<<< A ADAPTER

Pour le moment ce n'est qu'une maquette, si tu nous expliques clairement aussi comment les noms de fichiers sont générés et si il y en a tous les jours (ouvrables ou pas etc), on pourra automatiser l'étape avec des noms de fichiers en dur ! :

'Note, il suffirait d'avoir connaissance de la contruction du File Name pour en déduire, J - 1 et J- 2 à comparer en automatique...  Ce n'est qu'une maquette !!!
FileNameSource1 = CheminSource & "results-survey173518 11 juin 17h00.xlsx"
FileNameSource2 = CheminSource & "results-survey173518 12 juin 17h00.xlsx"

Sinon on peut aussi faire un UserForm qui demandera à selectionner les deux fichiers source à comparer... Il y a pas mal de possibilités...

Bonne découverte,
Bien à toi à vous
@+Thierry

 

[chris]

Bonjour à tous

Une solution PowerQuery, intégré à Excel, qui recherche

• Ligne disparues
• Lignes ayant un code différent pour un ID de la réponse identiques
• Lignes nouvelles (Id + Code)

Un tableau permet d'indiquer chemin et fichiers

Actualiser par Données, Actualiser Tout

 

[_Thierry]

Bonsoir Chris

STP confirme moi que ca ne fonctionne pas ce PowerQuery sur Office 2013, right ?
(J'ai vu plusieurs fois tes explications, mais comme je change de machines tout le temps je m'y perds !)
Bien à toi, à vous
@+Thierry

 

[kenny]

Bonsoir @kenny, le Forum

Ta demande est faisable, il n' y a pas de problème majeur (sour réserve de ma comprhension !)

Il faut que tu installes ce fichier dans un repertoire de Test par exemple :
C:\Users\Kenny\Documents\XLD\kenny\XLD_Kenny_results-survey-Comparateur_v00.xlsm

Il faut aussi que tu copies tes deux classeurs :

• results-survey173518 11 juin 17h00.xlsx
• results-survey173518 12 juin 17h00.xlsx

Dans : C:\Users\Kenny\Documents\XLD\kenny\Source\

Afin d'être en accord avec cette constante (primordial !)

Const CheminSource As String = "C:\Users\Kenny\Documents\XLD\kenny\Source\" '<<<<<<<< A ADAPTER

Pour le moment ce n'est qu'une maquette, si tu nous expliques clairement aussi comment les noms de fichiers sont générés et si il y en a tous les jours (ouvrables ou pas etc), on pourra automatiser l'étape avec des noms de fichiers en dur ! :

'Note, il suffirait d'avoir connaissance de la contruction du File Name pour en déduire, J - 1 et J- 2 à comparer en automatique...  Ce n'est qu'une maquette !!!
FileNameSource1 = CheminSource & "results-survey173518 11 juin 17h00.xlsx"
FileNameSource2 = CheminSource & "results-survey173518 12 juin 17h00.xlsx"

Sinon on peut aussi faire un UserForm qui demandera à sélectionner les deux fichiers source à comparer... Il y a pas mal de possibilités...

Bonne découverte,
Bien à toi à vous
@+Thierry

Bonsir Thierry,

Merci beaucoup pour ton travail.
Je suis bloquer sur :
Set WBSource1 = Workbooks.Open(FileNameSource1)
qui se met en jaune dans le code il faut mettre un nom particulier ??
Les fichiers sont générés par un traitement informatique et je le recois par mail.
La solution du userform me parait pas mal aussi

 

[chris]

RE

STP confirme moi que ca ne fonctionne pas ce PowerQuery sur Office 2013, right ?

Sur 2010 et 2013 il faut installer l'add on, à partir de 2016 c'est intégré à Excel
La version FR de l'add on est en lien mort chez MS
Mais j'ai fait un we transfer du 32 bits et du 64 bits ces derniers jours qui est encore en ligne
Donc si tu le veux je te donne le lien...
Sinon en version US le lien est OK chez MS

 

[kenny]

J'ai oublié je te poste le message d'erreur.
les dates de fichier s'incrémenteront chaque ex : fichier du 11 juin, oui celui du 12 juin etc...

Peut-être que l'erreur c'est un chemin de fichier.
;o)) merci encore

 

[_Thierry]

Bonsoir Kenny

Set WBSource1 = Workbooks.Open(FileNameSource1)

Si c'est ce message Erreur 1004 :

C'est que soit le Chemin n'est pas bon ici :
Const CheminSource As String = "C:\Users\te\Documents\XLD\kenny\7Source\" '<<< A ADAPTER

Soit le File Name n'est pas bon ici :
FileNameSource1 = CheminSource & "results-survey173518 11 juin 17h00.xlsx"

Il n'y a pas de "secret" Il faut que les fichiers existent aux emplacements et avec leur noms respectifs... (Exact à la virgule près)

Bonne soirée
@+Thierry

 

[kenny]

Bonsoir Kenny




Si c'est ce message Erreur 1004 :
Regarde la pièce jointe 1070298

C'est que soit le Chemin n'est pas bon ici :
Const CheminSource As String = "C:\Users\te\Documents\XLD\kenny\7Source\" '<<< A ADAPTER

Soit le File Name n'est pas bon ici :
FileNameSource1 = CheminSource & "results-survey173518 11 juin 17h00.xlsx"

Il n'y a pas de "secret" Il faut que les fichiers existent aux emplacements et avec leur noms respectifs... (Exact à la virgule près)

Bonne soirée
@+Thierry

Thierry,

Eh oui nos messages se sont croisés,
oui les deux fichiers sont dans le même répertoires.
Sans doute le chemin, je l'ai modifié avec le chemin du dossier que tu me l'a indiqué donc.
J'ai rejoins le doc message erreur avec le bon chemin et la copie du dossier.

 

[_Thierry]

Merci Chris,

Je suis en version US de Office 2013 32 PRO (sur un Windows 8.1) en général pour mes barbatrucs XLD ...
Je verrai pour trouver cet add-in alors si il est encore dispo US
Je suppose que c'est celui-là :
https://www.microsoft.com/en-us/download/details.aspx?id=39379

Encore merci de ta réponse rapide.
@+Thierry

 

[_Thierry]

Re Kenny

Donc si tu as tout mis là :

C:\Users\ken77\Desktop\Kenny

Tu dois corriger la Constante en top de module :

Const CheminSource As String = "C:\Users\te\Documents\XLD\kenny\Source\"
Par :
Const CheminSource As String = "C:\Users\ken77\Desktop\Kenny\"
(Ne pas oublier le dernièr "back-slash" en fin de string)

Bonne soirée
@+Thierry

 

[kenny]

great merci Thierry,
Cela fonctionne.
Donc si je comprends les faux dans la colonnes du fichiers du 12 sont les données absentes dans le fichier du 11 ? et les vrai sont les occurrences communes ?
Merci et bonne soirée à toi aussi.
PS. : J'ai essayé le fichier de Chris (merci à toi aussi) mais j'ai un message d'erreur qui me dit que je dois reconstruire cette combinaison de données

 

[_Thierry]

Re bonsoir

Disons que la colonne "check" est une formule "idiote" qui compare la colonne T des deux fichiers dans l'ordre ou elle apparaissent dans le classeur "Comparision"... Ce n'est qu'un indication.
Le but de la macro était surtout de mettre face à face les deux colonnes...

Bonne soirée
@+Thierry

 

[kenny]

Thierry,
Une petite question du coup, si demain je recois un nouveau fichier comment je fais je devrais modifier les noms du fichiers en dur dans le code ,
Merci de ton retour

 

[_Thierry]

Comme j'ai dit c'est une maquette ...
On peut faire plein de choses ...

Pour ne pas à avoir à le modifier dans le code, on peut déjà l'indiquer dans A1 et B1 ...
Voir cette version v01...

Elle récupérera le nom des fichiers spécifiés ci-dessus... (et toujours le Chemin dans la Constante !)

Bien à toi
@+Thierry