Discussion :

[NATOU2]

Bonjour,

je dois pour x raisons convertir un fichier xls en csv. Lorsque que je le fais manuellement le csv s'enregistre bien avec des points virgules lorsque je réponds oui au message "HAZDATA.csv peut contenir des informations non compatibles avec CSV. Voulez vous conserver le format du classeur ?".

Par contre, lorsque j'essaie de le faire en vba par le code suivant :

Code :

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

1
2
3
4
ActiveSheet.Copy
ChDir "c:\"
ActiveWorkbook.SaveAs Filename:= "c:\HAZDATA.csv", FileFormat:=xlCSV, _ CreateBackup:=False
ActiveWorkbook.Close Savechanges = True

le fichier ne garde pas le format csv.

Je pense en fait que mon code ne suffit pas à lui préciser que je veux confirmer le format du classeur.

Comment dois-je faire ?

Merci beaucoup de votre aide (ça urge !!)

[Jean-Pierre49]

Bonsoir

Essaye

Code :

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

1
2
ActiveWorkbook.SaveAs Filename:= "c:\HAZDATA", FileFormat:=xlCSV, _ CreateBackup:=False
ActiveWorkbook.Close Savechanges = True

Pas besoin d'indiquer l'extension

Jean Pierre

[Jean-Philippe André]

salut,
tu dois avoir le reste des paramètres avec le macro recorder. Outil>Macro>Nouvelle Macro

[kiki29]

Soir Bon
Depuis XL 2002, l'export en CSV via VBA prend par défaut pour séparateur une "," sauf si on le fait à la main : Fichier Enregistrer sous CSV (séparateur point-virgule)

Vérifier dans les Options Régionales | Personnaliser que le séparateur de listes est bien un point-virgule.
Ajouter Local:=True

Code :

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

1
2
ActiveWorkbook.SaveAs Filename:= "c:\HAZDATA.csv", ....,Local:=True

Extrait de l'aide en ligne VBA :
True enregistre les fichiers en fonction de la langue de Microsoft Excel (y compris les paramètres du Panneau de configuration). False (valeur par défaut) enregistre les fichiers en fonction de la langue de Visual Basic pour Applications VBA(qui est généralement l'anglais des États-Unis, sauf si le projet VBA où Workbooks.Open est exécuté est un ancien projet VBA XL5/95 de niveau international).

[NATOU2]

Tout d'abord, merci d'avoir répondu si vite à mon appel au secours.

J'ai bien cru que les options régionales et le rajout de local:= true allait fonctionner mais rien ni fait... voyez vous autre chose ?

Encore merci

[mayekeul]

Tu as quelle version d'office???
Avec la version 2000, cela a de forte chance de ne pas fonctionner.
pour les versions 2002 ou plus

Code :

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

1
2
ActiveWorkbook.SaveAs Filename:= "C:TEST.csv", FileFormat:=xlCSV, _
CreateBackup:=False, local:=True

mais on l'as déjà dis plus bas ça

pour ma part, je crée un fichier texte manuellement!
via FileSystemeObject et la libraire scripting runtime

[NATOU2]

j'ai la version 2003 et le code que tu m'as redonné ne fonctionne malheureusement pas, excel continue à me mettre des virgules au lieu des points virgules malgré que l'option régionale de séparateur de liste est correcte (.

Je suis désespérée car je ne peux pas appliquer un texte manuellement par la méthode que tu me suggères, j'ai plus de 500 lignes à convertir.

Y at-il pas un bonsens de code qui lui indique de conserver le format du fichier avant de le fermer ?!

Encore merci pour votre aide

[kiki29]

re, Vérifier également sous Excel Menu Outils Options International

[NATOU2]

Toujours pas de modif même avec ce paramétrage...

[kiki29]

Re, Une copie de ce fichier rétif serait bienvenue

[NATOU2]

bonjour kiki29,

heureuse de voir que l'on ne m'abandonne pas.

ci-joint le fichier rétif....

Encore merci

[kiki29]

Soir Bon
Application.DisplayAlerts pour écraser sans demande de confirmation,à toi de voir

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub csvfile()
    Application.DisplayAlerts = False
    With ActiveWorkbook
        .SaveAs Filename:="C:\Test1.csv", FileFormat:=xlCSV, CreateBackup:=False, local:=True
        .Close
    End With
    Application.DisplayAlerts = True
End Sub

Une variante

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Tst3()
Dim sNomCsv As String
    sNomCsv = ThisWorkbook.Path & "\Test3.csv"
    Application.DisplayAlerts = False
    ActiveSheet.Copy
    With ActiveWorkbook
        .SaveAs Filename:=sNomCsv, FileFormat:=xlCSV, local:=True
        .Close
    End With
    Application.DisplayAlerts = True
End Sub

[NATOU2]

bonjour kiki29,

super ça marche !! mille fois merci !