OUverture fichier txt en xls avec excel

Re : OUverture fichier txt en xls avec excel

Bonjour,

Voilà une partie du code

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

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

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")

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 !

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!

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")

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

Cliquez pour agrandir...

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

Re : OUverture fichier txt en xls avec excel

RE
Bon j'ai modifier mon programme et ca donne ca

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

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