Sauvegarder colonne

Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Entraide Applications Microsoft Office Excel Sauvegarder colonne

3 réponses

Jacques $BE$

19/03/2007 à 20:28

Bonjour,

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

Merci de vos réponses

Jacques

3 réponses

Daniel

19/03/2007 à 22:45

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)" a écrit dans le message de news:
%

Bonjour,

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

Merci de vos réponses

Jacques

Jacques

20/03/2007 à 02:37

Bonjour,

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

Jacques

"Daniel" a écrit dans le message de news:
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)" a écrit dans le message de news:
%
Bonjour,

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

?

Merci de vos réponses

Jacques

JB

20/03/2007 à 08:07

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)" wrote:

Bonjour,

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

Merci de vos réponses

Jacques

Sauvegarder colonne

3 réponses

Veuillez sélectionner un problème