Snoopy6102000
XLDnaute Junior
Bonjour,
J'ai tourné mes possibilités un peu dans tous les sens.
En fait je dois récupérer des données de plusieurs classeurs excel pour faire un seul tableau. Mes différents essais étant bien compliqué, je me suis dit que j'allais passé par un intermédiaire.
A la base :
J'ai des fiches devis dans un dossier 2014/14.0001 ; 0002 ; 0003...
Dans chaque fiche devis, je souhaites récupérer (feuille Débit) les cellules des lignes 7 à 34 (si elles ne sont pas vides), colonnes A(colone1), B(colonne2), AD(30), AK(37) ...
Sur chaque ligne j'ai Référence (colonne1) / Désignation (colonne2) / Prévu1(colonne30) /Prévu2(colonne37)
Je voudrais cumuler toutes ces lignes dans un seul tableau.
J'ai essayé mais je m'embourbe avec les boucles. En effet, je dois récupérer ces informations pour chaque fichier existant dans le dossier 2014.
Je ne sais pas comment dire "pour chaque classeur dans le dossier 2014"
A partir de là je pourrais travaillé sur une boucle pour 2014, 2015...
Merci d'avance pour vos conseils, j'ai trouvé différentes formules sur internet, mais je n'arrive pas à les adapter
Par exemple:
Dim Feuille As Worksheet
Dim LeNom As String
Dim Flag As Boolean
Set Devis = Sheets("Devis")
Set Complet = Sheets("Complet")
Application.ScreenUpdating = False
For Each Feuille In ThisWorkbook.Worksheets
LeNom = ActiveWorkbook.Path & "\" & Devis & ".xls"
Workbooks.Open LeNom
Feuille.Copy after:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
ActiveWorkbook.Close True
Next Feuille
Application.ScreenUpdating = True
J'ai déjà fait des boucle avec Do Loop ou For Next (même si j'ai du mal), mais je n'arrive pas à utiliser le bon langage:!
Mercid 'avance pour vos conseils
J'ai tourné mes possibilités un peu dans tous les sens.
En fait je dois récupérer des données de plusieurs classeurs excel pour faire un seul tableau. Mes différents essais étant bien compliqué, je me suis dit que j'allais passé par un intermédiaire.
A la base :
J'ai des fiches devis dans un dossier 2014/14.0001 ; 0002 ; 0003...
Dans chaque fiche devis, je souhaites récupérer (feuille Débit) les cellules des lignes 7 à 34 (si elles ne sont pas vides), colonnes A(colone1), B(colonne2), AD(30), AK(37) ...
Sur chaque ligne j'ai Référence (colonne1) / Désignation (colonne2) / Prévu1(colonne30) /Prévu2(colonne37)
Je voudrais cumuler toutes ces lignes dans un seul tableau.
J'ai essayé mais je m'embourbe avec les boucles. En effet, je dois récupérer ces informations pour chaque fichier existant dans le dossier 2014.
Je ne sais pas comment dire "pour chaque classeur dans le dossier 2014"
A partir de là je pourrais travaillé sur une boucle pour 2014, 2015...
Merci d'avance pour vos conseils, j'ai trouvé différentes formules sur internet, mais je n'arrive pas à les adapter
Par exemple:
Dim Feuille As Worksheet
Dim LeNom As String
Dim Flag As Boolean
Set Devis = Sheets("Devis")
Set Complet = Sheets("Complet")
Application.ScreenUpdating = False
For Each Feuille In ThisWorkbook.Worksheets
LeNom = ActiveWorkbook.Path & "\" & Devis & ".xls"
Workbooks.Open LeNom
Feuille.Copy after:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
ActiveWorkbook.Close True
Next Feuille
Application.ScreenUpdating = True
J'ai déjà fait des boucle avec Do Loop ou For Next (même si j'ai du mal), mais je n'arrive pas à utiliser le bon langage:!
Mercid 'avance pour vos conseils
