Excel 2003, écrire les valeurs d'une colonne dans un fichier txt

[Yunchi]

Bonjour,

Je recherche une fonction sous VBA Excel 2003 qui permette d'écrire dans un fichier .... comme le fprintf en C

Le processus serait de crée un fichier txt, de lire les données d'une colonne et de les écrire dans le fichier txt espacé à chaque fois d'un espace.

Merci

 

[vbacrumble]

Re : Excel 2003, écrire les valeurs d'une colonne dans un fichier txt

ReBonjour


Même conseil que dans ton autre fil


Le moteur de recherche du forum , la touche F1 de VBA etc ...

On dirait que tu ne sais pas lire mes réponses Yunchi.

Sujet déjà mille fois traité

 

[BOISGONTIER]

Re : Excel 2003, écrire les valeurs d'une colonne dans un fichier txt

Bonjour,

Sub ExportTxtChamp()
  repertoire = ThisWorkbook.Path
  Open repertoire & "\x.txt" For Output As #1
  Set champ = [C1].CurrentRegion
  For lig = 1 To champ.Rows.Count
    ligne = ""
    For col = 1 To champ.Columns.Count
      ligne = ligne & champ.Cells(lig, col) & ";"
    Next col
    Print #1, Left(ligne, Len(ligne) - 1)
  Next lig
  Close #1
End Sub

Fichiers séquentiels

JB
Formation Excel VBA JB

 

[vbacrumble]

Re : Excel 2003, écrire les valeurs d'une colonne dans un fichier txt

Re


Je profite de ce fil pour poser une question à tous les membres expérimentés du forum.

Pourquoi s'évertuer à rédiger une charte et à demander qu'elle soit lue par les nouveaux arrivants si quand les questions posées qui ont déjà traitées par le passé,
nous répondons encore et encore aux nouveaux messages sans que personne ne rappelle au nouveau membre de chercher dans les fils de discussions précédents avant de poster une question ?



Je ne comprends pas trop ce paradoxe.

 

[Yunchi]

Re : Excel 2003, écrire les valeurs d'une colonne dans un fichier txt

Merci BOISGONTIER pour ton aide !

 

[MJ13]

Re : Excel 2003, écrire les valeurs d'une colonne dans un fichier txt

Bonjour à tous

Sans rentrer dans la polémique, il faut déjà savoir que le nombre de posts étant énorme, quelquefois, le moteur de recherche ne donne pas toujours le résultat escompté.

Si quelqu'un a déjà traité ce problème et qu'il a la solution facilement accessible, c'est bien qu'il puisse le restitué (cela permet de plus de ne pas aller dans des posts qui peuvent être parfois long).

Ensuite si quelqu'un poste trop souvent des questions sans dire ce qu'il veut faire, sans donner un fichier exemple, sans code VBA, il faut alors lui rappeler qu'on est pas un prestataire de service mais un site d'entraide et d'echange, car il faut que celui qui aide puisse en retirer un bénéfice, et c'est la que la charte a son importance.

 

[vbacrumble]

Re : Excel 2003, écrire les valeurs d'une colonne dans un fichier txt

Re, bonjour MJ13

C'est justement parce :

il faut déjà savoir que le nombre de posts étant énorme

que je me permets ce commentaire.

J'ajoute je venais juste de conseiller dans un autre fil à Yunchi
de faire des recherches
Ce qu'il avait fait :
Lien supprimé

Puis quelques minutes après, il postait ce nouveau post
D'où mon mouvement d'humeur.


PS: Le moteur de recherche utilisée en mode avancée m'a toujours donné satisfaction (couplé avec une recherche avec un moteur de recherche externe le cas échéant)

J'ai préféré posté ma réponse ici plutôt qu'en messagerie privée à destination de MJ13
en espérant que les nouveaux membres qui liront ce fil prendront l'habitude
de suivre les conseils de la charte avant de poster.

 

[MJ13]

Re : Excel 2003, écrire les valeurs d'une colonne dans un fichier txt

Re cramble

Oui mais il y aura toujours des gens comme ça et il ne faut pas trop leur en tenir rigueur (enfin c'est ce que j'essaye de faire même si quelques fois je boue).

remarque: Je l'avais vu ce post, il devrait aller voir du côté de MichelXLD en faisant une recherche avec ce code

Dim objProcess As Object, colProcessList As Object, objWMIService As Object
Dim strComputer As String
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
'Set colProcessList = objWMIService.execQuery _
("Select * from Win32_Process Where Name = 'Notepad.exe'")
Set colProcessList = objWMIService.execQuery _
("Select * from Win32_Process Where Name = 'cmd.exe'")