excel to csv

Version imprimable

22/11/2005, 12h25
redzero

excel to csv

Bonjour,
je cherche une macro ou un prog pour implementer un fichier type csv via des tableaux excel càd prendre des valeurs des tableaux et les integrer au fichier csv
merci par avance
22/11/2005, 12h36
Thomas Lebrun

Quelle rapport avec .NET :?:

A mon avis aucun, alors je déplace :)
22/11/2005, 12h43
Megaxel

En tout cas, sur le forum Visual Basic, ça a été donné tellement de fois que j'ai arrêté de compter... :D
Fais une petite recherche, et tu trouveras ce que tu cherches.
22/11/2005, 13h12
Theocourant

Salut,

La réponse se trouve sur le forum alors ya plus qu'à faire une recherche avancée.

Voilà l'adresse http://www.developpez.net/forums/search.php

Bonne continuation

Théo

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub CréerFichierInserTxt()
Dim i, j, DernièreLigne, DernièreColonne
    Application.ScreenUpdating = False
    ActiveSheet.Range("A1").Select
    Selection.CurrentRegion.Select
    Set tbl = ActiveCell.CurrentRegion
    DernièreLigne = tbl.Rows.Count
    DernièreColonne = tbl.Columns.Count
    Cells(1, 1).Select
    Open "p:\InserComplété.txt" For Output As #1
    For i = 1 To DernièreLigne
        For j = 1 To DernièreColonne - 1
            Print #1, Cells(i, j).Formula + ";";
        Next j
        Print #1, Cells(i, j + 1).Formula
    Next i
    Close #1
End Sub

Tu adaptes à tes besoins

Citation:

Print #1, Cells(i, j).Formula + ";";

place un ; comme séparateur et

Citation:

Print #1, Cells(i, j + 1).Formula

provoque un saut de ligne en fin de ligne Excel

A+

Bonjour,
J'ai un peu modifié ton code ouskel'n'or

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub CréerFichiercsv()
Dim i, j, DernièreDansLigne, DernièreDansColonne
Dim tbl
    Application.ScreenUpdating = False
    ActiveSheet.Range("A1").Select
    Selection.CurrentRegion.Select
    Set tbl = ActiveCell.CurrentRegion
    DernièreDansLigne = tbl.Rows.Count
    DernièreDansColonne = tbl.Columns.Count
    Cells(1, 1).Select
    Open "C:\MonFichier.csv" For Output As #1
        For i = 1 To DernièreDansLigne
            For j = 1 To DernièreDansColonne
              Print #1, Cells(i, j).Formula & ",";
        Next j
    Print #1, Cells(i, j + 1).Formula
Next i
Close #1
   Application.ScreenUpdating = True
End Sub

jpleroisse

24/11/2005, 09h58
ouskel'n'or
Hello, leroissejp

Tu as tous les droits... :lol:

Mais si j'avais à modifier mon code aujourd'hui, j'utiliserais une autre syntaxe pour déterminer la dernière colonne ou la dernière ligne... parce que s'il y a des colonnes ou des lignes vides dans la feuille Excel, avec ce code, on est marron.
Code:

1 2 DernièreLigne = Range("A65535").End(xlUp).Row DernièreColonne = Cells(1, 1).SpecialCells(xlCellTypeBlanks).Column - 1
à la place de

Citation:

ActiveSheet.Range("A1").Select
Selection.CurrentRegion.Select
Set tbl = ActiveCell.CurrentRegion
DernièreDansLigne = tbl.Rows.Count
DernièreDansColonne = tbl.Columns.Count

Pas toi ?

A+
24/11/2005, 22h20
leroissejp

Bonsoir,
D'accord avec toi ouskel'n'or.

jpleroisse
28/11/2005, 11h08
ouskel'n'or

Salut leroissejp,

Tu as vu une réponse de redzorro, toi ? :cry:
Qu'est-ce qu'on fait ? On lui envoie un mp pour lui dire qu'on a répondu ? :wink:
28/11/2005, 11h40
Theocourant

Citation:

Envoyé par ouskel'n'or

Salut leroissejp,

Tu as vu une réponse de redzorro, toi ? :cry:
Qu'est-ce qu'on fait ? On lui envoie un mp pour lui dire qu'on a répondu ? :wink:

Salut,

Je ne pense pas qu'il répondra ...

Il a du trouver une solution et il ne le dit pas comme d'hab (cf ton sondage ouskel'n'or)

+

Théo
28/11/2005, 12h48
ouskel'n'or

Non, parce que s'il a fait ce que j'ai mis, il y a une erreur... là :

Citation:

DernièreColonne = Cells(1, 1).SpecialCells(xlCellTypeBlanks).Column - 1

:wink:
28/11/2005, 13h05
Megaxel

Tu "pièges" ton code, maintenant, Ousk ?
:D
28/11/2005, 14h13
ouskel'n'or

Non, en fait il n'y a pas d'erreur dans la rédaction du code lui-même, mais comme ça, et quand on sait ce qu'on veut, ça donne pas ce qu'on veut... :cry:
Mais rassure-toi, j'ai corrigé mon code. :wink:

Ça t'intéresse ? 8O

A+
28/11/2005, 14h18
Megaxel

Allez, poste toujours.
Ça ne fait jamais de mal de voir un bout de code bien écrit. :D
Et comme ça, si Redzero réussit à se rappeler l'adresse du forum sur lequel il a posé la question, et qu'il revient jeter un coup d'oeil à la solution, il sera content... :evil:
28/11/2005, 14h34
ouskel'n'or

Il faut d'abord que je précise l'objet de ma réflexion... :koi:
J'ai supposé une feuille de calcul pouvant posséder des colonnes vides. Malheureusement, ça existe aussi...
Donc au lieu de mettre

Citation:

DernièreColonne = Cells(1, 1).SpecialCells(xlCellTypeBlanks).Column - 1

Tu dois sélectionner toutes les cellules

Code:

Cells.Select

et ce n'est qu'ensuite que tu peux écrire :

Code:

DernièreColonne = Selection.SpecialCells(xlCellTypeLastCell).Column

Si tu ne sélectionnes pas, ça marche pas
Mais tu devrais aussi pouvoir mettre

Code:

DernièreColonne = Range(Cells(1, 1), Cells(65535, 256)).SpecialCells(xlCellTypeLastCell).Column

... enfin, je pense... :wink:

Maintenant, pour la dernière ligne, c'est pareil ! Il y a une erreur là :

Citation:

DernièreLigne = Range("A65535").End(xlUp).Row

:roll:

Ça t'intéresse aussi ?
28/11/2005, 15h14
Megaxel

Ouiiiiiiiiiiiiii !
:D

Ah ! Je me disais bien...

Là, je n'ai rien trouvé qui puisse me donner la dernière ligne si un ligne plus une colonne, ou plusieurs lignes et/ou plusieurs colonnes étaient vides... :cry:
Alors j'ai réfléchi et me suis dit : Il existe peut-être une solution mais... je ne la connais pas !
Donc, à la place de

Citation:

DernièreLigne = Range("A65535").End(xlUp).Row

qui ne marche pas, j'ai fait ça :
Code:

1 2 3 4 5 6 7 8 9 10 Marge = 10 For i = 1 To 256 For j = 1 To 65535 If Range(Cells(j, i), Cells(65535, i)).End(xlUp).Row > DernièreLigne Then DernièreLigne = Range(Cells(j, i), Cells(65535, i)).End(xlUp).Row End If If j > DernièreLigne + Marge Then Exit For Next j Next i
Au delà de 10 lignes successives également vides, ça marche plus. Il faut changer "Marge"
Et là ça marche. seulement là, faut pas oublier de déclarer Marge ! :wink:

Si tu as une autre solution, je suis preneur. Et puis comme ça, redzero aura une meilleure réponse aux questions qu'on se pose... :lol:

28/11/2005, 16h39
Mystro
Salut salut,

Moi, pour obtenir la dernière ligne et la dernière colonne d'un fichier excel, qui peut contenir de lignes et de colonnes vides, je fait :
Code:

1 2 derniere_ligne = ActiveCell.SpecialCells(xlLastCell).Row derniere_colonne = ActiveCell.SpecialCells(xlLastCell).Column
Si ça vous interesse, j'ai un petit programme qui transforme un fichier xls en csv en prenant en paramètre les chemin des fichiers xls et csv...
28/11/2005, 16h42
Megaxel
Bizarrement, le
Code:

1 2 SpecialCells(xlLastCell)
ne "marche" pas toujours. Une fois sur deux, il m'indique une cellule vide. Bon, c'est toujours un majorant, ce qui suffit en général, mais j'avoue que je n'ai jamais trop su pourquoi il faisait ça, et en général, je ne m'en sers pas.
28/11/2005, 17h05
ouskel'n'or

Non, désolé...

Citation:

derniere_ligne = ActiveCell.SpecialCells(xlLastCell).Row

ne marche pas si la colonne sélectionnée n'est pas celle où le nombre de lignes renseignées est le plus élevé
et

Citation:

derniere_colonne = ActiveCell.SpecialCells(xlLastCell).Column

Ne marche pas si la ligne sélectionnée n'est pas celle possédant le plus grand nombre de colonnes renseignées

Mon hypothèse de départ était que dans la plage de données il y avait des colonnes ou des lignes complètement VIDES
Faut lire ! :evil:

Pour les colonnes, c'est réglé
Restent les lignes

Mais attendons Bbill ou AlainTech ou Théo ou jp ou... tout autre érudit en la matière... :wink:

A+
28/11/2005, 17h07
ouskel'n'or

PS - Faut trouver une réponse avant que redzero nous tombe dessus :cry:
28/11/2005, 17h33
Mystro

J'ai lu ton hypothèse et j'ai même tester sur un fichier qui resemble à de l'emmental (plus de trous que de données ;) ) et ça marche chez moi...je suis sous vb 6 pour faire ces tests et je n'ai pas tester sous vba...

Après, je peux te donner mes source et mon fichier excel si tu veux pour vérifier...
28/11/2005, 17h42
ouskel'n'or

Oui mais voilà, sous VBA 97, ça marche pas.
Je précise que ta réponse était "l'une" de celles que j'avais donnée et qu'à ma grande déconvenue, j'ai essayé sur un fichier à trous et patatrac ! ça marchait pas.

Mais merci pour tout l'intérêt que tu portes aux soucis que je me fais pour rednull... :wink:

A+