extraction de lignes de 3 fichiers differents pour creer un fichier final (RESOLU)

[LOLO2A]

Bonjour à tous,
Je suis débutant dans vba et là j'ai grillé mes derniers neuronnes à reflechir et ecumer les divers fourum pour trouver une solution mais rien ne correspond.
Voilà mon problème : dans un repertoire appelé SAV j'ai 3 repertoires utilisateurs (nommés 1,2 et 3). Dans chaque repertoire il y a un fichier SAV ( un seul pour l instant mais cela peut evoluer ). chaque fichier a un nombre de colonnes identiques et nommées de la même façon, par contre, et c'est en partie là que je craque, le nombre de ligne est different !
Je souhaite récupérer dans un nouveau fichier nommé RECAP les lignes de 7 (1er ligne de données des fichiers SAV) à la dernière ligne remplie de chaque fichier SAV en les mettant à la suite dans le RECAP.

J'arrive à aller dans chaque repertoire, identifier et ouvrir successivement tous les fichiers excel qu'ils contiennent mais je ne parviens pas à récuperer toutes les données voire même aucune selon ce que je fais.
ci joint deux fichiers SAV1 et SAV2 pour exemple et ce que j'ai fait pour RECAP avec mes commentaires et divers essais reflechis ou pris sur des forums en essayant d'adapter le code.

Là j'ai de loin dépassé mes compétences, merci de m'aider à avancer et à comprendre.

bonne soirées à tous
Laurent

 

[Grand Chaman Excel]

Re : extraction de lignes de 3 fichiers differents pour creer un fichier final

Salut,

Je n'ai pas fait de validation, mais il me semble que ceci serait un bon départ.
(à insérer dans ton code existant)

' ICI J'ESSAIE DE PARTIR DE LA LIGNE 7 DU FICHIER SOURCE QUI EST LA PREMIERE LIGNE DE DONNEE QUI M INTERRESSE
'JUSQU'A LA DERNIERE LIGNE DE CE MEME FICHIER POUR CONNAITRE QUELLE EST CETTE LIGNE

Dim rgImport As Range
Dim rgResult As Range
Dim Lastrow As Integer
Dim i As Integer
Set rgImport = wbImport.Range("A7")     'on part de la ligne 7
Do Until IsEmpty(rgImport)              'on boucle jusqu'à la fin (on suppose aucune ligne vide)
   
   Lastrow = wbResult.Sheets(1).Range("A65000").End(xlUp).Row + 1   'ligne d'écriture dans classeur wbResult
   Set rgResult = wsbesult.Sheets(1).Range("A" & Lastrow)
   For i = 0 To 10
    rgResult.Offset(0, i).Value = rgImport.Offset(0, i).Value       'on écrit
   Next i

Set rgImport = rgImport.Offset(1, 0)
Loop

'Range("A7").Select
'Ligne = Cells(65530, w).End(xlUp).Row
'If Ligne > Dernière Then Dernière = Ligne
'Range("A" & Dernière).Offset(1, 0).Select
'ActiveSheet.Paste

' CI DESSOUS UN PREMIER ESSAI QUI IMPORTE LA PREMIERE LIGNE DANS LA FEUILLE RESULTATS MAIS N'ARRIVANT PAS A GERER
' L IDENTIFICATION DU NOMBRE DE LIGNE DU TABLEAU SOURCE DANS DERNIERE, CELA NE FONTIONNE PAS     IL FAUDRAIT AUSSI
' INCREMENTER LES DONNEES IMPORTEES D'UNE LIGNE PAR BOUCLE

Au plaisir.

 

[LOLO2A]

Re : extraction de lignes de 3 fichiers differents pour creer un fichier final

Bonjour Grand Chaman Excel et merci beaucoup pour cette réponse, j'essaie tout de suite et je reviens...

 

[LOLO2A]

Re : extraction de lignes de 3 fichiers differents pour creer un fichier final

me re-voilà, j'ai une erreur après la deinition des variables au niveau de

Set rgImport = wbImport.Range("A7")     'on part de la ligne 7

qui me renvoie Propriété ou methode non géré par cet objet.

J'ai aussi modifié

Set rgResult = wsbesult.Sheets(1).Range("A" & Lastrow)

en

Set rgResult = wbResult.Sheets(1).Range("A" & Lastrow)

est ce que c'est bien ça?

merci de ton aide

 

[Grand Chaman Excel]

Re : extraction de lignes de 3 fichiers differents pour creer un fichier final

Salut,
Tu as fais la bonne correction.
Pour la 1re erreur, essaie ceci:

Set rgimport = wbimport.sheets(1).range("A7")

 

[Robert]

Re : extraction de lignes de 3 fichiers differents pour creer un fichier final

Bonjour le fil, bonjour le forum,

Tiens il y a un gourou maintenant sur le site ??? Mort de rire...
Hé Grand Chaman Excel si t'as des problèmes pour trouver des bonnets vu la taille de ton melon on pourrait peut-être lancer une appel dans le forum pour t'en trouver un...

 

[LOLO2A]

Re : extraction de lignes de 3 fichiers differents pour creer un fichier final

impec ça marche très bien!
merci beaucoup pour ton aide