je me suis mal expliqué:
je voudrais copier les cellules c2 à e2 dans un fichier "tartenpion"
copier les cellules c3 à e3 dans un fichier "duchemolle"
copier les cellules c4 à e4 dans un fichier "trucmuche"
avec une boucle pour les colonnes et une pour les différents fichiers
car je possède 60 lignes à distribuer à 60 fichiers.
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
JB
http://cjoint.com/?fAkaQu5HMX
Sub essai() For Each c In Range([B2], [b65000].End(xlUp)) nf = c.Value c.Offset(0, 1).Resize(, 3).Copy Workbooks.Add Selection.PasteSpecial Paste:=xlPasteValues Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=nf ActiveWorkbook.Close Next c End Sub
JB
http://cjoint.com/?fAkaQu5HMX
Sub essai()
For Each c In Range([B2], [b65000].End(xlUp))
nf = c.Value
c.Offset(0, 1).Resize(, 3).Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=nf
ActiveWorkbook.Close
Next c
End Sub
Sub essai() For Each c In Range([B2], [b65000].End(xlUp)) nf = c.Value c.Offset(0, 1).Resize(, 3).Copy Workbooks.Add Selection.PasteSpecial Paste:=xlPasteValues Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=nf ActiveWorkbook.Close Next c End Sub
