!! URGENT !! Copie de fichier texte à la suite dans excelRésolu

Question

Bonjour,
Je programme sous Microsof visual Basic.
Je voudrais gr&#226;ce &#224; un macro ouvrir dans l'ordre des fichiers textes (de m&#234;me forme) et les copier &#224; la suite dans une m&#234;me feuille excel. Pour cela, je voudrais savoir 
   - comment faire pour copier &#224; la suite les fichiers textes dans la feuille
   - comment faire pour saisir la date (Integer=mois, integer=jour, integer=ann&#233;e)

exemple des noms de fichiers : 
P060224.txt (P + date &#224; l'envers)
P060223.txt
...

format fichier texte
qsdsqd   sdfqdsf   4564
sdfdsd    sqdsqd   7897
....

Merci d'avance

jrivet · Accepted Answer

Re;

Essaie de remplacer:

....
      f.range("A" & NumLigne).Value = Split(It, VbTab)(0)
      f.range("B" & NumLigne).Value = Split(It, VbTab)(1) 'Petite correction du Copier coller d'avant
      f.range("C" & NumLigne).Value = Split(It, VbTab)(2) 'Petite correction du Copier coller d'avant
  ....

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

cs_loulou69 · Answer

Bonjour

tu peux peut-être t'inspirer de la réponse de ce jour "Récupérer et traiter tous les fichiers..."
http://www.vbfrance.com/infomsg/RECUPERER-TRAITER-TOUT-FICHIERS-APRES-AUTRE-REPERTOIRE-DONNE-1_671867.aspx
Saisir un date c'est simple en VBA
jour=InputBox("Entrer le jour (SVP):")
ou utilises l'objet Calendrier de Microsoft

Sinon Pour concaténer des fichiers texte sous une session DOS : 
1-) dir *.TXT >RESULTA.TXT
2-) construire un batch avec tous les fichiers souhaités avec l'éditeur de ton choix
del CONCATENE.TXT
copy CONCATENE.TXT+FICHIER1.TXT CONCATENE.TXT
copy  CONCATENE.TXT+FICHIER2.TXT CONCATENE.TXT

Tu ouvres ensuite le fichier sous Excel (Fichier / Importer)

jrivet · Answer

Salut,
Attention il faut que le delimiteur soit un espace " " 
Appelons la feuille f

Private FunctionCopieFichierDansFeuille(NomFichier)
Static NumLigne as integer
Dim It As String
NumLigne = 1
Open NomFichier For Input As #1
While Not EOF(1)
    Input #1, It
      f.range("A" & NumLigne).Value = Split(It, " ")(0)
      f.range("B" & NumLigne).Value = Split(It, " ")(0)
      f.range("C" & NumLigne).Value = Split(It, " ")(0)
   NumLigne = NumLigne + 1
Wend
Close #1
End Function

Ensuite tu l'appelle le nombre de fois qu il faut en passant en parametre tes noms de fichiers;

Call FunctionCopieFichierDansFeuille("P060224.txt")
Call FunctionCopieFichierDansFeuille("P060223.txt")

Voila en esperant avoir pu t'aider un peu
PS: explique mieux le deuxieme point j ai pas tres bien compris
@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

xpmich · Answer

salut,
en r&#233;ponse &#224; loulou 69, je pense que c'est une bonne m&#233;thode mais comment faire alors pour ex&#233;cuter des lignes de commandes dos sous excel ?


en r&#233;ponse &#224; Julien, les lignes de code marchent mais ma s&#233;paration est une tabulation, comment faire alors??

merci d'avance

xpmich · Answer

cs_loulou69 · Answer

Executer des commande DOS sous excel en batch

open "c:\monbatch.bat" for output as #1
print #1, lignecommande1
print #1, lignecommande2
close #1

Shell("cmd.exe /c c:\monbatch.bat")

sur l'action d'un bouton dans une frame pour attendre la fin de la commande SHell appeler CopieFichierDansFeuille de "jrivet", merci à lui

xpmich · Answer

erreur : l'indice n'appartient pas à la sélection (0), je pense que c'est l'indice (1) qui ne va pas
c'est l'erreur affiché pour les lignes de codes suivantes :
      Range("A" & NumLigne).Value = Split(It, "VbTab")(0)
      Range("B" & NumLigne).Value = Split(It, "VbTab")(1)
      Range("C" & NumLigne).Value = Split(It, "VbTab")(2)
de plus, la tabulation ne marche pas, voila ce que j'ai en A1
"24/02/2006***08:24:11***AQ528***En cours"  ou *** est un carré
moi je voudrais
A1   24/02/2006
B1   08:24:11
C1   AQ528
D1   En cours

Je pense aussi qu'il faudrai ressortir le numéro de ligne pour pouvoir concaténer les deux fichiers !!
Call CopieFichierDansFeuille("P060224.txt")
Call CopieFichierDansFeuille("P060223.txt")

ex : de 1 à 200, le 1er fichier et de 201à 400 le second.

Merci d'avance

jrivet · Answer

Salut,

l'indice n'appartient pas &#224; la s&#233;lection (0), je pense que c'est l'indice (1) qui ne va pas

En fait il ca ne marche pas car le Split ne fait pas ce qu ont lui demande...
NOTE:  Ce nest pas "VBTab" que je t ai mis mais VBtab sans "" (Ca ne marche pas non plus...)

Je teste autre chose.

PS: Je suppose que tu ne peux pas modifier ton delimiteur
@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

xpmich · Answer

Salut,
Voici le code bon gr&#226;ce au mix de vos messages. Je vous en remercie d'anvance.
J'utilise une fonction qui retourne le num&#233;ro de la ligne ou est rendu la fin du fichier copier.

Function CopieFichierDansFeuille(NomFichier, NumLigne As Integer) As Integer
'fonction permettant la copie des fichiers &#224; partir de NumLigne
Dim It As String
Open NomFichier For Input As #1
While Not EOF(1)
    Input #1, It
      Range("A" & NumLigne).Value = Split(It, vbTab)(0)
      Range("B" & NumLigne).Value = Split(It, vbTab)(1)
      Range("C" & NumLigne).Value = Split(It, vbTab)(2)
      Range("D" & NumLigne).Value = Split(It, vbTab)(3)
   NumLigne = NumLigne + 1
   CopieFichierDansFeuille = NumLigne
Wend
Close #1
End Function

Merci encore &#224; tout ceux qui m'ont aider.

neptunelle · Answer

Bonjour,


Désolée de faire remonter un post aussi vieux mais j'ai presque le meme souci sauf que moi j'ai :


dans un dossier : 205 par exemple 247 fiches en texte séparé par des ;
J'aimerais pouvoir ouvrir les 247 fiches dans excel mais garder que la deuxieme colonne de mon fichier texte soit tout ce qui est deriere le ;

je vous remercie par avance de votre aide !!!

Gros bisous Alexandra.