Création fichier Upload

1

Bonjour,

pouvez-vous ajouter un exemple du résultat attendu ?

merci!

2

3

Bonjour boodebooz,

proposition à tester,

vous devez ajouter un onglet à votre fichier et nommer cet onlet "r1" avant d'exécuter la macro.

mais on pourrait ajouter une ligne de code pour faire cet ajout.

ps/ les fichier.csv sont enregistrer dans le même répertoire du fichier xlsm

Sub test_Enregister_CSV()
Set wk1 = ThisWorkbook
rep = wk1.Path
fin = Sheets("1").Cells(Rows.Count, 1).End(xlUp).Row
dt = Right(Sheets("1").Range("C4"), 4) & "-" & Mid(Sheets("1").Range("C4"), 4, 2) & "-" & Left(Sheets("1").Range("C4"), 2)
Sheets("r1").Range("A1:BE3").Value = Sheets("1").Range("A2:BE4").Value

 For i = 5 To fin Step 250
  k = k + 1

  Sheets("r1").Range(Cells(4, 1).Address, Cells(253, 57).Address).Value = Sheets("1").Range(Cells(i, 1).Address, Cells(i + 249, 57).Address).Value
  Sheets("r1").Range(Cells(254, 1).Address, Cells(503, 57).Address).Value = Sheets("2").Range(Cells(i, 1).Address, Cells(i + 249, 57).Address).Value

  Sheets("r1").Copy
  ActiveWorkbook.SaveAs Filename:=rep & "\Ulpoad v1" & dt & " (" & k & ").csv", FileFormat:=xlCSV, CreateBackup:=False, local:=True
  ActiveWorkbook.Close SaveChanges:=False

  wk1.Activate
  Sheets("r1").Range("A4:BE504").ClearContents
 Next i
 Sheets("r1").Cells.ClearContents
End Sub

n° complémentaire : le 4

Spoiler
screen
Rechercher des sujets similaires à "creation fichier upload"