XL 2010 Import Tri et recherche

[FCMLE44]

Bonjour

Ayant plusieurs fichiers représentants en tout 2 millions de lignes, je souhaite automatiser une procédure
Macro 1 : Import de fichiers
Dans Classeur 2, feuille Import, je souhaite importer à la suite les fichiers en exemple Export_2018 et 201. Les fichiers peuvent étre plus nombreux et nommer différemment

Macro 2 : Récapitulatif des Rubriques
Dans la feuille Comparatif, cellule A4, je souhaite importer toutes les rubriques en colonne I de la feuille Import sans aucun doublon
Dans la feuille Comparatif, cellule B4, je souhaite importer tous les libellés correspondant à la colonne J feuille import et à la rubrique importée en A4

Macro 3 : Recherche des non présents
Dans la feuille Comparatif, cellule C4, je souhaite faire comme une recherchev en vérifiant si la rubrique de la colonne I se trouve dans la colonne E de la feuille Recherche et si non, préciser "NON PRESENT"

Je souhaiterais pouvoir lancer chaque macro à l'aide de touches spécifiques
Voici ce que je souhaiterais faire

Macro 1	Import fichiers	Lancée en faisant Ctrl+a
Macro 2	Import Rubrques et Libellés sans doublon	Lancée en faisant Ctrl+b
Macro 3	Recherche Non Présent	Lancée en faisant Crtrl+c

Si quelqu'un pouvait m'aider à réaliser cela, ca serait sympa car avec autant de lignes à traiter c'est un peu laborieux

Merci beaucoup

 

[fanfan38]

tu clic sur f8 pour la faire progresser... #9
pas à pas...

 

[FCMLE44]

Voila les imprim ecran

 

[fanfan38]

Bon... tu arretes de rire.. j'ai autre chose à faire...
Clic sur F8 le nombre de fois necessaire pour arriver à l'erreur

 

[FCMLE44]

C'est ce que j'ai fait. Je respecte trop votre boulot pour rire
Je ne vois rein d'autres quand je fais alt F8 que cela

 

[FCMLE44]

En fait lorsqu'il a ouvert le fichier source il ne sélectionne que les deux premières lignes de ce fichier dont la ligne de titre

 

[fanfan38]

faux.... Impossible

 

[FCMLE44]

Je vous jure, voulez vous une copie écran ?

 

[fanfan38]

 UserForm1.Show
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
  Dim fd As Office.FileDialog, MonApplication As Object, MonFichier As String
  Dim derlig As Long, nomfich As String
  Set fd = Application.FileDialog(msoFileDialogOpen)
  fd.Title = "Sélectionnez un fichier..."
  fd.AllowMultiSelect = False
  If fd.Show() Then
   On Error GoTo OuvertureFichierErreur

l'erreur ne peut être avant cette ligne car c'est la lign on error goto... qui dit de mettre un message d'erreur
Si tu fais f8
après avoir passé la ligne MonFichier....
si tu mets ton curseur au dessus de mon fichier tu doid voir son chemin et son nom ...
Quand tu arrives sur
Workbooks.Open Filename:=MonFichier
le fichier s'ouvre
Après avoir passé
derlig = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
si tu mets ta souris sur derlig tu dois voir combien de ligne il y a dans ton fichier
Ensuite on sélectionne les lignes et on les copies sur classeur2.xlsm

Donc tu fais f8 jusqu'à ce stade et on avise...
Donne moi la valeur de derlig

 

[FCMLE44]

Quand j'ai passé
"Workbooks.Open Filename:=MonFichier
le fichier s'ouvre "
Le fichier affiche deux lignes avec la fenetre "j'ai fini"
Je ne peux accèder a la suite en faisant alt F8

 

[fanfan38]

A tu regardé ton fichier... parce que en faisant f8 tu ouvres le fichier choisi et à ce moment tu n'as encore rien copié...

 

[FCMLE44]

A tu regardé ton fichier... parce que en faisant f8 tu ouvres le fichier choisi et à ce moment tu n'as encore rien copié...

Oui et je vois bien toutes les lignes de mon fichier source

 

[fanfan38]

C'est quand même marrant moi quand je fais f8 après
"Workbooks.Open Filename:=MonFichier
mon fichier s'ouvre et là je vois les lignes qui sont dedans...
ensuite je retourne à la macro et je refais f8...
et de ce fait je continue la procédure ligne par ligne...
Mais pas toi.... tu arrives directement à la fin de la macro...
Ou tu appuie sur f5 ou il y a un gros problème que je ne peux resoudre
A+

 

[FCMLE44]

Je te promets, meme si je suis un novice sur le sujet que c'est bien ce qui se passe

 

[FCMLE44]

voila ce que ca me fais une fois le fichier sélectionné

 

[fanfan38]

si tu ne passe pas à la ligne suivante en faisant f8 je ne peux rien pour toi..
Bonne soirée