XL 2016 Création fichier CSV

[ZZ59264]

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,

 

[patricktoulon]

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é]

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

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

Cordialement

 

[cp4]

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]

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

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

Cordialement

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

Le code que tu as proposé fonctionne parfaitement !!

 

[patricktoulon]

@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]

@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]

@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]

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]

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]

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]

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

 '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]

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]

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]

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]

re

teste moi ça dans un module

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