Microsoft 365 Enregistrer via vba en cvs au lieu de xlsx

[saggigo]

Bonjour l'équipe,
j'ai un code qui divise un fichier excel de plusieurs lignes en plusieurs fichiers excel. je souhaiterais modifier le code de telle sorte que l'extension soit *.cvs au lieu de xlsx. voici le code:

Sub Test()
  Dim wb As Workbook
  Dim ThisSheet As Worksheet
  Dim NumOfColumns As Integer
  Dim RangeToCopy As Range
  Dim RangeOfHeader As Range
  Dim WorkbookCounter As Integer
  Dim RowsInFile
 
  Application.ScreenUpdating = False
 
  Set ThisSheet = ThisWorkbook.ActiveSheet
  NumOfColumns = ThisSheet.UsedRange.Columns.Count
  WorkbookCounter = 1
  RowsInFile = 10000
 
  Set RangeOfHeader = ThisSheet.Range(ThisSheet.Cells(1, 1), ThisSheet.Cells(1, NumOfColumns))
 
  For p = 2 To ThisSheet.UsedRange.Rows.Count Step RowsInFile - 1
    Set wb = Workbooks.Add
  
    RangeOfHeader.Copy wb.Sheets(1).Range("A1")
  
    Set RangeToCopy = ThisSheet.Range(ThisSheet.Cells(p, 1), ThisSheet.Cells(p + RowsInFile - 2, NumOfColumns))
    RangeToCopy.Copy wb.Sheets(1).Range("A2")

    wb.SaveAs ThisWorkbook.Path & "\file " & WorkbookCounter
    wb.Close
  
    WorkbookCounter = WorkbookCounter + 1
  Next p

  Application.ScreenUpdating = True
  Set wb = Nothing
End Sub

 

[Compte Supprimé 979]

Bonsoir

Et avec une petite recherche 🤔

Google Search

A+

 

[saggigo]

Bonsoir

Et avec une petite recherche 🤔

Google Search

A+

Salut BrunoM45,
Je te remercie pour la réponse, sauf que je met ca ou dans le code ?(qui n'est pas à moi) 😊

 

[saggigo]

Personne pour m'aider?🥺

 

[kiki29]

Salut, modifs à faire, à toi de voir

        .....
       
    Application.DisplayAlerts = False
    wb.SaveAs ThisWorkbook.Path & "\file " & WorkbookCounter, _
              FileFormat:=xlCSV, _
              Local:=True, _
              CreateBackup:=False
    wb.Close
    Application.DisplayAlerts = True
       
        .....

 

[saggigo]

Salut, modifs à faire, à toi de voir

        .....
      
    Application.DisplayAlerts = False
    wb.SaveAs ThisWorkbook.Path & "\file " & WorkbookCounter, _
              FileFormat:=xlCSV, _
              Local:=True, _
              CreateBackup:=False
    wb.Close
    Application.DisplayAlerts = True
      
        .....

Merci beaucoup kiki29. MErciiiiiiiiiii