vba stockage de résultats dans un fichier csv

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : vba stockage de résultats dans un fichier csv

iscia

Bonjour,
J'ai fais un programme sous vba qui fonctionne, mais dans certains cas je dépasse le nombre de lignes d'excel (65000), on m'a dit qu'au lieu de récupérer mes résultats sur une feuille dans excel ( comme c'est le cas pour l'instant) je n'avais qu'à récupérer mes résultats dans un fichier texte ou dans un csv, mais je n'arrive pas à le faire..
(sachez que pour l'instant les résultats sont stockés dans une feuille excel "résultats" et que je comptais lorsque celle ci était pleine, copier/coller les résultats dans un fichier csv, et ensuite vider la feuille excel, par la suite p-e que je stockerais directement les résultats dans le fichier csv mais pour l'instant je n'arrive même pas à envoyer quoi que ce soit dans ce fichier..)
Une amie qui n'est plus là pour m'aider, m'a donné un exemple :
Code :

Code :

Dim oFSO
Dim strChemin As String
Dim strCheminComp As String
Set oFSO = CreateObject("Scripting.FileSystemObject" )
strChemin = ThisWorkbook.Path
strCheminComp = ThisWorkbook.FullName
dossier = oFSO.GetBaseName(strChemin)
Fichier = oFSO.GetBaseName(strCheminComp)
Dim stgOut1 As String
Dim stgOut2 As String
fich1 = "F:\outilswgsr"
Fich = fich1 & "\" & "resultats" & ".csv"
Open Fich For Output As #1
Do While Workbooks("" & Fichier & ".xls" ).Sheets("résultats" ).Cells(2, j).Value <> ""
stgOut1 = Sheets("résultats" ).Cells(2, j)
Do While Sheets("résultats" ).Cells(k, j) <> ""
stgOut1 = stgOut1 & ";" & Sheets("résultats" ).Cells(k, j)
k = k + 1
Loop
Print #1, (Trim(stgOut1))
j = j + 1
Loop
Close 1

cependant à la ligne "Do While" ça ne fonctionne plus et m'affiche le message d'erreur suivant : Erreur d'éxécution '1004' erreur définie par l'application ou par l'object..

il faut savoir que le fichier "résultats.csv" est bien créé, mais il est toujours vide.
Pouvez vous m'aider?
merci d'avance

Publicité

kiki29

Salut, un autre exemple ,il y en a des tonnes, à adapter sans doute

Option Explicit

Sub ExportCSV()
Dim Ws As Worksheet
Dim iRow As Long, iCol As Long
Dim i As Long, j As Long
Dim Rng As Range
Dim sStr As String, sPath As String
Dim NumFichier As Integer
Const Separateur As String = ";"

Set Ws = ActiveSheet

sPath = ThisWorkbook.Path & "\" & Ws.Name & ".csv"

iCol = Ws.UsedRange.Columns.Count
iRow = Ws.UsedRange.Rows.Count

For i = 1 To iRow
For j = 1 To iCol
Set Rng = Ws.Cells(i, j)
If Rng.NumberFormat = "@" Then
sStr = sStr & Separateur & Rng.Value & _
Separateur & IIf(j < iCol, Separateur, "" )
Else
sStr = sStr & IIf(Rng.NumberFormat <> _
"General", Format(Rng.Value, Rng.NumberFormat), _
Rng.Value) & IIf(j < iCol, Separateur, "" )
End If
Next j
sStr = sStr & IIf(i < iRow, vbCrLf, "" )
Next i

Close
NumFichier = FreeFile
If Len(sStr) > 0 Then
Open sPath For Output As #NumFichier
Print #NumFichier, sStr
Close #NumFichier
Else
MsgBox "Pas de données dans feuille active"
End If

Set Rng = Nothing
Set Ws = Nothing

End Sub

Pour info voir aussi http://www.excel-downloads.com/for [...] en-vb.html

Message édité par kiki29 le 20-06-2010 à 16:17:13

SuppotDeSaTante

Aka dje69r

Hello

@kiki29 : en quoi ca resoud le souci du nb de ligne > 65536 ?

Ton fichier source est de quel type ? Tu travailles sur Excel par souci de commodité ?
Sinon pour exporter en CSV il y a quand meme plus simple que d'ecrire dans un fichier texte ! Excel sait enregistrer en CSV tout seul comme un grand...

---------------
Soyez malin, louez entre voisins !

FORUM HardWare.fr

Programmation

VB/VBA/VBS

vba stockage de résultats dans un fichier csv

Sujets relatifs
[DIVERS] Auto execution d'un programme à l'ouverture d'un fichier zip	Probleme sur la copie de fichier
[shell] récupération infos dans .txt et écriture dans un autre fichier	[AC-2007]Affichage de tous les résultats d'une requête dans un seul ch
envoi de fichier par FTP	[perl] Traitement de fichier .csv
[RESOLU] [SHELL] extraction et reformattage des données d'un fichier	[Resolu] Ouvrir un fichier ".csv" par macro proprement
Enregistrement d'un fichier texte dans une procédure récursive
Plus de sujets relatifs à : vba stockage de résultats dans un fichier csv

Page générée en 0.046 secondes