Problème pour exporter une feuille en format .csv

Question

Je suis actuellement en train d'écrire en code en vba pour pouvoir exporter une feuille en particulier à en endroit voulu en format .csv. voici le code : Sub Export_csv()For i = 1 To Sheets.count Namesheets = Sheets(i).Name Name = Left(Namesheets, 6) If Name = "Prenom" Then L = IIf(L = "", "- " & Sheets(i).Name, L & Chr(10) & Chr(13) & "- " & Sheets(i).Name) End If Next iMsgBox ("Liste disponible:") & Chr(10) & Chr(13) & Li = 1For i = 1 To Sheets.count Namesheets = Sheets(i).Name Name = Left(Namesheets, 6) If Name = "Prenom" Then msg = "Voulez vous expoter " & Namesheets & " sous format .csv ?" Style = vbYesNo Title = "selection des dictionnaire d'objet" Response = MsgBox(msg, Style, Title) If Response = vbYes Then Sheets(Namesheets).Activate Set Ws = ThisWorkbook.Worksheets(Namesheets) Dim xDir As String Dim folder As FileDialog Set folder = Application.FileDialog(msoFileDialogFolderPicker) If folder.Show &lt;&gt; -1 Then Exit Sub xDir = folder.SelectedItems(1) ThisWorkbook.Sheets(Namesheets).Copy ActiveWorkbook.SaveAs FileName:=Namesheets & ".csv", FileFormat:=xlCSVMac, CreateBackup:=False ActiveWorkbook.Save ActiveWorkbook.Close Else End If ElseIf i = Sheets.count Then Stop End If Next i j'arrive bien à créer un fichier .csv et à y enregistrer mes données dedant. le problème est lorsque je veux reouvrire ce fichier csv enregistrer. en effet, même excel ne veux pas convertir ce fichier et le laisse donc en format texte. ( fichier générer et enregistré) fichier de base fichier enregistré merci d'avance pour votre aide...

scraper · Answer

Pour ouvrir un fichier CSV avec une version d'excel comme la mienne Choisir Menu "Données" ; "Obtenir des données", "A partir d'un fichier", "A partir d'un fichier texte ou CSV" On a alors le choix de choisir comme séparateur la virgule...