Ouverture fichier .txt en .XLS avec EXCEL

Résolu
Napalawow Messages postés 38 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
Configuration: Windows XP
Internet Explorer 7.0

10 réponses

  1.
    123Thomas123 Messages postés 7 Statut Membre
     
    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+
    0
  2. amigo
     
    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+.
    0
  3. 123Thomas123 Messages postés 7 Statut Membre
     
    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
    0
  4. amigo
     
    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.
    0

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

    Posez votre question
  6. 123Thomas123 Messages postés 7 Statut Membre
     
    ok merci pour ces précisions !!!

    J'essayerai tous ca demain AMIGo

    Allez bonne nuit!!!
    merci
    0
  7. Napalawow Messages postés 38 Statut Membre 1
     
    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!!
    0
  8. amigo
     
    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+.
    0
  9. amigo
     
    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+.
    0
  10. Napalawow Messages postés 38 Statut Membre 1
     
    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!
    0
  11. talla firenze Messages postés 1 Statut Membre
     
    Salut j'amerai faire le contraite
    convertir les fichiers xls en txt comment faire ?

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