Bonjour a tous!
La je rencontre un vrai pb.
Je sauvegarde des fichier en CSV fileFilter:="CSV (séparateur: point-virgule) via une macro:
Sub Backup()
Dim Filename As String
Dim nomfic As String
Dim occ1 As Integer
Dim longueur As Integer
ChDrive "F:"
Filename = Application.GetSaveAsFilename("", fileFilter:="CSV (séparateur: point-virgule) (*.csv), *.csv")
If Filename <> "Faux" Then
Sheets("Feuil1").Copy
ActiveWorkbook.SaveAs Filename, FileFormat:=xlCSV, CreateBackup:=False
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
'Détermine le nom du fichier
occ1 = InStrRev(Filename, "\")
longueur = Len(Filename) - occ1
nomfic = Right$(Filename, longueur)
MsgBox ("Le fichier créée se nomme: " & nomfic & Chr(13))
'Affichage du fichier pour l'envoi par mail
Feuil2.Range("D2").Select
'Range("D3").Select
ActiveCell.FormulaR1C1 = nomfic
End If
End Sub
Le pb, c'es lorque je réouvre ce fichier toutes les données sont séparées par des virgules, normal vu que c'est en .csv mais par contre quand je fais la meme chose sans macro, en enregistrant bien en CSV (séparateur: point-virgule , lorsque je réouvre mon fichier chaque donnée est bien dans chaque cellule, et c'est ce que je voudrais.
Sinon, normal, si je l'ouvre avec notepad, j'ai bien les ","
Merci