Discussion :

[Reply]

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

[DotNetMatt]

Le sujet a déjà été traité ici : http://www.developpez.net/forums/d15...v-separateurs/

Utilise la fonction recherche du forum avant de poster, le lien ci-dessus date d'il y a quelques jours à peine... N'oublie pas de marquer cette discussion comme résolue en utilisant le bouton "Résolu" en bas de cette page.

[Reply]

Dans ce poste je n'ai pas trouvé la réponse à ma question. ( http://www.developpez.net/forums/d15...v-separateurs)
Ces solutions ne fonctionne pas pour moi.
Le fichier est enregistré en csv, mais les données sont séparées par une ",".

[DotNetMatt]

Je te donne un indice, la réponse se trouve dans l'avant dernier post. Toi tu utilises xlCSVWindows qui correspond au format CSV avec la virgule comme séparateur.

[Reply]

Je te donne un indice, la réponse se trouve dans l'avant dernier post. Toi tu utilises xlCSVWindows qui correspond au format CSV avec la virgule comme séparateur.

J'ai modifié mon code avec XlFileFormat.xlCSV comme ci-dessous, mais pas de changement.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ActiveWorkbook.SaveAs Filename:= _
        "Macintosh HD:Users:moi:Desktop:import_restaurant.csv", FileFormat:= _
        XlFileFormat.xlCSV, CreateBackup:=False

[DotNetMatt]

Hmm bizarre, peut-être que si tu as déjà un fichier existant, il n'est pas remplacé par le nouveau ?

Essaie avec ceci :

Code VB.NET :

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
 
	Application.DisplayAlerts = False
 
	'Chemin d'enregristrement du nouveau fichier au format csv
	ActiveWorkbook.SaveAs Filename:= _
		"Macintosh HD:Users:moi:Desktop:import_restaurant.csv", FileFormat:= _
		XlFileFormat.xlCSV, CreateBackup:=False
 
	'Fermeture et enregistrement du classeur
	ActiveWorkbook.Close
 
End Sub

Ca donne quoi ?