Exporter vers un fichier csv?

tamega Messages postés 3 Date d'inscription vendredi 20 avril 2001 Statut Membre Dernière intervention 14 février 2005 - 31 déc. 2002 à 10:58
cs_Djfresh Messages postés 10 Date d'inscription mardi 4 novembre 2003 Statut Membre Dernière intervention 26 août 2004 - 4 août 2004 à 14:40
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

tamega Messages postés 3 Date d'inscription vendredi 20 avril 2001 Statut Membre Dernière intervention 14 février 2005
31 déc. 2002 à 11:00
Moukdar Mehdi
0
cs_wape Messages postés 262 Date d'inscription samedi 21 décembre 2002 Statut Membre Dernière intervention 19 décembre 2010 11
31 déc. 2002 à 12:31
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
cs_wape Messages postés 262 Date d'inscription samedi 21 décembre 2002 Statut Membre Dernière intervention 19 décembre 2010 11
31 déc. 2002 à 18:40
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
cs_Djfresh Messages postés 10 Date d'inscription mardi 4 novembre 2003 Statut Membre Dernière intervention 26 août 2004
4 août 2004 à 14:40
tout est une question de vibes
0
Rejoignez-nous