Ouverture fichier .txt en .XLS avec EXCEL

Résolu/Fermé

Napalawow Messages postés 38 Date d'inscription mardi 29 avril 2008 Statut Membre Dernière intervention 28 mai 2008 - 1 mai 2008 à 17:20
talla firenze Messages postés 1 Date d'inscription samedi 20 décembre 2008 Statut Membre Dernière intervention 20 décembre 2008 - 20 déc. 2008 à 11:50

Bonjour,
Salut tout le monde!

J'aimerai ouvrir un fichier txt en xls.
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 systéme sous la forme aaaa-mm-jj

J'ai écrit qqlignes de la macro pour ouvrir le fichier .txt
Je ne sais pas comment l'ouvrir en .xls

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

J'ai compiler la macro, elle me demande bien le nom du site mais elle n'ouvre pas le fichier :/

MErci par avance des futurs aides

JD

A voir également:

Ouverture fichier .txt en .XLS avec EXCEL
Fichier rar - Guide
Liste déroulante excel - Guide
Fichier host - Guide
Fichier iso - Guide
Comment réduire la taille d'un fichier - Guide

10 réponses

Réponse 1 / 10

123Thomas123 Messages postés 7 Date d'inscription jeudi 1 mai 2008 Statut Membre Dernière intervention 10 mai 2008
1 mai 2008 à 20:48

RE tout le monde,

Alors j'ai supp cette ligne => If NomSite = "" Then End

Et ma macro est devenu :

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

Je peux rentrer le nom du site via l'inputbox mais apres il me fair erreur de compliation. erreur 1004 !!... ??
Est ce que vous connaissez un code pour ouvrir le .txt en .xls

Je vous remerci vraiment pour les futurs aides!!
a+

Réponse 2 / 10

amigo
1 mai 2008 à 21:06

Bonsoir,

Voila comment devrait se présenter la macro

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

Si le fichier n'existe pas cela provoquera une erreur.

A+.

Réponse 3 / 10

123Thomas123 Messages postés 7 Date d'inscription jeudi 1 mai 2008 Statut Membre Dernière intervention 10 mai 2008
1 mai 2008 à 21:29

OK Merci Amigo ^^

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 tu connaitre le bout de code pour l'ouvrir en .xls ??

Merci
JD

Réponse 4 / 10

amigo
1 mai 2008 à 22:39

Re,

Pour ouvrir ton fichier .txt en .xls le mieux est d'enregister une macro et de recuperer le code.
Menu Outils Macros Nouvelle macro

Ensuite:

Menu Fichier Ouvrir

Dans la boite de dialogue sélectionner le type de fichier txt, Selectionner le fichier et ouvrir
Suivre les étapes (Suivant) jusqu'à l'ouverture du fichier txt dans une feuille Exel.

Arrêter l'enregistrement de la macro. Dans Visual Basic Editor, voir le code généré. Moi, par exemple, j'ai eu ce résultat avec un de mes fichiers, ce sera peut-être différent pour toi:

 Workbooks.OpenText Filename:="D:\test\essai.txt", Origin:=xlMSDOS, _
     StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
     ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, _
     Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3 _
     , 1), Array(4, 1), Array(5, 1), Array(6, 1)), TrailingMinusNumbers:=True

Il suffit de remplacer
Filename:="D:\test\essai.txt"
par
Filename:=Repertoire & "\" & reponse & "_Data10min_" & MaDate & ".txt"

Voila, normalement ça devrait marcher.

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 10

123Thomas123 Messages postés 7 Date d'inscription jeudi 1 mai 2008 Statut Membre Dernière intervention 10 mai 2008
1 mai 2008 à 23:26

ok merci pour ces précisions !!!

J'essayerai tous ca demain AMIGo

Allez bonne nuit!!!
merci

Réponse 6 / 10

Napalawow Messages postés 38 Date d'inscription mardi 29 avril 2008 Statut Membre Dernière intervention 28 mai 2008 1
2 mai 2008 à 12:03

RE, les gens

Alors J'ai fait ce que tu m'as dit. Voici la macro :

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"

Workbooks.OpenText Filename:=Repertoire & "\" & reponse & "_Data10min_" & MaDate & ".txt" _
        , Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True
End Sub

Quand je compile il fait toujours erreur 1004 pour dire qu'il ne trouve pas mon fichier 'site1_Data10min_2008-05-02.txt' si la variable reponse=site1

Aussi même avec ce simple 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

il me fait la même erreur...
Je ne comprend pas j'ai regardé au moins 4 fois l'orthographe et c'est exactement pareil...
SVP aidez-moi
J'utilise Miscrosoft Excel 2003 voila^^

MERci!!

Réponse 7 / 10

amigo
2 mai 2008 à 12:21

Bonjour,

Affiche le chemin complet dans une MsgBox et verifie que c'est bien ce que tu attendais.

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"

MsgBox Repertoire & "\" & reponse & "_Data10min_" & MaDate & ".txt"

Workbooks.OpenText ..........

A+.

Réponse 8 / 10

amigo
2 mai 2008 à 12:27

PS,

Il est possible que le fichier en question soit déjà ouvert par un autre programme et que Windows ne laisse pas Excel prendre la main sur ce fichier tant que le premier programme ne le libère pas.

Dans ce cas il n'y a pas de solution.

A+.

Réponse 9 / 10

Napalawow Messages postés 38 Date d'inscription mardi 29 avril 2008 Statut Membre Dernière intervention 28 mai 2008 1
2 mai 2008 à 14:11

OK Super J'ai comprit mon erreur :

Aprés plusieurs essais sans espoir, j'ai comprit que :

Mon fichier je l'avais appelé (exemple) : Site1_Data10min_2008/05/02.txt
Et que le programme n'ouvrai PAS les fichier : Site1_Data10min_2008/05/02

Donc voila, il suffisait de renommer le fichier on supprimant le ".txt"

MErci AMIGO now je peux ouvrir mon fichier .txt en .xls automatiquement!!
Sympa!
Merci encore sincèrement
Jt'oublierai pas si une futur complication vient à se produire niveau manipulation Excel ^^

Allez Ty! @++ Amigo!

Réponse 10 / 10

talla firenze Messages postés 1 Date d'inscription samedi 20 décembre 2008 Statut Membre Dernière intervention 20 décembre 2008
20 déc. 2008 à 11:50

Salut j'amerai faire le contraite
convertir les fichiers xls en txt comment faire ?

"J'aimerai ouvrir un fichier xls en txt." macro exel

Discussions similaires

comment donner les droits sur fichier partage

Discussions similaires

Newsletters