Sauvegarder colonne

Le
Jacques \(BE\)
Bonjour,

Comment sauvegarder par exemple les cellules B1 à B40 dans un fichier csv ?


Merci de vos réponses

Jacques
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel
Le #4323311
Bonsoir.
Le plus simple est de les copier sur une feuille d'un nouveau classeur et de
sauvegarder celui-ci au format csv.
Cordialement.
Daniel
"Jacques (BE)" %
Bonjour,

Comment sauvegarder par exemple les cellules B1 à B40 dans un fichier csv
?


Merci de vos réponses

Jacques




Jacques
Le #4323191
Bonjour,

J'ai oublier de préciser ... par code VBA !!

Jacques



"Daniel" OsCAh$
Bonsoir.
Le plus simple est de les copier sur une feuille d'un nouveau classeur et
de

sauvegarder celui-ci au format csv.
Cordialement.
Daniel
"Jacques (BE)" %
Bonjour,

Comment sauvegarder par exemple les cellules B1 à B40 dans un fichier
csv


?


Merci de vos réponses

Jacques








JB
Le #4323101
Bonjour,

Dans le fichier généré, on obtient une ligne pour chaque cellule:

Sub ExportCsvColonne()
Open "x.csv" For Output As #1
For Each c In [B1:B40]
Print #1, c
Next c
Close #1
End Sub

Dans le fichier généré, on obtient une ligne. Les cellules sont
séparées par ;
(xx1;xx2;xx3;...)

Sub ExportCsvLigne()
Open "x.csv" For Output As #1
For Each c In [B1:B40]
Print #1, c; ";";
Next c
Close #1
End Sub

Si les cellules B1:B40 contiennent le séparateur ;

Sub ExportCsvLigne2()
ChDir ThisWorkbook.Path
Open "x.csv" For Output As #1
For Each c In [D1:D40]
Print #1, Chr(34); c; Chr(34); ";";
Next c
Close #1
End Sub

JB



On 19 mar, 20:28, "Jacques (BE)"
Bonjour,

Comment sauvegarder par exemple les cellules B1 à B40 dans un fichier c sv ?

Merci de vos réponses

Jacques


Publicité
Poster une réponse
Anonyme