Convertir format .xlsx en format .csv

Bonjour,

Je suis en train de créer une macro à laquelle j'assigne 2 fonctions :

1/ Supprimer la première ligne d'un fichier .xlsx

2/ Convertir automatiquement le même fichier étant au départ au format .xlsx au format .csv (séparateur : point virgule). Il est aisé de le faire manuellement.

Le premier objectif est atteint comme le montre la macro ci-dessus. Je bloque quant à la conversion.

Sub TRY() 

'Dim FichierOriginal As String

folder_to_choose = "G:\service INFORMATIQUE 5IVE\BIKE OFFICE\IMPORT_FICHIERS\2023\VAUDE\2023_05_25\essai\" 
Filename = "NewVaude_2023-05-25-10-17 Stade 1.xlsx" 
file = folder_to_choose & Filename 

MsgBox ("You have to close " & Filename) 

Set file = Workbooks.Open(file) 

Sheets("Travail_1").Activate 

Rows(1).Delete 

'File.Close 

End Sub

Merci de votre aide.

Bonjour,

À tester :

Sub TRY()

    Dim folder_to_choose As String
    Dim Filename As String
    Dim file As String
    Dim wb As Workbook

    folder_to_choose = "G:\service INFORMATIQUE 5IVE\BIKE OFFICE\IMPORT_FICHIERS\2023\VAUDE\2023_05_25\essai\" 
    Filename = "NewVaude_2023-05-25-10-17 Stade 1.xlsx" 
    file = folder_to_choose & Filename 

    MsgBox ("You have to close " & Filename) 

    ' Ouverture du classeur
    Set wb = Workbooks.Open(file) 

    ' Suppression de la première ligne
    wb.Sheets("Travail_1").Rows(1).Delete 

    ' Changement de format et sauvegarde du fichier
    Dim newFileName As String
    newFileName = Replace(file, ".xlsx", ".csv")
    Application.DisplayAlerts = False
    wb.SaveAs newFileName, FileFormat:=xlCSV, Local:=True
    Application.DisplayAlerts = True

    ' Fermeture du classeur
    wb.Close SaveChanges:=False 

End Sub

N'hésitez pas si vous avez des questions.

Cela me semble juste.

Vous m'avez donné un bon coup de main. Merci.

Maintenant, je vais tenter de trouver le moyen de sélectionner le classeur particulier, contenu dans le fichier de départ .xlsx, qui m'intéresse au lieu de sélectionner le fichier. Etant sur mon lieu de travail, je jongle entre plusieurs choses à faire.