Modifier fichier Csv avec Notepad

Bonjour tout le monde....

grâce à vous je suis parvenu à boucle mon code à 95%

restent les 5% (que je pourrais faire à la main mais bon ...)

je créé un fichier qui doit absolument être en csv avec ; en séparateur.
pour cela je suis obligé de prendre les en-tetes de colonne que je dois ensuite supprimer ainsi que la marque de fin de fichier.

Il faudrait donc que je puisse faire :

Sendkeys "^{home}"
Sendkeys "{suppr}"
Sendkeys "{suppr}"
Sendkeys "^{fin}"
Sendkeys "^{BKSP}"

Mais je n'arrive pas à ouvrir le fichier et donc encore moins à activer les commandes...

Merci à vous......

Citation:

---

Envoyé par Nimitz-4145

pour cela je suis obligé de prendre les en-tetes de colonne que je dois ensuite supprimer ainsi que la marque de fin de fichier.

---

Je ne vois pas trop les raisons de cette "obligation". :koi:
Qu'est-ce qui t'empêche de supprimer ces entêtes avant d'enregistrer en CSV ?

Citation:

---

Il faudrait donc que je puisse faire :

Sendkeys "^{home}"
Sendkeys "{suppr}"
Sendkeys "{suppr}"
Sendkeys "^{fin}"
Sendkeys "^{BKSP}"

Mais je n'arrive pas à ouvrir le fichier et donc encore moins à activer les commandes...

---

Ouvrir un fichier avec un autre logiciel peut se faire avec la fonction Shell.
https://msdn.microsoft.com/fr-fr/lib.../gg278437.aspx
Mais utiliser Sendkeys pour travailler dans un logiciel hors Office est toujours plus ou moins aléatoire.

Tu peux aussi traiter ton fichier en séquentiel directement avec VBA.
https://msdn.microsoft.com/fr-fr/lib.../gg264163.aspx
https://msdn.microsoft.com/fr-fr/lib.../gg264519.aspx
https://msdn.microsoft.com/fr-fr/lib.../gg264524.aspx
https://msdn.microsoft.com/fr-fr/lib.../gg264418.aspx

Citation:

---

Envoyé par Menhir

Je ne vois pas trop les raisons de cette "obligation". :koi:
Qu'est-ce qui t'empêche de supprimer ces entêtes avant d'enregistrer en CSV ?

---

Si je supprime les en-têtes, je perds mon séparateur de colonne, certaines pouvant être vides

Par contre, je n'arrive pas à ouvrir tes liens....:calim2:

Citation:

---

Ouvrir un fichier avec un autre logiciel peut se faire avec la fonction Shell.
https://msdn.microsoft.com/fr-fr/lib.../gg278437.aspx
Mais utiliser Sendkeys pour travailler dans un logiciel hors Office est toujours plus ou moins aléatoire.

Tu peux aussi traiter ton fichier en séquentiel directement avec VBA.
https://msdn.microsoft.com/fr-fr/lib.../gg264163.aspx
https://msdn.microsoft.com/fr-fr/lib.../gg264519.aspx
https://msdn.microsoft.com/fr-fr/lib.../gg264524.aspx
https://msdn.microsoft.com/fr-fr/lib.../gg264418.aspx

---

Citation:

---

Envoyé par Nimitz-4145

Si je supprime les en-têtes, je perds mon séparateur de colonne, certaines pouvant être vides

---

Je viens de faire des tests sur les enregistrement de CSV avec des cellules vides et il semble qu'on garde les séparateurs pourvu qu'il y ait au moins une valeur dans une ligne de la dernière colonne.

Citation:

---

Par contre, je n'arrive pas à ouvrir tes liens....:calim2:

---

Je viens de les tester : ils semblent s'ouvrir normalement.
Tu n'aurais pas un parefeu ou quelque chose du genre qui bloquerait certains sites ?

Citation:

---

Envoyé par Menhir

Je viens de faire des tests sur les enregistrement de CSV avec des cellules vides et il semble qu'on garde les séparateurs pourvu qu'il y ait au moins une valeur dans une ligne de la dernière colonne.


Je viens de les tester : ils semblent s'ouvrir normalement.
Tu n'aurais pas un parefeu ou quelque chose du genre qui bloquerait certains sites ?

---

je pense que c'est possible, je suis au taf et, malgré la pluie, les parefeu sont de sortie....

Dieu merci, c'est vendredi.

En une demi-heure, le traitement de texte dans Excel, et les sendkeys dans Notepad pour écrire un fichier texte.

Découragé...

Citation:

---

Envoyé par clementmarcotte

Dieu merci, c'est vendredi.

En une demi-heure, le traitement de texte dans Excel, et les sendkeys dans Notepad pour écrire un fichier texte.

Découragé...

---

Je ne veux pas écrire un fichier texte, je cherche un moyen de retirer des caractères car je dois l'injecteur dans une application et je dois impérativement supprimer la première ligne et la marque de fin de fichier.
Si ce n'est pas possible je ferai à la mano

Bonjour intéresse toi plutôt a la fonction "open for input" de vba et non workbooks open


cette fonction t'ouvre le fichier en mémoire il est facile de mettre le texte obtenue dans une variable

tu réenregistre cette variable obtenue en splitant la ligne 1

5 ou 6 ligne de code maximum


c'est pas compliqué
un exemple tout simple

Code:

---

1 2 3 4 5 6 7 8 9

Sub truc_simple() Dim x As Integer, lines As String x = FreeFile fichier = "C:\Users\polux\Desktop\exemple.csv" Open fichier For Input As #x: lines = Input$(LOF(x), #x): Close #x ligne1 = Split(lines, vbCrLf)(0) texte = Replace(texte, ligne1, "") Open fichier For Output As #x: Print #x, texte: Close #x End Sub

---

ouvre ton csv avec notpad tu verra la ligne 1 a disparue

Citation:

---

Envoyé par Nimitz-4145

Je ne veux pas écrire un fichier texte, je cherche un moyen de retirer des caractères car je dois l'injecteur dans une application et je dois impérativement supprimer la première ligne et la marque de fin de fichier.
Si ce n'est pas possible je ferai à la mano

---

As-tu juste essayé avec replace en VBA ?

Et puis un fichier a toujours une marque de fin de fichier.

Citation:

---

Envoyé par clementmarcotte

Et puis un fichier a toujours une marque de fin de fichier.

---

effectivement, je m'exprime mal.
Il s'agit d'un retour chariot et non pas d'une marque de fin de fichier.

Pas facile à supprimer celui-là...

Je vais tester le code du toulonnais... (RCT Forever)