Enregistrer en CSV (separateur point virgule

Excel
1

Bonjour,
Par cette macro je sauvegarde une zone de données (Xport_Notes) d’un classeur dans un autre en format .csv (séparateur point virgule)

Application.Goto Reference:="Xport_notes"
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:="C:\Test\IP.csv", FileFormat:= _
    xlCSV, CreateBackup:=False
ActiveWindow.Close

End Sub

Les données sont dans une seule colonne sous cette forme :
1, 60, 20, 20, 20
2, 37, 12, 13, 12
3, 40, 15, 12, 13
4, 44, 17, 15, 12
5, 41, 16, 13, 12
6, 37, 13, 12, 12
7, 36, 12, 9, 15
8, 35, 14, 10, 11

et se retrouvent dans le fichier cible en colonne A sous la forme
« 1, 60, 20, 20, 20 »
« 2, 37, 12, 13, 12 »
« 3, 40, 15, 12, 13 »
« 4, 44, 17, 15, 12 »
« 5, 41, 16, 13, 12 »
« 6, 37, 13, 12, 12 »
« 7, 36, 12, 9, 15 »
« 8, 35, 14, 10, 11 »

Chaque ligne est entre guillemets. Comment faire pour ne pas avoir ces guillemets ( " ) au début et en fin de ligne de données ?

Merci d’avance pour votre aide.
Patrick

2

Bonjour
J’ai repris ton code dans le fichier ci-joint dans lequel j’ai intégré les données à recopier en colonne A
J’ai modifié cette ligne de code :

Selection.Copy

Par

Range(« A1:A » & Range(« A » & Rows.Count).End(xlUp).Row).Copy

pour cibler de manière dynamique celles-ci

J’ai mis en début de code le chemin d’enregistrement ainsi que son nom :

chemin = ThisWorkbook.Path & «  »
nomenregistrement = « IP.csv »

j’ai adapté avec cette ligne de code :

ActiveWorkbook.SaveAs Filename:=chemin & nomenregistrement, FileFormat:= _
xlCSV, CreateBackup:=False

Et tout roule dans le fichier CSV créé aucun guillemet intempestif

Testes en cliquant sur le bouton « CSV »

Classeur1.xlsm (21,4 Ko)

3

Bonsoir FFO,
Je vous remercie pour votre aide.
J’ai modifié mon code suivant vos instructions, mais j’obtiens le même résultat, les côtes sont toujours là en début et fin de ligne. Cela peut-il venir de mon environnement système ( windows 10 et Excel 2019 ) ?

4

OK, j’ai trouvé, en fait il faut rajouter le paramêtre Local:=True dans la ligne de code :

ActiveWorkbook.SaveAs Filename:=chemin & nomenregistrement, FileFormat:= _
xlCSV, CreateBackup:=False , Local:=True

Probléme réglé, Merci FFO !

5

Bonjour
Ravi que tu ais résolu ton anomalie
Je n ai pas beaucoup participé à sa solution mais l essentiel ait que tu ais satisfaction
Au plaisir de te retrouver sur le forum

6

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.