eldictator
Messages postés23Date d'inscriptionlundi 3 septembre 2007StatutMembreDernière intervention11 septembre 2007
-
4 sept. 2007 à 10:16
eldictator
Messages postés23Date d'inscriptionlundi 3 septembre 2007StatutMembreDernière intervention11 septembre 2007
-
6 sept. 2007 à 09:11
Bonjour,
Je voudrai écrire une ligne d'un fichier excel vers un fichier txt, avec comme séparateur la virgule.
J'effecturai cette opération plusieur fois, et j'écrirai les données à la ligne suivantes ( dans le fichier txt)
PS : je ne connait pas le nombre de donnée dans une ligne, ça peut varier...
cs_MPi
Messages postés3877Date d'inscriptionmardi 19 mars 2002StatutMembreDernière intervention17 août 201823 5 sept. 2007 à 11:48
Voici une façon simple de copier des données.
Tu peux trouver plusieurs méthodes en recherchant sur le site...
Sub CopieLigne()
Dim I As Integer, Ligne As Long
Dim strTemp As String 'contiendra la ligne à copier
Ligne = 1 'pour l'exemple
'Ouverture en mode Output qui écrase les anciennes données du fichier
'On peut aussi ouvrir en mode Append pour les conserver
Open ThisWorkbook.Path & "\Test.txt" For Output As #1
'Stocker les données de la ligne dans une variable
For I = 1 To 10 'copie de 10 cellules
strTemp = strTemp & Cells(Ligne, I) & ","
Next
'Copie de cette variable sans la dernière virgule
Print #1, Left(strTemp, Len(strTemp) - 1)
eldictator
Messages postés23Date d'inscriptionlundi 3 septembre 2007StatutMembreDernière intervention11 septembre 2007 4 sept. 2007 à 10:37
ben non, moi je veux comme séparateur la virgule...
En plus, lorsque je sauvegarde en CSV, il met des ";" achaque fois que la colonne est vide...
Si vous savez comment on change de séparateur, je pourrais essayer
Vous n’avez pas trouvé la réponse que vous recherchez ?
cs_MPi
Messages postés3877Date d'inscriptionmardi 19 mars 2002StatutMembreDernière intervention17 août 201823 4 sept. 2007 à 12:15
Tu peux toujours commencer comme te suggères jrivet, mais au format TXT.
Ensuite, si le séparateur est toujours le point-virgule, tu l'ouvres dans une variable avec
Open ... For Binary As #Numero
Puis tu utilises Replace pour changer les séparateurs et tu enregistres
eldictator
Messages postés23Date d'inscriptionlundi 3 septembre 2007StatutMembreDernière intervention11 septembre 2007 5 sept. 2007 à 09:37
ben j'ai pas compris ta solution avec ouvrir dans une variable...Je suis débutant en vba.
Moi je veut juste copier un ligne entiére d'excel, dasn un fichier de type txt, avec comme séparateur la virgule. je sais pas si c'est possible... Merci de m'aider
eldictator
Messages postés23Date d'inscriptionlundi 3 septembre 2007StatutMembreDernière intervention11 septembre 2007 5 sept. 2007 à 14:09
j'ai un petit souci lorsque je met append, j'ai une erreur au niveau du print " arguent ou appel de procédure incorrect" il y a d'autre changement à faire pour ajouter les données à la suite?
eldictator
Messages postés23Date d'inscriptionlundi 3 septembre 2007StatutMembreDernière intervention11 septembre 2007 6 sept. 2007 à 09:11
ou i ok, maintenant ça marche, je sais aps pourquoi, j'ai juste ouvert et fermé excel....avec Microsoft quelque fois c'est meiux de ne pas chercher à comprendre....