Capter des donnees pour les distribuer sur differents onglets

Le
magic-dd
Bonsoir

je recois un classeur hebdomadaire synthese avec differents produits

ex pomme, poire, orange

j'aimerais depuis un autre classeur qui lui possede autant d'onglets que de=
produits ( 3 dans mon exemple) rappatrier les données et les mettres =
à la suite de la derniere ligne.

j'espere etre assez précis

je vous laisse en pj les 2 classeurs pour mieux comprendre

http://cjoint.com/?CEptzRA65GO

http://cjoint.com/?CEptAnRCLfm
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #25410592
Bonjour,

Exemple en fonction du numeros de semaine de l'enregistrement du classeur "Synthese"
Les deux classeur sont ouvert
En colonne 1 du classeur "Details_fruits" les numéros de semaine

'-------------------
Sub jj()
Dim c As Range, col As Long
NUsemaine = Application.WeekNum(FileDateTime("synthese.xlsx"), 2)
With Workbooks("synthese.xlsx").Sheets("feuil1")
For Each c In .Range("A2:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
col = .Cells(c.Row, .Cells.Columns.Count).End(xlToLeft).Column
.Range(.Cells(c.Row, 2), .Cells(c.Row, col)).Copy Workbooks("details_fruits.xlsm").Sheets(c.Value) _
.Range("B" & Application.Match(NUsemaine, Workbooks("details_fruits.xlsm").Sheets(c.Value).[a1:a54],
0))
Next
End With
End Sub
'--------------------
Voir Ici
http://cjoint.com/?CEqpu2rQ4ax

PS: Pour les tests, enregistrer le classeur joint et ouvrir le classeur "Synthese"

--
Salutations
JJ


"magic-dd"
Bonsoir

je recois un classeur hebdomadaire synthese avec differents produits

ex pomme, poire, orange

j'aimerais depuis un autre classeur qui lui possede autant d'onglets que de produits ( 3 dans mon exemple)
rappatrier les données et les mettres à la suite de la derniere ligne.

j'espere etre assez précis

je vous laisse en pj les 2 classeurs pour mieux comprendre

http://cjoint.com/?CEptzRA65GO

http://cjoint.com/?CEptAnRCLfm
Publicité
Poster une réponse
Anonyme