Fred H
Nouveau membre
Bonjour à tous,
Je souhaite importer dans excel (en le choisissant dans une liste), un fichier au format .txt dont les limites de champs sont des ";".
Je connais les deux commandes qui permettent de le faire mais pas vraiment comme je le veux.
soit:
Sub ouverture_automatique()
'
' ouverture_automatique Macro
'
'
Workbooks.OpenText Filename:= _
"C:\Documents and Settings\fred\Mes documents\Collecte 2-9-2010 9h4min.txt", _
Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _
, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), _
Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), Array(27, 1), Array( _
28, 1), Array(29, 1), Array(30, 1), Array(31, 1), Array(32, 1), Array(33, 1), Array(34, 1), _
Array(35, 1), Array(36, 1), Array(37, 1)), TrailingMinusNumbers:=True
End Sub
C'est toujours le même fichier qui s'ouvre, mais j'ai bien ma séparation des champs avec le ";"
ou:
Sub aa()
Classeur = Application.GetOpenFilename("fichierz texte,*.txt")
If Classeur = False Then Exit Sub
Workbooks.Open Filename:=Classeur
End Sub
là, je choisis mon fichier, c'est bien, mais je ne passe pas pas l'assistant d'importation de texte, avec choix des séparateurs et etc.... et mes champs ne sont pas définis par le ";".
Merci d'avance de votre aide car je n'ai pas vraiment pris le temps de m'intéresser suffisament à VB pour être autonome!!!!
Fred
Je souhaite importer dans excel (en le choisissant dans une liste), un fichier au format .txt dont les limites de champs sont des ";".
Je connais les deux commandes qui permettent de le faire mais pas vraiment comme je le veux.
soit:
Sub ouverture_automatique()
'
' ouverture_automatique Macro
'
'
Workbooks.OpenText Filename:= _
"C:\Documents and Settings\fred\Mes documents\Collecte 2-9-2010 9h4min.txt", _
Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _
, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), _
Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), Array(27, 1), Array( _
28, 1), Array(29, 1), Array(30, 1), Array(31, 1), Array(32, 1), Array(33, 1), Array(34, 1), _
Array(35, 1), Array(36, 1), Array(37, 1)), TrailingMinusNumbers:=True
End Sub
C'est toujours le même fichier qui s'ouvre, mais j'ai bien ma séparation des champs avec le ";"
ou:
Sub aa()
Classeur = Application.GetOpenFilename("fichierz texte,*.txt")
If Classeur = False Then Exit Sub
Workbooks.Open Filename:=Classeur
End Sub
là, je choisis mon fichier, c'est bien, mais je ne passe pas pas l'assistant d'importation de texte, avec choix des séparateurs et etc.... et mes champs ne sont pas définis par le ";".
Merci d'avance de votre aide car je n'ai pas vraiment pris le temps de m'intéresser suffisament à VB pour être autonome!!!!
Fred