Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Création fichier CSV

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Z

ZZ59264

XLDnaute Occasionnel
Bonjour au forum,

Je joins un fichier à ma demande de création d'un fichier CSV à partir d'un tableau,

Merci d'avance pour votre aide,

Cordialement,
 

Pièces jointes

Solution
Cette macro est la plus rapide :
VB: 
Sub ExportCSV()
    Dim t, chemin$, NomFichier$
    t = Timer
    'chemin = "P:\AP\5 B\5 CSV IMPORT\" ' Ne pas oublier "\" à la fin
    chemin = ThisWorkbook.Path & "\"
    NomFichier = "Export_" & Sheets("EN TETE").[AK2] & Format(Date, "_yyyy_mm_dd")
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    With Sheets("CSV").ListObjects(1).DataBodyRange
        Workbooks.Add 'nouveau document
        [A1].Resize(.Rows.Count, .Columns.Count) = .Value 'copie les valeurs
    End With
    With ActiveWorkbook
        .SaveAs Filename:=chemin & NomFichier, FileFormat:=xlCSV, local:=True
        .Close savechanges:=False
    End With
    MsgBox Timer - t
End Sub
Toujours sur 900 000...
Trier par date Trier par votes
Bonjour à tous
Avec ce code, sur ma machine sous XL 2007 et pour 900 000 lignes j'arrive à 7 secondes.
Si job75 veux bien nous donner le chrono sur sa machine...
VB: 
Sub export()
Dim Tbl As Variant, TblTemp As Variant
Dim FileNumber&, i&, j&
Dim chemin$
Dim T!
T = Timer
FileNumber = FreeFile
chemin = CreateObject("WScript.Shell").specialFolders("Desktop") & "\"
'chemin = "P:\AP\5 B\5 CSV IMPORT\"
chemin = chemin & "Export_" & Sheets("EN TETE").Cells(2, 37) & Format(Date, "_YYYY_MM_DD") & ".csv"
Tbl = ListObjects("CSV").DataBodyRange

Open chemin For Output As #FileNumber
For i = LBound(Tbl, 1) To UBound(Tbl, 1)
    ReDim TblTemp(LBound(Tbl, 2) To UBound(Tbl, 2))
    For j = LBound(Tbl, 2) To UBound(Tbl, 2)
        TblTemp(j) = Tbl(i, j)
    Next j
    Print #FileNumber, Join(TblTemp, ";")
Next i
Close #FileNumber
MsgBox Timer - T
End Sub
Cordialement
 
Vote positif 0 Vote négatif
Bonjour le Fil
Efgé
Pourquoi redimensionner le tableau x fois dans la Boucle ?
VB: 
For i = LBound(Tbl, 1) To UBound(Tbl, 1)
    ReDim TblTemp(LBound(Tbl, 2) To UBound(Tbl, 2))'Ici'
et pas une fois avant !
Code: 
ReDim TblTemp(LBound(Tbl, 2) To UBound(Tbl, 2))'Ici'
For i = LBound(Tbl, 1) To UBound(Tbl, 1)

je n'ai peut être pas compris Lol
jean marie
 
Vote positif 0 Vote négatif
Re
Bonjour @ChTi160
Pour écraser les valeurs déjà présentes.
Mais tu as raison, j'aurais dû faire sans.
D'ailleurs on descend à 6 secondes.
VB: 
Sub export()
Dim Tbl As Variant, TblTemp As Variant
Dim FileNumber&, i&, j&
Dim chemin$
Dim T!

T = Timer
FileNumber = FreeFile
chemin = CreateObject("WScript.Shell").specialFolders("Desktop") & "\"
'chemin = "P:\AP\5 B\5 CSV IMPORT\"
chemin = chemin & "Export_" & Sheets("EN TETE").Cells(2, 37) & Format(Date, "_YYYY_MM_DD") & ".csv"
Tbl = ListObjects("CSV").DataBodyRange
ReDim TblTemp(LBound(Tbl, 2) To UBound(Tbl, 2))

Open chemin For Output As #FileNumber
For i = LBound(Tbl, 1) To UBound(Tbl, 1)
    For j = LBound(Tbl, 2) To UBound(Tbl, 2)
        TblTemp(j) = Tbl(i, j)
    Next j
    Print #FileNumber, Join(TblTemp, ";")
Next i
Close #FileNumber
MsgBox Timer - T
End Sub
Cordialement
 
Vote positif 0 Vote négatif
Bonjour à tous
pour commencer pensez que tout le monde n'a pas la même version d'excel
chez moi par exemple excel 2013
dans un module standard :cette ligne plante
VB: 
Tbl = ListObjects("CSV").DataBodyRange


pour la simple et bonne raison
que chaque feuille a sa propre collection listobjects
VB: 
Tbl = sheets("taratata").ListObjects("CSV").DataBodyRange

par contre si vous utilisez le range il n'y a pas de soucis (je l'avais déjà dis me semble t il 😉)
car un range("CSV") il ne peut y en avoir qu'un seul
avec range ou que l'on soit dans les modules la plage est bien ciblée
VB: 
Sub export()
Dim Tbl As Variant, TblTemp As Variant, FileNumber&, i&, j&, chemin$, T#

T = Timer
FileNumber = FreeFile
chemin = CreateObject("WScript.Shell").specialFolders("Desktop") & "\"
'chemin = "P:\AP\5 B\5 CSV IMPORT\"
chemin = chemin & "Export_" & Sheets("EN TETE").Cells(2, 37) & Format(Date, "_YYYY_MM_DD") & ".csv"
Tbl = Range("CSV").Value
ReDim TblTemp(LBound(Tbl, 2) To UBound(Tbl, 2))

Open chemin For Output As #FileNumber
For i = LBound(Tbl, 1) To UBound(Tbl, 1)
    For j = LBound(Tbl, 2) To UBound(Tbl, 2)
        TblTemp(j) = Tbl(i, j)
    Next j
    Print #FileNumber, Join(TblTemp, ";")
Next i
Close #FileNumber
MsgBox Timer - T & vbCrLf & "sur  " & i & " lignes et " & j & " colonnes"
End Sub

donc pour 10000 lignes sur 10 colonnes ça donne environ 0,200 millisecondes pour @Efgé
 
Vote positif 0 Vote négatif
re
et oui tandis qu'avec range("CSV") tu passera partout 😉
et ça te donne la même chose que le databodyrange
la( lecture /écriture )dans un listobject est parfois plus facile par le membre range, parfois par la collection listobjects
perso je suis du genre a me simplifier les choses
une lecture globale sera plus simple avec le membre range
finalement la collection listobjects n'est utile que quand on veux travailler dans le détail (ligne, colonne ajouter,supprimer,etc....) car c'est plus facile de terminer les cibles
et meme que l'on peut passer d'un membre à l'autre selon le besoins

exemple
je veux l'object listobjects("CSV") je ne passe pas par la collection listobjects
je passe là encore par le range avec cette fois ci la propriété "listobject"(sans le "s")
VB: 
set monlistobject=range("CSV").listobject'passe partout
avec ça je peux utiliser les fonctions pour le listobject sans être passé par la collection listobjects d'une feuille 😉 puisque mon object est un listobject et non un Range
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

O
  • Question Question
XL 2021 Conversion d'un CSV
Réponses
5
Affichages
155
dysorthographie
C
  • Question Question
XL 2021 Retrouver l'assistant importation de texte quand on fait une extraction à partir d'un .CSV ?
Réponses
6
Affichages
188
cindynico38
C
B
  • Question Question
Microsoft 365 fonction Min et Max
Réponses
5
Affichages
155
Jacky67
J
  • Question Question
XL 2019 cherche Historique resultat lotofoot 12 en fichier excel
Réponses
1
Affichages
335
djidji59430
B
  • Question Question
Microsoft 365 Macro pour création fichier csv
Réponses
8
Affichages
468
job75
J
  • Question Question
XL 2021 Excel CSV vers XSL et ne pas écraser les données
Réponses
9
Affichages
274
sylvanu
L
  • Question Question
XL 2013 fichier txt
Réponses
7
Affichages
420
job75
Z
  • Résolu(e)
XL 2016 VBA EXPORT CSV
Réponses
7
Affichages
392
ZZ59264
Z
D
  • Question Question
Microsoft 365 TCD et format date
Réponses
7
Affichages
180
Cousinhub
  • Résolu(e)
XL 2021 VBA - Syntaxe de FileFilter en Dialog GetSaveAsFilename
2
Réponses
28
Affichages
563
Dudu2
C
  • Question Question
Microsoft 365 Automatiser un graphique avec excell 365
Réponses
11
Affichages
247
job75
  • Résolu(e)
Microsoft 365 Traiter un fichier CSV qui est ouvert
2
Réponses
16
Affichages
368
gsx-air
  • Question Question
Microsoft 365 CSV en EXCEL
Réponses
1
Affichages
97
Staple1600
M
  • Question Question
Microsoft 365 Macro pour changer le format de nombre à l'ouverture d'un CSV
Réponses
4
Affichages
145
oguruma
D
  • Résolu(e)
Microsoft 365 Problème interférences entre macros
Réponses
14
Affichages
252
Phil69970
A
  • Question Question
Autres Protégé un fichier csv par mot de passe
2
Réponses
16
Affichages
775
job75
A
  • Question Question
XL 2021 extraire des informations de plusieurs fichiers
Réponses
4
Affichages
238
job75
S
  • Question Question
Microsoft 365 Calculer le Turn over d'un effectif
Réponses
13
Affichages
372
VIARD
V
  • Question Question
XL 2013 Récupération dernière valeurs
Réponses
9
Affichages
346
JHA
J
J
  • Résolu(e)
XL 2013 Tri de données depuis un CSV
Réponses
5
Affichages
262
dysorthographie
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…