Bonjour,

Ce sujet a été abordé, mais dans ma recherche je n'ai pas trouvé la solution.

A partir d'un fichier .xlsm (sous Mac) j'ai une feuille que je veux isoler sans un nouveau fichier .csv. avec comme séparateur ";" OBLIGATOIREMENT.
Ce fichier servira à un import dans une web apps.

Le problème que je rencontre, c'est que le fichier .csv s'enregistre avec comme séparateur ",".
Je ne peux pas modifier les paramètres de mon poste, car cette option sera réalisée sur plusieurs machines sans que j'en ai connaissance.
Je vous joins mon code.

Merci de votre assistance.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Sub Import()
'
' Import_restaurant Macro
' Création d'un fichier csv pour import Appli
'
    Sheets("IMPORT_HEURES").Select
    Sheets("IMPORT_HEURES").Copy
    Range("A1").Select
 
    'Mise en forme de la colonne de date au format "dd-mm-yyyy"
    Columns("A:A").Select
    Selection.NumberFormat = "dd-mm-yyyy"
    Range("A2").Select
 
    'Chemin d'enregristrement du nouveau fichier au format csv
    ActiveWorkbook.SaveAs Filename:= _
        "Macintosh HD:Users:moi:Desktop:import_restaurant.csv", FileFormat:= _
        xlCSVWindows, CreateBackup:=False
 
   'Fermeture et enregistrement du classeur
        ActiveWorkbook.SaveAs
        ActiveWorkbook.Close savechanges:=True
 
End Sub