Enregistrer un fichier au format CSV dans une macro

Ajouter un message à la discussion

Painghou

Posté le 15/03/2016 @ 09:09

Bonjour,

Je suis sous Excel 2010.

Je dois enregistrer une feuille d'un classeur au format CSV.

Lorsque je le fait manuellement, cela fonctionne, mais si je le fais dans la macro, mon fichier se retrouve pollué de ","...

Voici les ligne que j'utilise :

Sheets("importtrace").Select
Sheets("importtrace").Move
ActiveWorkbook.SaveAs Filename:=NomFichier & ".csv", FileFormat:=xlCSV, CreateBackup:=False, Local:=True
ActiveWorkbook.Save
ActiveWindow.Close Savechanges:=True

J'ai vérifié, dans mes paramètres régionaux, il y a bien le ";" en séparateur.

Je me casse la tête sur cette macro, merci de votre aide

gilbert_rgi

Posté le 15/03/2016 à 12:56

bonjour,

avec ceci peut-être

Sub Test()
Dim Plage As Object, oL As Object, oC As Object, Tmp$, Sep$
Sep = ";"
Set Plage = ActiveSheet.Range("A1:f" & ActiveSheet.Range("A"& Rows.Count).End(xlUp).Row)
Open "NomFichier.csv" For Output As #1
For Each oL In Plage.Rows
Tmp = ""
For Each oC In oL.Cells
Tmp = Tmp & CStr(oC.Text) & Sep
Next
Print #1, Tmp
Next
Close
End Sub

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !

Les bons plans du moment PC Astuces

Tous les Bons Plans

64,99 €

Alimentation PC Corsair CV650 650W à 64,99 €
Valable jusqu'au 23 Janvier

Boulanger fait une promotion sur l'alimentation PC Corsair CV650 650W à 64,99 € au lieu de 80 € ailleurs. Cette alimentation certifiée 80+ Bronze dispose d'un ventilateur thermorégulé de 120 mm qui assure le refroidissement silencieux de votre système, tandis que son format compact s’adapte facilement à presque tous les boîtiers PC modernes avec une longueur de seulement 125mm.

> Voir l'offre

14,35 €

Clé USB Sandisk Ultra 64 Go à double connectique USB 3.1 Type A et C à 14,35 €
Valable jusqu'au 25 Janvier

Amazon fait une promotion sur la clé USB Sandisk Ultra 64 Go à double connectique USB 3.1 Type A et C qui passe à 14,35 € alors qu'on la trouve ailleurs à plus de 25 €. Cette clé USB dispose d'un connecteur réversible USB Type C et d'un connecteur classique de type A. Grâce à elle, transférez en toute simplicité et rapidement (jusqu'à 150 Mo/s) vos fichiers entre vos smartphones, tablettes et ordinateurs.

> Voir l'offre

349,99 €

Casque réalité virtuelle Oculus Rift S à 349,99 €
Valable jusqu'au 23 Janvier

Amazon fait une promotion sur le casque de réalité virtuelle Oculus Rift S avec ses 2 manettes Oculus Touch à 349,99 € alors qu'on le trouve ailleurs à partir de 449 €. La livraison est gratuite. L'Oculus Rift S est un casque de Réalité Virtuelle pour PC qui vous permettra de tirer parti du meilleur de votre machine en matière de VR. Ce casque VR pour PC est le plus perfectionné conçu par Oculus. Plus ergonomique et plus performant, il est aussi plus confortable et plus efficace que ses prédécesseurs. L'immersion est parfaite, le rendu spectaculaire, les images éclatantes et bluffantes de réalisme. Sensations fortes garanties !

> Voir l'offre