> 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
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

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