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+

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+.

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

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

Ok merci pour ces précisions !!!

J'essayerai tous ca demain AMIGo



Allez bonne nuit!!!
merci

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

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 

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+.

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+.

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!

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

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