Discussion :

[thierry31140]

Bonjour à tous

Je dispose de 2 fichiers Excel, le premier contient les données brutes (issue d’une requête sur Service Now) et le deuxième me permet de traiter ces données pour réaliser un tableau de bord.
Actuellement j’ai un bout de code VBA qui ouvre le 1er fichier et copie intégralement les données dans une feuille du 2ième fichier : cette solution ne me convient pas car j’écrase à chaque import l’ensemble de mes données brut (et donc les éventuelles corrections que j’aurais pu faire).
Comment faire pour ne recopier que les nouvelles données brutes dans mon fichier destination ? (sachant que je dispose d’une colonne contenant des valeurs uniques)
Merci pour votre aide

[unparia]

Bonjour,
Intéresse-toi à la méthode WorksheetFunction.Countif.
Pour chaque donnée trouvée dans une boucle sur les données "brutes", ne faire un ajout sur la destination que si Countif = 0

[thierry31140]

Bonjour,
Intéresse-toi à la méthode WorksheetFunction.Countif.
Pour chaque donnée trouvée dans une boucle sur les données "brutes", ne faire un ajout sur la destination que si Countif = 0

Je ne suis pas un pro de VBA, surtout quand il s'agit de bloucle... tu peux me donner un exemple STP ?

[MaximeCh]

Euh Excel n'a pas d'indexation comme Access donc ça risque d'être long d'identifier les données uniques présentes.
Tes lignes sont mélangées?
Si non, une importation paramétrée à la première ligne modifiée?
Si oui, une macro qui va mettre un flag sur la ligne du fichier source si elle est déjà présente sur le fichier destination ; puis importe les données sans flag?

[thierry31140]

Qu'est-ce que tu appelles "importation paramétrée par ligne" ?

Ah oui je viens de comprendre ce que veux dire.

[Promethee25]

Bonjour,

SI les lignes sont entremêlées, tu pourrais utiliser un dictionnaire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set dico = CreateObject("Scripting.Dictionary")

Puis tu y mets toutes les clés uniques existant déjà dans ton fichier de sortie:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For each rg in MaFeuilleDeSortie.Range("TableauDeSortie[Clé]")
    dico(rg.value) = ""
Next rg

Enfin, tu boucles sur chaque clé de ton fichier brut en testant si la clé existe déjà dans ton dico; si non tu copies la ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
For each rg in MaFeuilleEnEntree.Range(<blablabla>)
    If Not dico.Exists(rg.value) Then ...

[MaximeCh]

Qu'est-ce que tu appelles "importation paramétrée par ligne" ?

Si tu sais que tes données à importer vont d'une ligne n à une ligne m, sans ligne ancienne, et qu'il n'y a pas de nouvelles données ailleurs que dans cette plage, tu détermines ta plage avec n et m et tu importes ce groupe de lignes?

Ou tu importes les lignes une par une si l'information est mélangée?

Si à l'intérieur d'une même ligne les informations peuvent être nouvelles et anciennes c'est une autre histoire.
Bref je te propose du bidouillage, ne connaissant pas de méthode propre sur Excel.

[FLoPigloo]

Est-ce que les nouvelles données sont complétées à la suite des anciennes ligne? Si oui tu peux faire un comptage des lignes s'il y a une différence entre tes 2 fichiers tu copie la différence à la suite.

[thierry31140]

Est-ce que les nouvelles données sont complétées à la suite des anciennes ligne? Si oui tu peux faire un comptage des lignes s'il y a une différence entre tes 2 fichiers tu copie la différence à la suite.

Les données sont une liste d'incidents ouverts dans service now, donc avec un numéro différent et une date et heure qui s’incrémentent, il suffirait de trouver l'incident le plus vieux déjà copié dans le fichier de destination et copier uniquement les enregistrements suivants.
Par contre je ne sais pas faire en VBA.

[MaximeCh]

Les données sont une liste d'incidents ouverts dans service now, donc avec un numéro différent et une date et heure qui s’incrémentent, il suffirait de trouver l'incident le plus vieux déjà copié dans le fichier de destination et copier uniquement les enregistrements suivants.
Par contre je ne sais pas faire en VBA.

Ca ça veut dire que tes lignes ne sont pas "mélangées" et c'est très simple.