> 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
SSD WD Black SN750 SE 1 To (NMVe M.2, PCIe Gen 4, 3600 Mo/s) + Battlefield 2042 à 92,81 € livré
92,81 € 130 € -29% @Amazon Espagne
Micro clé USB 3.1 Sandisk Ultra Fit 256 Go à 27,64 € livrée
27,64 € 42 € -34% @Amazon Allemagne
Caméra de surveillance TP-Link Tapo C200 à 24,99 €
24,99 € 39 € -36% @Amazon
Carte mémoire Samsung 256 Go MicroSDXC Evo Select U3 (130 Mo/s) à 28,99 €
28,99 € 42 € -31% @Amazon
Ecran de contrôle 3.5 pouces IPS USB-C (température, CPU, RAM, réseau, date/heure) à 18,99 €
18,99 € 30 € -37% @Geekbuying
Chaussures Adidas Vs Pace homme à 32,99 €
32,99 € 49,95 € -34% @Amazon
Switch HDMI Sunright 4K, 2 entrées vers 1 sortie ou 1 entrée vers 2 sorties à 5,67 €
5,67 € 12,99 € -56% @Amazon
Jusqu'à -22% de réduction sur une sélection de produits Bosch Professional
-22% @Amazon
Ordinateur portable Lenovo 15.6 pouces (FHD, Core i3, 8 Go RAM, SSD 256 Go) à 399 €
399,00 € 500 € -20% @Amazon
Perforateur Bosch Professional GBH 2-21 SDS+ à 88,87 €
88,87 € 109,99 € -19% @Amazon

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