> Tous les forums > Forum Bureautique
 Enregistrer un fichier au format CSV dans une macro
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Painghou
  Posté le 15/03/2016 @ 09:09 
Aller en bas de la page 
Petit astucien

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

Publicité
gilbert_rgi
 Posté le 15/03/2016 à 12:56 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

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

Page : [1] 
Page 1 sur 1

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

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
16 Go de mémoire SODIMM DDR4 Crucial 3200 MHz à 40,79 €
40,79 € 65 € -37% @Amazon Allemagne

Amazon Allemagne fait une promotion sur le module de 16 Go de mémoire SODIMM DDR4 Crucial 3200 CL22 (CT16G4SFRA32A) qui passe à 37,81 €. Comptez 4,52 € pour la livraison en France soit un total de 42,33 € livré. On le trouve ailleurs à partir de 50 €. La RAM à 3200MHz peut être downclockée à 2933MHz ou 2666MHz si les spécifications du système ne prennent en charge que 2933MHz ou 2666MHz.

Le module de 8 Go est également en promotion à 23,41 € livré ainsi que le module de 32 Go à 66,72 € livré.

Une bonne affaire pour ces barrettes de mémoires adaptées aux ordinateurs portables, NUC, NAS, etc..


Voir le bon plan
Carte Graphique Gigabyte RX 6700 XT 12 Go à 379,90 €
379,90 € 459,90 € -17% @RueDuCommerce

RueDuCommerce fait une promotion sur la carte graphique Gigabyte RX 6700 XT 12 Go qui passe à 379,90 € au lieu de 459,90 €. En plus d'un affichage multi-écran, ce GPU offre d'excellents rendus visuels. Ce composant bénéficie de Windforce 3X et d'une mémoire de haute capacité.


Voir le bon plan
Radio connectée Pure Elan Connect (DAB/DAB+, radios FM et Internet) à 39,90 €
39,90 € 73 € -45% @Amazon

Amazon fait une promotion sur la radio connectée Pure Elan Connect qui passe à 39,90 € au lieu de 73 €. Cette radio tout-en-un vous permettra d'écouter la radio FM, numérique DAB/DAB+ et plus de 25 000 station de radio Internet du monde entier. Ecran 2.4 pouces pour la configuration et l'accès rapide à 20 stations mémorisables par source. Connectivité bluetooth et WiFi.


Voir le bon plan
Prise connectée Wi-Fi TP-Link Tapo P110 avec suivi de la consommation à 11,90 €
11,90 € 14,90 € -20% @Amazon

Amazon fait une promotion sur la prise connectée Wi-Fi TP-Link Tapo P110 qui passe à 11,90 € alors qu'on la trouve habituellement à partir de 14,90 €.

Cette prise peut être contrôlée à distance en utilisant l'app gratuite Tapo sur votre smartphone (iOS ou Android). Vous pouvez créer des planifications horaires pour allumer ou éteindre automatiquement et quand vous le souhaitez, l'appareil qui y est branché.

Vous pourrez même contrôler la prise via des commandes vocales avec Alexa ou Google Assistant. Cette version offre le suivi de la consommation.  Pratique pour trouver les appareils énergivores.


Voir le bon plan
Lot de 3 câbles INIU USB-A / USB-C (0.5m, 2x2m, charge rapide) à 7,79 €
7,79 € 11,99 € -35% @Amazon

Amazon fait une promotion sur le lot de 3 câbles INIU USB-A vers USB-C (0.5m, 2x2m, charge rapide) à 7,79 € grâce à un coupon à activer sur la page du produit au lieu de 11,99 €. 


Voir le bon plan
Coffret de douilles et embouts Mannesmann (130 pièces) à 22,99 €
22,99 € 57,99 € -60% @Amazon

Amazon fait une promotion sur le coffret de douilles et embouts Mannesmann (130 pièces) qui passe à 22,99 € au lieu de 47,99 €.


Voir le bon plan

Sujets relatifs
Creation d' une boucle macro dans fichier EXCEL pour impression
enregistrer un fichier dans un dossier
Macro pour insertion fichier html dans Mail
Ouvrir avec macro un fichier dans autre classeur
macro pour enregistrer fichier avec nom d1cellule
Remettre Enregistrer sous et Imprimer dans Fichier
Enregistrer sous format .doc dans openoffice
Import fichier XLS par macro dans PPT
excel : macro pour enregistrer un fichier
récupérer data d'avant sauvegarde dans un fichier excel
Plus de sujets relatifs à Enregistrer un fichier au format CSV dans une macro
 > Tous les forums > Forum Bureautique