Récupération de données d'un tableau vers un autre selon date du fichier

  • Initiateur de la discussion Initiateur de la discussion pietrus2
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

pietrus2

XLDnaute Nouveau
Bonjour le forum,

J'ai une nouvelle fois besoin de vous. Je souhaiterais récuperer les dernieres lignes de 23 fichiers , pour les copier dans mon fichier "bilan". Mais le soucis viens du fait que je veux que ma macro cherche dans les 23 fichiers correspondant aux 23 dernieres semaines (fichiers : pi année num semaine)
sachant qu'un fichier par semaine est créé.
*************
je sais comment récuperer les dernieres lignes d'un fichier précis grace à ce code :

Sub copiecol()
Dim derLig As Long
Workbooks.Open "\\Frsrvshare\prod-achat\pi 2008 S20.xls", 0
Workbooks("pi 2008 S20.xls").Activate
With Workbooks("bilan.xls")
With .Sheets("Feuil1")
derLig = .[B2].End(xlDown).Row
.Range(.Cells(derLig - 4, 2), .Cells(derLig, 40)).Copy
[B8].PasteSpecial Paste:=xlPasteValues
End With
End With
Application.CutCopyMode = False
Workbooks("pi 2008 S20.xls").Close SaveChanges:=False
End Sub
******************************

mais il faut donc adapter ce code (je pense) pour répéter l'opération afin d'aller du fichier "pi année S en cours (au jour d'aujourd'hui 21)"
et remonter jusqu'au fichier "pi année S -23"

exemple pour cette semaine (21) :

il faut recopier les 4 dernieres lignes des fichiers :

pi 2008 S21
pi 2008 S20
*
*
***
*
pi 2007 S51

et tout recopier dans bilan.xls (feuil1)

je pensais aussi que peut etre on pouvais intégrer dans une cellule de la feuil1 du fichier bilan la formule =no.semaine(aujourdhui();2) pour indiquer a la macro quelle semaine nous etions et pouvoir exécuter la récupération des données.

J'espere avoir été clair.

Merci d'avance .

Pierre
 

Pièces jointes

  • Sans titre.GIF
    Sans titre.GIF
    35.4 KB · Affichages: 118
  • bilan.xls
    bilan.xls
    16.5 KB · Affichages: 75
  • Sans titre.GIF
    Sans titre.GIF
    35.4 KB · Affichages: 128
  • bilan.xls
    bilan.xls
    16.5 KB · Affichages: 77
  • Sans titre.GIF
    Sans titre.GIF
    35.4 KB · Affichages: 129
  • bilan.xls
    bilan.xls
    16.5 KB · Affichages: 75
Re : Récupération de données d'un tableau vers un autre selon date du fichier

Bonjour Pierre,

Voici une solution.
J'ai adapté la procédure "CopieCol".
Je n'ai pas eu besoin d'afficher le numéro de semaine sur la feuille pour récupérer les données.
La procédure est commentée.
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour