OUverture fichier txt en xls avec excel

JDH

XLDnaute Nouveau
Bonjour j'aimerai ouvrir un fichier txt en xls svp.
Le fichier en .txt se présente sous cette forme : nomSite_Data10min_date
Le fichier .txt => nomSite_Data10min_date.txt => à 2 variables avec comme 1° variable "nomSite" est comme 2° variable "Date"
Je dois pouvoir rentrer le nom du site
et la date est celle du jour d'aujoud'hui sous la forme aaaa-mm-jj




Est ce que vous pouvez m'aider svp je suis débutant et je désespére...
J'espere avoir été assez clair!
Merci
JD
 

RENAUDER

Nous a quitté
Repose en paix
Re : OUverture fichier txt en xls avec excel

Bonjour,

Voilà une partie du code
Code:
    Chemin = ActiveWorkbook.Path
    NomSite = InputBox("Donner le nom du site", "Nom du site")
    If NomSite = "" Then End
    Madate = Format(Date, "yyyy-mm-dd")
    NomFileTxtAOuvrir = NomSite & "_Data10min_" & Madate & ".txt"
    MsgBox NomFileTxtAOuvrir
    Workbooks.Open Filename:= _
                   Chemin & "\" & NomFileTxtAOuvrir
 
Dernière édition:
G

Guest

Guest
Re : OUverture fichier txt en xls avec excel

Bonjour JDH, Bienvenue sur le forum

En ouvrant tout simplement le fichier texte avec excel, ce dernier lance un assitant d'importation. Suivre les étapes...et le tour est joué.

A bientôt
 

wabtor

XLDnaute Nouveau
Re : OUverture fichier txt en xls avec excel

bonjour

J'ai realiser une macro mais pour l'import d'un fichier exel tu peux la modifié pour un import de text

import()


Chemin = ActiveWorkbook.Path
i = 1
b = 2
c = 2
Nblavt = 2


'effacement de la base
Sheets("Donnée").Select
finbase = Cells.SpecialCells(xlCellTypeLastCell).Row
Rows("3:" & finbase & "").Select
Selection.Delete Shift:=xlUp



For i = 2 To 3
CRE = Sheets("CRE").Cells(i, 1).Value
Site = Sheets("CRE").Cells(i, 2).Value
Marque = Sheets("CRE").Cells(i, 3).Value
Workbooks.Open Filename:=Chemin & "\STOCK" & CRE & ".xls", UpdateLinks:=0
Windows("STK" & CRE & ".xls").Activate
Sheets("STK" & CRE & "").Select
nombre2 = Cells.SpecialCells(xlCellTypeLastCell).Row
ActiveSheet.Range("A2:W" & nombre2).Select
Selection.Copy
Windows("Gestion stock.xls").Activate
Sheets("Donnée").Select
Sheets("Donnée").Cells(Nblavt, 2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

nombre = Cells.SpecialCells(xlCellTypeLastCell).Row
'copie de code CRE dans la colonne A
Sheets("Donnée").Range("A" & Nblavt & ":A" & nombre).Value = CRE
Sheets("Donnée").Range("AG" & Nblavt & ":AG" & nombre).Value = Site
Sheets("Donnée").Range("AH" & Nblavt & ":AH" & nombre).Value = Marque
'copie formule
Range("Z2:AF2").Select
Selection.Copy
Range("Z" & Nblavt & ":AF" & nombre).Select
ActiveSheet.Paste
Nblavt = nombre + 1
'fermeture du fichier stock
Windows("STK" & CRE & ".xls").Activate
ActiveWorkbook.Save
ActiveWindow.Close
Next
End Sub

si tu veux mes ton fichier en joint et je la creer
 

JDH

XLDnaute Nouveau
Re : OUverture fichier txt en xls avec excel

Re tout le monde

D'abord, merci d'avoir répondu a mon probléme.

RENAUDER j'avais commencé ma macro un peu comme toi Sub ouvrirfichier()
Dim reponse As String
Dim Fichier As String, Repertoire As String


reponse = InputBox("nom du site: " )
Repertoire = "C:\Documents and Settings\ok\Bureau\MB2"
Fichier = Dir(Repertoire & reponse & "_data10min_2008-04-30.txt")
 

JDH

XLDnaute Nouveau
Re : OUverture fichier txt en xls avec excel

Re tout le monde

D'abord, MERCI d'avoir répondu a mon probléme.

>HASCO j'aimerai avoir une macro qui m'ouvre mon fichier xls automatique :)

>RENAUDER j'avais commencé ma macro un peu comme toi :

Sub ouvrirfichier()
Dim reponse As String
Dim Fichier As String, Repertoire As String

reponse = InputBox("nom du site: " )
Repertoire = "C:\Documents and Settings\ok\Bureau\MB2"
Fichier =

(Aprés je rame....)



>WABTOR,
En faite je dois ouvrir un fichier txt tous les jours (donc la date change) et c'est pour cela qu'il faut mettre la date en variable...
WABTOR le chemin du fichier où se trouve le .txt est le suivant=>
C:\Documents and Settings\ok\Bureau\MB2


Merci encore pour les futurs aides!!!!!
Si j'ai pas été trés compréhensible dites le moi !
 

JDH

XLDnaute Nouveau
Re : OUverture fichier txt en xls avec excel

Ah oui ...
Je crois n'avoir pas été clair en faite pour la date c'est la date du jour d'ouverture et comme on l'ouvre tous les jours elle correspond à la date du systéme.

~~~
merci!
 

RENAUDER

Nous a quitté
Repose en paix
Re : OUverture fichier txt en xls avec excel

Bonjour,

Pour la date il n'y a pas de problème avec ce bout de code
Date=Date du jour

Madate = Format(Date, "yyyy-mm-dd")
Fichier = Repertoire & "\" & reponse & "_data10min_" & MaDate &".txt")
 

JDH

XLDnaute Nouveau
Re : OUverture fichier txt en xls avec excel

RE LEs gens c'est encore moi ^^

Alors j'ai essayé ce bout de code pour ouvrir mon fichier :
Sub ouvrirfichier()
Dim reponse As String
Dim Repertoire As String


reponse = InputBox("Donner le nom du site", "Nom du site")
If NomSite = "" Then End
MaDate = Format(Date, "yyyy-mm-dd")

Repertoire = "C:\Documents and Settings\HOURCADE\Bureau\JDH"

Workbooks.OpenText Filename:=Repertoire & "\" & reponse & "_Data10min_" & MaDate & ".txt"

End Sub

Alors il ve bien le compiler. Je peux rentrer le nom du site (super^^)
Mais il ne veut pas ouvrir le fichier...
Manque t-il quelque chose au programme ??



Merci pour votre aide !!
JD H

@ toute
 

JDH

XLDnaute Nouveau
Re : OUverture fichier txt en xls avec excel

RE
Bon j'ai modifier mon programme et ca donne ca
Code:
Sub ouvrirfichier() 
Dim reponse As String 
Dim Repertoire As String 
Dim MaDate as String 

reponse = InputBox("Donner le nom du site", "Nom du site") 
If reponse = "" Then Exit Sub 
MaDate = Format(Date, "yyyy-mm-dd") 
Repertoire = "C:\Documents and Settings\HOURCADE\Bureau\JDH" 
Workbooks.OpenText Filename:=Repertoire & "\" & reponse & "_Data10min_" & MaDate & ".txt" 
End Sub

Mais bon j'ai toujours le retour message erreur (erreur 1004: erreur définie par l'application ou par l'objet) alors que le fichier .txt existe bien. Je compile cette macro sur Excel.

Est ce que qqun connaître le bout de code pour ouvrir le .txt en .xls ?

Merci
A toute
JD
 

JDH

XLDnaute Nouveau
Re : OUverture fichier txt en xls avec excel

Yep tout le monde

Aprés maintes réflexion avec qq1, nous avons réussit à remédier au probléme présent.


Je tient quand même à remercier les différentes personnes, qui se sont manifestées pour me venir en aide.

Salutations! :)
++
JD H
 

Discussions similaires

Statistiques des forums

Discussions
314 593
Messages
2 111 017
Membres
111 005
dernier inscrit
ainartp