VBA à améliorer et compléter

en fait le fichier 001 BL.xls n'est pas "touchable" je veux dire que chaque livraison doit apparaître pour l'historique. donc les doublons ne doivent pas être effacés.
en fait dans le fichier graphes il y a déjà des lots présents donc l'idée était de ne pas rappatrier des données d'un lot qui était déjà compilé d'où la vérification que je suggérais dans le fichier 001 BL.xls qui contient tout l'historique. >> ainsi on évite les doublons dans le fichier graphes

non non aucune protection, je veux dire par intouchable que toutes les données présentes dans 001 BL.xls doivent être conservées. c'est justement ce fichier qui contient toutes les données d'entrée qui exécute la macro.

je pense réellement qu'il faille lancer la macro du module 3 de 001 BL.xls pour comprendre le processus que je cherche à obtenir et le modifier pour obtenir le fonctionnement basique qui fonctionne systématiquement car moi ça ne fonctionne que pour remplir la première colonne vu que le vllokup fait référence au nombre de colonne.
Tout mes commentaires sur les points que je n'ai pas su mettre en oeuvre ça serait dans un second temps

en principe ça plante après le premier vlookup
là les messages d'erreur doivent venir des constantes imposées, en l'occurrence le directory du fichier graphes

ça montre mon niveau en VBA
j'ai imposé la constante du répertoire alors qu'ensuite j'indique le répertoire !!!!
en fait il y a le directory du second fichier à changer et modifier l'extension XLSM par XLS sinon effectivement ça plante d'emblée. et là chez moi ça plante pour trouver la dernière colonne remplie alors que ça fonctionnait au boulot ... :-/

OUI tout est correct dans ce que tu as décrit, c'est la procédure qui aurait dû se passer avec ma macro

les informations dans 001 BL.xls sont des imports de fichiers texte, et il n'y a rien d'autre à faire dessus. ce fichier donne juste les entrées des lots et on vérifie qu'on a bien reçu les documents à travers les colonnes P et Q

je suis sincèrement désolé de t'avoir fait perdre autant de temps, j'aurais dû recontroler que ça fonctionnait en postant les fichiers

J'avais posté il y a qques semaines en décrivant comme vous l'avez fait et en joignant les fichiers mais je n'ai eu aucune réponse donc j'ai pensé à démarrer la macro pour que ce soit plus parlant (mais bon ça n'a rien donné)

http://www.cijoint.fr/cjlink.php?file=cj201105/cijke7mJTR.xls
ici le fichier en l'état actuel avec toutes ces lignes pour vous donnez une idée d'uen nombre de lignes que ça génère à chaque livraison et donc l'intérêt (d'après moi) d'instaurer une fonction permettant de ne traiter que les nouvelles entrées (genre un compteur qui dit que lors du dernier import nosu étions à la ligne 3985 et donc au prochain la macro devra se lancer à partir de la ligne 3986)
enfin je pense que vous êtes le mieux à même de dire ce qui est le plus judicieux

:-)
j'ai fait un premier essai et ça me semble très bien
et le transfert des infos du vlookup sur une seconde feuille est une bonne idée tout comme la liste déroulante
demain je verrai avec le fichier de base et les fichiers xml pour voir sur une plus grande échelle mais je susi déjà content
Merci beaucoup pour ce travail

oui toujours le même fichier de compilation
il y a 90 feuilles actuellement et avec les prochains ajouts on arrivera à 100 mais guère plus.

je vais modifier cette partie de la procédure
'activer la feuille du fournisseur
Worksheets(feuille).Activate
car pour une même feuille il peut y avoir 2 PN différents. il s'agit du même produit et des mêmes données, c'est simplement la contenance qui change et donc je compile sur la même feuille

j'avais mis ça pour faire la recherche sur les 2 première cases A1 et A2 vu qu'ici je place les différents PN, reste à savoir si c'est la meilleure technique pour trouver la bonne feuille
'Se positionner dans l'onglet correspondant au PN et au bon fournisseur
Dim celluletrouvee As Range
Dim feuille As Object

For Each feuille In Worksheets
Set celluletrouvee = Range("A1:A2").Find(onglet, lookat:=xlWhole) 'pas sûr qu'il faille utiliser ces arguments là
Worksheets(onglet).Activate
Next

je ne sais pas ce que j'ai fait mais il faut regarder dans le dossier graphes du zip
là il y a une feuille 2cac0730 founisseurB avec uen seule valeur en A1 et la seconde feuille 2CAC0730 FournisseurA avec en A1 2CAC0730 et en A2 2CAC0731
le fournisseurA utilise 2 contenants différents d'où A1 et A2 alors que le fournisseurB n'en utilise qu'un

les fichiers sont enregistrés avec une nomenclature précise : PN lot fournisseur.extension
avant de poster ici la colonne L était vide et mes cases A1 et/ou A2 contenaient seulement le PN. du coup il était impossible de faire la différence entre les fournisseurs donc j'ai rajouté la concaténation en colonne L [001 BL] pour retrouver la bonne feuille en rajoutant en A1/A2 le fournisseur à la suite du PN (2CAC0731 par ex)

H2SO4 96% OMG >> nom de la vraie feuille
dans le classeur graphe, l'objectif est de compiler toutes les données des différents pour chaque substance et ainsi faire un suivi.
ce suivi permettra de mettre en corrélations des valeurs atypiques avec notre production
par exemple si la valeur habituelle est de 1 et que sur un lot elle passe à 9 on pourra voir s'il y a un impact. Ce suivi se fera à travers des courbes pour chaque ligne et pour chaque feuille.

rajouter uen ligne avec le PN engendrerait un mixing des données de différentes substances ce qui n'aurait aucune valeur pour le suivi.
le suivi ne porte pas sur les fournisseurs mais sur la qualité des substances par fournisseur

est ce que la recherche que j'avais mise au départ est la meilleure solution ?
Dim feuille As String, PN As String
Dim onglet As Object

feuille = shB.Range("L" & ligref).Value

For Each onglet In Worksheets
Set celluletrouvee = Range("A1:A2").Find(feuille, lookat:=xlWhole)
Worksheets(onglet).Activate
Next