Creation d un classeur pour chaque ligne
Bonjour a tous,
J aurai besoin d un coup de main pour ma requete ci dessous :
Le but est d editer une facture pour chaque client a partir du fichier joint.
Il me faut donc creer pour chaque client un nouveau classeur en conservant les deux premieres lignes a chaque fois.
Je souhaite conserver le meme nom de feuille egalement.
Malheureusement, je n ai pas le resultat escompe car c est toute la feuille qui se copie et colle dans un document.
Ci dessous le code
Sub test()
For i = 3 To 15
chemin = ActiveWorkbook.Path
nom = Cells(i, A)
Set ligne = Range("A" & i & ":D" & i)
Set wS = ActiveWorkbook
Workbooks.Add
Set wd = ActiveWorkbook
For Each ligne In wS.Worksheets
ligne.Copy Before:=wd.Sheets(1)
wS.Activate
Next ligne
wd.SaveAs Filename:=chemin + nom + ".xls"
Next
End Sub
Si vous avez une idee de ce qui cloche, je suis preneur
Merci
Oui désolé, j'ai oublié d'inclure la pièce jointe.