copier/coller d edonner sur criteres par macro

[domflo]

Bonjour,

En visitant le forum j'ai presque trouvé la macro qu'il me fallait, mais il me manque une variable.
Cad j'ai une feuille avec des données et je souhaite copier toutes les lignes qui ont la même valeur de A2 à A......, et copié ces lignes dans des classeurs que la macro ouvre.
Car la macro ci-dessous ne copie que la première ligne.
Mes connaissances en VBA sont quasi nulles, si vous pouviez m'aider
Par avance merci.
Voici la macro
+ le fichier joint
Sub test()
'

chemin = ActiveWorkbook.Path
MonNom = ActiveWorkbook.Name
For n = 2 To Range("A65536").End(xlUp).Row
Workbooks.Add(xlWBATWorksheet).SaveAs chemin & "/" & Workbooks(MonNom).Sheets("recap").Range("A" & n)
Workbooks(MonNom).Sheets("recap").Range("A1:l1").C opy Destination:=ActiveSheet.Range("A1")
Workbooks(MonNom).Sheets("recap").Range("A" & n & ":G" & n).Copy Destination:=ActiveSheet.Range("A2")
Next n
End Sub

 

[Cousinhub]

Re : copier/coller d edonner sur criteres par macro

Re-,

ActiveWorkbook.SaveAs Filename:=chemin & c
ActiveWorkbook.Close

ben non, il crée le fichier puis le ferme

 

[domflo]

Re : copier/coller d edonner sur criteres par macro

ok, c'est trés bien comme ça.
JVu pour la feuille transfert,
Bonne nuit.