Capter des donnees pour les distribuer sur differents onglets
1 réponse
magic-dd
Bonsoir
je recois un classeur hebdomadaire synthese avec differents produits=20
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=E9es et les mettres =
=E0 la suite de la derniere ligne.
j'espere etre assez pr=E9cis
je vous laisse en pj les 2 classeurs pour mieux comprendre
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacky
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" a écrit dans le message de news:
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
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" <ciolandre@gmail.com> a écrit dans le message de news:
91f55254-4d47-4f0f-b13a-47729e208c6e@googlegroups.com...
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
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" a écrit dans le message de news:
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
