Ecrire dans un fichier

[Baboune]

Bonsoir le forum,

J'ai besoin d'écrire dans un fichier plusieurs centaines de lignes.
J'ai essayé plusieurs méthode en utilisant Print # et Write #, mais je n'obtient pas le résultat recherché.

Les lignes doivent avoir la forme suivante :
'chaine1','chaine2',nombre1,nombre2,,,,

chaine1 est dans la colonne C
chaine2 est dans la colonne D
nombre1 dans A
et nombre2 dans B

Quelqu'un aurait une idée pour me mettre sur la bonne voie ?

 

[ninou58]

Bonsoir,
Ces lignes c'est dans la feuille?
Sinon tu peux faire .copy.
Copier juste une ligne je pense que c'est possible.

Bon courage

 

[porcinet82]

Salut Baboune, Salut Ninou,

Je ne comprend pas tres bien ce que tu souhaites faire, tes lignes qui doivent être copiées, elles sont ou au juste ?

Joint un fichier, je pense que ce sera plus facile pour nous de t'apporter une solution.

@+

 

[Baboune]

Salut ninou58, salut porcinet82,

Je viens de me relire et il est vrai que mon explication n'est pas très claire.

Je reprends :

Dans une feuille excel j'ai 4 colonnes et plusieurs centaines de lignes.

en A1 --> nombre1
en B1 --> nombre2
en C1 --> chaine1
en D1 --> chaine2

en A2 --> nombre3
en B2 --> nombre4
en C2 --> chaine3
en D2 --> chaine4

Etc.

J'aimerais reprendre dans un fichier texte ces données sur une ligne ayant le formatage suivant :

'chaine1','chaine2',nombre1,nombre2,,,,
'chaine3','chaine4',nombre3,nombre4,,,,
Etc.

Tous les guillemets et toutes les virgules doivent être placés comme dans l'exemple.

Est ce plus explicite ?

 

[JPC92]

Salut Baboune, Salut au forum

Voici une solution à ton problème si j'ai bien tout compris ! C'est une méthode avec Print #.
Exemple et code dans le fichier joint.

@+

 

[JPC92]

Salut Baboune, Salut au forum

Petite raté, il n'y a pas de fichier joint.
J'en profite pour donner plus d'infos

Voici une solution à ton problème si j'ai bien tout compris ! C'est une méthode avec Print #.
Exemple et code dans le fichier joint.
Cela génère un fichier Fichier_essai.txt.

@+

 

[JPC92]

Salut Baboune, Salut au forum

Encore moi! Ca me gonfle, je ne sais pas ce qui se passe, mais toujours pas de fichier joint.
Alors voici le code pour 3 lignes:

Sub Ecriture_fichier()

Open 'J:\\Fichier_essai.txt' For Output Access Write As #1

For Ligne = 1 To 3
Print #1, Chr(34) & ActiveSheet.Cells(Ligne, 3).Value & Chr(34) _
& ',' & Chr(34) & ActiveSheet.Cells(Ligne, 4).Value & Chr(34) _
& ',' & ActiveSheet.Cells(Ligne, 1).Value _
& ',' & ActiveSheet.Cells(Ligne, 2).Value
Next Ligne

Close #1

End Sub

La feuille
A B C D
1 236 524 TOTO TITI
2 666 12 essai essai2
3 5987 2659 texte autre texte


Petite raté, il n'y a pas de fichier joint.
J'en profite pour donner plus d'infos

Voici une solution à ton problème si j'ai bien tout compris ! C'est une méthode avec Print #.
Exemple et code dans le fichier joint.
Cela génère un fichier Fichier_essai.txt.

 

[MichelXld]

bonjour à tous

JPC92, ton fichier doit etre zippé , de taille inferieure à 50 ko , sans espaces ni caracteres speciaux ( à , ç , é , è , ...etc ...) dans le nom du fichier

ci dessous un lien qui explique comment joindre un fichier

Lien supprimé


bonne journée
MichelXld

 

[Baboune]

Bonjour tous le monde,

Merci JPC92. C'est exactement ça !

Je m'embêté a utiliser directement les guillemets au lieu d'utiliser chr(34).

Encore merci.

 

[JPC92]

Bonjour à tous

De retour de vacances, je viens de comprendre pourquoi mon fichier n'était pas joint. A la deuxième tentative, j'avais regardé le tutoriel sans comprendre. C'était tout simplement un é au lieu de e dans le nom du fichier. Ca ne m'arrivera plus.

Merci

@+

 

[JPC92]

Bonjour à tous

De retour de vacances, je viens de comprendre pourquoi mon fichier n'était pas joint. A la deuxième tentative, j'avais regardé le tutoriel sans comprendre. C'était tout simplement un é au lieu de e dans le nom du fichier. Ca ne m'arrivera plus.

Merci

@+