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
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
A voir également:
- Exporter vers un fichier csv?
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Fichier json - Conseils pratiques -Javascript
- Convertisseur jpg vers png ✓ - Forum Java
- Vba ouvrir un fichier csv ✓ - Forum Visual Basic 6
- Export csv php ✓ - Forum PHP
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
31 déc. 2002 à 11:00
Moukdar Mehdi
cs_wape
Messages postés
262
Date d'inscription
samedi 21 décembre 2002
Statut
Membre
Dernière intervention
19 décembre 2010
12
31 déc. 2002 à 12:31
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
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
cs_wape
Messages postés
262
Date d'inscription
samedi 21 décembre 2002
Statut
Membre
Dernière intervention
19 décembre 2010
12
31 déc. 2002 à 18:40
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
Slts et bonne année 2003
wape
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
4 août 2004 à 14:40
tout est une question de vibes