Ouverture fichier .txt en .XLS avec EXCEL
Résolu
Napalawow
Messages postés
38
Statut
Membre
-
talla firenze Messages postés 1 Statut Membre -
talla firenze Messages postés 1 Statut Membre -
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
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 bin - Guide
- Fichier epub - Guide
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
- Liste déroulante excel - Guide
10 réponses
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+
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+
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+.
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+.
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
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
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:
Il suffit de remplacer
Filename:="D:\test\essai.txt"
par
Filename:=Repertoire & "\" & reponse & "_Data10min_" & MaDate & ".txt"
Voila, normalement ça devrait marcher.
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
RE, les gens
Alors J'ai fait ce que tu m'as dit. Voici la macro :
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 :
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!!
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!!
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+.
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+.
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+.
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+.
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!
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!
