ventilation

bonjour Pierre,

voici un exemple,

Sub Macro1()
lgn Application.CountA(Workbooks("ClasseurY").Sheets("Feuil1").Range("A:A"))
+ 1
With Workbooks("ClasseurX").Sheets("Feuil1")
For i = 1 To 7
.Rows(i).Copy Destination:=Workbooks("ClasseurY").Sheets("Feuil" &
i).Range("A" & lgn)
Application.CutCopyMode = False
Next
End With
End Sub

isabelle

bonsoir à tous(tes),
je récupère tous les jours sur internet un classeurX avec 1 seule feuille
contenant 7 lignes.
je voudrais ventiler chaque ligne dans un classeur Y,la ligne1 dans la
feuille 1,la 2 dans la feuille 2,...et tous les jours sur la ligne suivante.
l'un(e) de vous aura-t-il(elle) la science pour me venir en aide?
merci à tous(tes)

1000 excuses
ce que je n'arrive pas à faire c'est copier mes données(la ligne)sur la
ligne suivante et ce chaque jour
encore merci


"pierre" <"xpierre52x"@tiscali.fr> a écrit dans le message news:
OFeG$fgsDHA.1740@TK2MSFTNGP12.phx.gbl...

bonsoir à tous(tes),
je récupère tous les jours sur internet un classeurX avec 1 seule feuille
contenant 7 lignes.
je voudrais ventiler chaque ligne dans un classeur Y,la ligne1 dans la
feuille 1,la 2 dans la feuille 2,...et tous les jours sur la ligne
suivante.

l'un(e) de vous aura-t-il(elle) la science pour me venir en aide?
merci à tous(tes)

Bonjour Pierre,

Voici un petit exemple : Cette procédure copie toujours la ligne (1) entière vers la première ligne disponible dans la
feuille 2

'---------------------
Sub CopieLigneSuivante()

With Worksheets("Feuil2")
Worksheets("Feuil1").Range("A1").EntireRow. _
Copy .Range("A" & .Range("A65536").End(xlUp).Row)(2)
End With

End Sub
'---------------------


Salutations!



"pierre" <"xpierre52x"@tiscali.fr> a écrit dans le message de news:OFeG$fgsDHA.1740@TK2MSFTNGP12.phx.gbl...
bonsoir à tous(tes),
je récupère tous les jours sur internet un classeurX avec 1 seule feuille
contenant 7 lignes.
je voudrais ventiler chaque ligne dans un classeur Y,la ligne1 dans la
feuille 1,la 2 dans la feuille 2,...et tous les jours sur la ligne suivante.
l'un(e) de vous aura-t-il(elle) la science pour me venir en aide?
merci à tous(tes)

"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message news:
3FC12FFB.348FB475@videotron.ca...

bonjour Pierre,

voici un exemple,

Sub Macro1()
lgn
n'y a t'il pas un erreur là au dessus

Application.CountA(Workbooks("ClasseurY").Sheets("Feuil1").Range("A:A"))
+ 1
With Workbooks("ClasseurX").Sheets("Feuil1")
For i = 1 To 7
.Rows(i).Copy Destination:=Workbooks("ClasseurY").Sheets("Feuil" &
i).Range("A" & lgn)
Application.CutCopyMode = False
Next
End With
End Sub

isabelle

bonsoir à tous(tes),
je récupère tous les jours sur internet un classeurX avec 1 seule
feuille

contenant 7 lignes.
je voudrais ventiler chaque ligne dans un classeur Y,la ligne1 dans la
feuille 1,la 2 dans la feuille 2,...et tous les jours sur la ligne
suivante.

l'un(e) de vous aura-t-il(elle) la science pour me venir en aide?
merci à tous(tes)

merci de ta réponse,
il faudrait que la ligne 1 soit copiée après la dernière ligne de la feuille
1( là ça fonctionne),que la ligne2 fasse la même chose dans la feuille2...
que la ligne 7 soit copiée après la dernière ligne de la feuille 7
merci de ton aide

"Denis Michon" <denis.michon@cgocable.ca> a écrit dans le message news:
olawb.61309$Ng3.55436@charlie.risq.qc.ca...

Bonjour Pierre,

Voici un petit exemple : Cette procédure copie toujours la ligne (1)
entière vers la première ligne disponible dans la

feuille 2

'---------------------
Sub CopieLigneSuivante()

With Worksheets("Feuil2")
Worksheets("Feuil1").Range("A1").EntireRow. _
Copy .Range("A" & .Range("A65536").End(xlUp).Row)(2)
End With

End Sub
'---------------------


Salutations!



"pierre" <"xpierre52x"@tiscali.fr> a écrit dans le message de
news:OFeG$fgsDHA.1740@TK2MSFTNGP12.phx.gbl...

bonsoir à tous(tes),
je récupère tous les jours sur internet un classeurX avec 1 seule feuille
contenant 7 lignes.
je voudrais ventiler chaque ligne dans un classeur Y,la ligne1 dans la
feuille 1,la 2 dans la feuille 2,...et tous les jours sur la ligne
suivante.

l'un(e) de vous aura-t-il(elle) la science pour me venir en aide?
merci à tous(tes)

Merci à tous et toutes
grace à vos conseils et vos pistes j'ai résolu mon petit problème
encore merci isabelle et denis