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
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
