XL 2016 Convertion d'un export en csv

yblotiere à dit:

il faut enregistrer le resultat du second onglet en fichier .csv avec separateur ;
yannick

Cliquez pour agrandir...

Sub Convert()
Dim Chemin As String, Nom As String
Chemin = "F:\"  'à adapter
Nom = "Tournée du " & Format(Date, "DDMMYY")
Feuil2.Cells.Clear: Feuil2.Name = Nom
With Feuil1
  .Columns("h:h").Copy Feuil2.[a1]
  .Columns("E:E").Copy Feuil2.[b1]
  .Columns("i:i").Copy Feuil2.[c1]
  .Columns("K:K").Copy Feuil2.[g1]
  .Columns("J:J").Copy Feuil2.[h1]
  Application.CutCopyMode = False
End With
Feuil2.Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=Chemin & Nom, FileFormat:=xlCSV, Local:=True
ActiveWorkbook.Close
End Sub

yblotiere à dit:

Merci pour ton travail
si je souhaite qu'au moment de l'enregistrement il me demande sous quel nom je souhaite enregister
Cordialement
Yannick

Cliquez pour agrandir...

yblotiere à dit:

aurais tu une idées sur ce qui provoque le problème

Cliquez pour agrandir...