XL 2016 Création fichier CSV

ZZ59264 · 19 Décembre 2021

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,

job75 · 20 Décembre 2021

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...

patricktoulon · 19 Décembre 2021

re

@cp4 oui tu a raison je n'ai pas déclaré une variable j'ai écris ça en 2sec de mémoire

@Efgé c'est bien pour ça que j'ai dis le chemin a adapter a votre cas

@ZZ59264
j'explique
quand on copie quelque chose que ce soit en VBA ou autre ,ce qui est copié va dans le clibboard
il y a plusieurs moyen de récupérer ce qu'il y a dans le clipboard sans devoir le coller ailleurs
je viens d'en donner un exemple
ici pour accéder au clipboard j'utilise le dataobject en late binding(déclaration tardive) avec le clisd(le numerode 3 kilometre)
avec sa fonction getfromclipboard et et sa property gettext(1) je récupère dans la variable texte le tableau entier sous forme de texte
les valeurs dans le texte sont alors séparées par un caractère TAB que je remplace par le ";"
et voilà j'ai mon code CSV prêt a être écrit dans un fichier
la méthode open for output fait très bien cela
je relâche enfin les cellules copié avec application.cutcopymode=false
terminé
voilà comment je copie une plage précise en csv ou en html ou en xml ou en mime etc...etc....
simplement en remplaçant les vbtab par les caractères de structure

Efgé · 19 Décembre 2021

Re
Pour conserver la ligne d'en-tête (malgrès que la demande initiale demandais à l'exclure) utiliser :

VB:

Tbl = Sheets("csv").Range("CSV[#all]")

Cordialement

cp4 · 19 Décembre 2021

patricktoulon à dit:
re

@cp4 oui tu a raison je n'ai pas déclaré une variable j'ai écris ça en 2sec de mémoire

@Efgé c'est bien pour ça que j'ai dis le chemin a adapter a votre cas

@ZZ59264
j'explique
quand on copie quelque chose que ce soit en VBA ou autre ,ce qui est copié va dans le clibboard
il y a plusieurs moyen de récupérer ce qu'il y a dans le clipboard sans devoir le coller ailleurs
je viens d'en donner un exemple
ici pour accéder au clipboard j'utilise le dataobject en late binding(déclaration tardive) avec le clisd(le numerode 3 kilometre)
avec sa fonction getfromclipboard et et sa property gettext(1) je récupère dans la variable texte le tableau entier sous forme de texte
les valeurs dans le texte sont alors séparées par un caractère TAB que je remplace par le ";"
et voilà j'ai mon code CSV prêt a être écrit dans un fichier
la méthode open for output fait très bien cela
je relâche enfin les cellules copié avec application.cutcopymode=false
terminé
voilà comment je copie une plage précise en csv ou en html ou en xml ou en mime etc...etc....
simplement en remplaçant les vbtab par les caractères de structure

Merci pour ton partage et tes explications. Est-ce que ce code ne risque pas de planter dans différentes versions de windows et office?

ZZ59264 · 19 Décembre 2021

Efgé à dit:
Re
Pour conserver la ligne d'en-tête (malgrès que la demande initiale demandais à l'exclure) utiliser :

VB:

Tbl = Sheets("csv").Range("CSV[#all]")

Cordialement

Ah non non, je demandais de l'exclure !!!

Le code que tu as proposé fonctionne parfaitement !!

patricktoulon · 19 Décembre 2021

@Efgé
Tbl = ~~Sheets("csv").~~Range("CSV[#all]")
tu n'a pas besoins de citer le parent (feuille) ou que tu soit dans le classeur
un name"csv" il ne peut y en avoir qu'un

patricktoulon · 19 Décembre 2021

@cp4
non justement en late binding la création de l'objet se fait avec la version de la librairie dispo dans le system
c'est tout l'avantage du late binding

cp4 · 19 Décembre 2021

patricktoulon à dit:
@cp4
non justement en late binding la création de l'objet se fait avec la version de la librairie dispo dans le system
c'est tout l'avantage du late binding

Ok; Merci.

ZZ59264 · 19 Décembre 2021

patricktoulon à dit:
re

@cp4 oui tu a raison je n'ai pas déclaré une variable j'ai écris ça en 2sec de mémoire

@Efgé c'est bien pour ça que j'ai dis le chemin a adapter a votre cas

@ZZ59264
j'explique
quand on copie quelque chose que ce soit en VBA ou autre ,ce qui est copié va dans le clibboard
il y a plusieurs moyen de récupérer ce qu'il y a dans le clipboard sans devoir le coller ailleurs
je viens d'en donner un exemple
ici pour accéder au clipboard j'utilise le dataobject en late binding(déclaration tardive) avec le clisd(le numerode 3 kilometre)
avec sa fonction getfromclipboard et et sa property gettext(1) je récupère dans la variable texte le tableau entier sous forme de texte
les valeurs dans le texte sont alors séparées par un caractère TAB que je remplace par le ";"
et voilà j'ai mon code CSV prêt a être écrit dans un fichier
la méthode open for output fait très bien cela
je relâche enfin les cellules copié avec application.cutcopymode=false
terminé
voilà comment je copie une plage précise en csv ou en html ou en xml ou en mime etc...etc....
simplement en remplaçant les vbtab par les caractères de structure

Comment adapter le chemin pour que je puisse tester ?

chemin = Environ("userprofile") & "\DeskTop\" & Sheets("EN TETE").[AK2] & Format(Date, "_yyyy-mm-dd") & ".csv"

Userprofile est a changer?

Petite précision car dans votre explication, vous dites que vous récupérer le tableau en entier, or je ne veux que le tableau à partir de la deuxieme ligne (sans les en tête),

Ne pouvant tester votre solution à cause du chemin, je ne sais pas si cela donne le résultat escompté,

Merci pour vos explications, je vais devoir lire plusieurs fois quand même et je vais bien essayer de comprendre chaque étape,

patricktoulon · 19 Décembre 2021

tiens ça date un peu mais bon c'est encore valide
on y vois une autre méthode aussi

[Toutes versions] Range to CSV en passant par la récupération de la copie de la plage dans le presse papier(clipboard) - Contribuez

il y a quelques temps dysorthographie proposait de récupérer la copie au format texte de la copie d'une plage dans le clipboard il utilisait pour cela les api Windows et cliboard(utilisateurs expérimentés

www.developpez.net

patricktoulon · 19 Décembre 2021

re
non userprofile n'est pas a changer si tu desire ateindre le chemin de ton compte sur le disque sytem
chez moi ca donne c:\users\patrick\ chez toi ça donnera le nom de ton compte a la place de "patrick"
tu rajoute "\desktop\" et blablabla & ".csv" pour lereste

après si c'est un chemin particulier dans un autre disque c'est a toi d'encoder le chemin en dur pour la base et le reste en dynamique comme un peu tout le monde te l'a proposé avec une valeur de cellule et une date formatée comme je l'ai fait aussi d'ailleurs

patricktoulon · 19 Décembre 2021

ZZ59264 à dit:
Comment adapter le chemin pour que je puisse tester ?

chemin = Environ("userprofile") & "\DeskTop\" & Sheets("EN TETE").[AK2] & Format(Date, "_yyyy-mm-dd") & ".csv"

Userprofile est a changer?

Petite précision car dans votre explication, vous dites que vous récupérer le tableau en entier, or je ne veux que le tableau à partir de la deuxieme ligne (sans les en tête),

Ne pouvant tester votre solution à cause du chemin, je ne sais pas si cela donne le résultat escompté,

Merci pour vos explications, je vais devoir lire plusieurs fois quand même et je vais bien essayer de comprendre chaque étape,

je repete
je t'ai donné le choix avec entetes ou pas
ici la copie avec ententes est bloquée
j'ai pourtant pris la peine de mettre des commentaires

VB:

 'Range("CSV[#all]").Copy    ' on copie le tableau structuré  entete compris
  Range("CSV").Copy           ' on copie le tableau structuré sans les entetes

et pour environ tu n'a Absolument rien a changer ça va aller direct sur ton bureau
en gros pour tout les Windows et office c'est universel

ZZ59264 · 19 Décembre 2021

Merci pour votre retour,

Ce n'est pas sur mon bureau mais un chemin particulier et le voici :

"P:\AP\5 B\5 CSV IMPORT\"

J'ai testé ce chemin mais il me dit qu'il est introuvable :

Chemin = "P:\AP\5 B\5 CSV IMPORT\"& "\DeskTop\" & Sheets("EN TETE").[AK2] & Format(Date, "_yyyy-mm-dd") & ".csv"

ZZ59264 · 19 Décembre 2021

J'ai modifier le chemin et cela fonctionne,

Chemin : "P:\AP\5 B\5 CSV IMPORT\"& Sheets("EN TETE").[AK2] & Format(Date, "_yyyy-mm-dd") & ".csv"

il me reste à vraiment bien comprendre vos étapes,

Merci pour tout et a tous ceux qui ont participé au sujet,

Cordialement,

ZZ59264 · 19 Décembre 2021

Je suis aller un peu vite mais il y a un probleme dans votre code Patrick Toulon,

En effet dans mon classeur j'ai une colonne "D" qui est vide et elle doit le rester, or le résultat CSV ne la fait pas apparaitre,

Que dois je faire ?

Cordialement,

patricktoulon · 19 Décembre 2021

re

teste moi ça dans un module

VB:

sub testdossier()
dim chemin$,fichier$
Chemin = "P:\AP\5 B\5 CSV IMPORT\"
'fichier= Sheets("EN TETE").[AK2] & Format(Date, "_yyyy-mm-dd") & ".csv"
 if dir (chemin,vbdirectory)<>"" then
msgbox "le dossier de destination existe"
else
 msgbox "le dossier de destination n'existe pas "
end if
end sub

je regarde pour cette colonne vide

XL 2016 Création fichier CSV

ZZ59264

XLDnaute Occasionnel

Pièces jointes

job75

patricktoulon

XLDnaute Barbatruc

Efgé

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

ZZ59264

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

ZZ59264

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

[Toutes versions] Range to CSV en passant par la récupération de la copie de la plage dans le presse papier(clipboard) - Contribuez

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

ZZ59264

XLDnaute Occasionnel

ZZ59264

XLDnaute Occasionnel

ZZ59264

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

Discussions similaires