Exporter vers un fichier csv?

Signaler
Messages postés
3
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
14 février 2005
-
Messages postés
10
Date d'inscription
mardi 4 novembre 2003
Statut
Membre
Dernière intervention
26 août 2004
-
Moukdar Mehdi
Salut tt le monde,
voila j'ai un projet adp dans lequel j'aimerais exporter n'importe quelle feuille de données active vers un fichier de type csv (délimiteur ; ou ,).
cela en appuyant sur un bouton ou en choisissant un sous menu.

Merci à tous .
Bonne et heureuse année à tous

4 réponses

Messages postés
3
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
14 février 2005

Moukdar Mehdi
0
Messages postés
262
Date d'inscription
samedi 21 décembre 2002
Statut
Membre
Dernière intervention
19 décembre 2010
11
Voici un exemple utilisant un bouton de commande, avec ";" comme délimiteur :

Private Sub CommandButton1_Click()

Dim sLigne As String
Dim i As Integer, j As Integer

Open "C:\MonFichier.csv" For Output As #1

For i = 1 To ActiveSheet.UsedRange.Rows.Count
For j = 1 To ActiveSheet.UsedRange.Columns.Count
sLigne = sLigne & CStr(ActiveSheet.Cells(i, j).Text) & ";"
Next j
Print #1, sLigne
sLigne = ""
Next i

Close #1

End Sub

Slts

wape
0
Messages postés
262
Date d'inscription
samedi 21 décembre 2002
Statut
Membre
Dernière intervention
19 décembre 2010
11
Désolé, je n'ai pas fait attention qu'il s'agissait d'un projet adp. La réponse donnée s'appliquait à Excel...

Slts et bonne année 2003

wape
0
Messages postés
10
Date d'inscription
mardi 4 novembre 2003
Statut
Membre
Dernière intervention
26 août 2004

tout est une question de vibes
0