VBA Selection et ouverture d'un fichier texte

Bonjour à tous,
J'utilise dans une macro cette syntaxe pour ouvrir et formater rapidement
un

fichier texte.Ca marche.

Workbooks.OpenText Filename:="D:test2006.txt", Origin:=xlMSDOS,
StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:úlse, Tab:=True,
Semicolon:=True, _
Comma:úlse, Space:úlse, Other:úlse,
FieldInfo:=Array(Array(1,

2), _
Array(2, 2), Array(3, 1), Array(4, 4), Array(5, 2), Array(6, 2),
Array(7, 2), ......etc

Je voudrais pouvoir choisir via Application.Dialogs(xlDialogOpen).Show (ou
autre) le fichier et le formater ensuite comme ci dessus.
Ca coince, le fichier est bien selectionné mais la macro s'arrête sur
l'etape 1 de l'assistant import Texte... si je fait ensuite "terminer" la
macro se pousuit et j'ai un message d'erreur qui me dit que le fichier
Fichier.xls est introuvable....
Que faut-il faire pour eviter cela ?

Ce que j'ai fait :
Application.DisplayAlerts = False
Application.ScreenUpdating = False
'Sélection du fichier à convertir (D:test2006.txt)
Select Case Application.Dialogs(xlDialogOpen).Show
Case True
Fichier = ActiveWorkbook.Name
Case False
MsgBox "Aucun fichier n'a été sélectionnné", vbExclamation,
"Erreur"

Exit Sub
End Select
'
Workbooks.OpenText Filename:="Fichier", Origin:=xlMSDOS, StartRow:=1,
DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:úlse, Tab:=True,
Semicolon:=True, _
Comma:úlse, Space:úlse, Other:úlse,
FieldInfo:=Array(Array(1,

2), _
Array(2, 2), Array(3, 1), Array(4, 4), Array(5, 2), Array(6, 2),
Array(7, 2), ...etc


Merci
Domi

Bonjour à tous,
J'utilise dans une macro cette syntaxe pour ouvrir et formater rapidement un
fichier texte.Ca marche.

Workbooks.OpenText Filename:="D:test2006.txt", Origin:=xlMSDOS,
StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:úlse, Tab:=True,
Semicolon:=True, _
Comma:úlse, Space:úlse, Other:úlse, FieldInfo:=Array(Array(1,
2), _
Array(2, 2), Array(3, 1), Array(4, 4), Array(5, 2), Array(6, 2),
Array(7, 2), ......etc

Je voudrais pouvoir choisir via Application.Dialogs(xlDialogOpen).Show (ou
autre) le fichier et le formater ensuite comme ci dessus.
Ca coince, le fichier est bien selectionné mais la macro s'arrête sur
l'etape 1 de l'assistant import Texte... si je fait ensuite "terminer" la
macro se pousuit et j'ai un message d'erreur qui me dit que le fichier
Fichier.xls est introuvable....
Que faut-il faire pour eviter cela ?

Ce que j'ai fait :
Application.DisplayAlerts = False
Application.ScreenUpdating = False
'Sélection du fichier à convertir (D:test2006.txt)
Select Case Application.Dialogs(xlDialogOpen).Show
Case True
Fichier = ActiveWorkbook.Name
Case False
MsgBox "Aucun fichier n'a été sélectionnné", vbExclamation, "Erreur"
Exit Sub
End Select
'
Workbooks.OpenText Filename:="Fichier", Origin:=xlMSDOS, StartRow:=1,
DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:úlse, Tab:=True,
Semicolon:=True, _
Comma:úlse, Space:úlse, Other:úlse, FieldInfo:=Array(Array(1,
2), _
Array(2, 2), Array(3, 1), Array(4, 4), Array(5, 2), Array(6, 2),
Array(7, 2), ...etc


Merci
Domi

Salut

un piste....
Pour le début
fichier = Application.GetOpenFilename("Fichiers texte (*.txt), *.txt")
If fichier = False Then Exit Sub
Workbooks.Open fichier

et après utilise l'enregistreur de macro avec donnée/convertir pour le
formatage

a+
rural thierry

"Domi" <scrat83@free.fr> a écrit dans le message de
news:u3e5MsyhHHA.4952@TK2MSFTNGP02.phx.gbl...

Bonjour à tous,
J'utilise dans une macro cette syntaxe pour ouvrir et formater rapidement
un

fichier texte.Ca marche.

Workbooks.OpenText Filename:="D:test2006.txt", Origin:=xlMSDOS,
StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:úlse, Tab:=True,
Semicolon:=True, _
Comma:úlse, Space:úlse, Other:úlse,
FieldInfo:=Array(Array(1,

2), _
Array(2, 2), Array(3, 1), Array(4, 4), Array(5, 2), Array(6, 2),
Array(7, 2), ......etc

Je voudrais pouvoir choisir via Application.Dialogs(xlDialogOpen).Show
(ou
autre) le fichier et le formater ensuite comme ci dessus.
Ca coince, le fichier est bien selectionné mais la macro s'arrête sur
l'etape 1 de l'assistant import Texte... si je fait ensuite "terminer" la
macro se pousuit et j'ai un message d'erreur qui me dit que le fichier
Fichier.xls est introuvable....
Que faut-il faire pour eviter cela ?

Ce que j'ai fait :
Application.DisplayAlerts = False
Application.ScreenUpdating = False
'Sélection du fichier à convertir (D:test2006.txt)
Select Case Application.Dialogs(xlDialogOpen).Show
Case True
Fichier = ActiveWorkbook.Name
Case False
MsgBox "Aucun fichier n'a été sélectionnné", vbExclamation,
"Erreur"

Exit Sub
End Select
'
Workbooks.OpenText Filename:="Fichier", Origin:=xlMSDOS, StartRow:=1,
DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:úlse, Tab:=True,
Semicolon:=True, _
Comma:úlse, Space:úlse, Other:úlse,
FieldInfo:=Array(Array(1,

2), _
Array(2, 2), Array(3, 1), Array(4, 4), Array(5, 2), Array(6, 2),
Array(7, 2), ...etc


Merci
Domi

Salut à toi
A première vue ton instruction comporte une erreur de syntaxe dans la
partie :
Workbooks.OpenText Filename:="Fichier", ....
Si tu fait appel à la valeur "Fichier" décrite en amont (Fichier > ActiveWorkbook.Name) tu ne doit pas la mettre entre 2 guillemets
Met plutôt ainsi :
Workbooks.OpenText Filename:=Fichier, ....

Celà devrait mieux fonctionner

Dis moi !!!

Bonjour à tous,
J'utilise dans une macro cette syntaxe pour ouvrir et formater rapidement
un
fichier texte.Ca marche.

Workbooks.OpenText Filename:="D:test2006.txt", Origin:=xlMSDOS,
StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:úlse, Tab:=True,
Semicolon:=True, _
Comma:úlse, Space:úlse, Other:úlse,
FieldInfo:=Array(Array(1,
2), _
Array(2, 2), Array(3, 1), Array(4, 4), Array(5, 2), Array(6, 2),
Array(7, 2), ......etc

Je voudrais pouvoir choisir via Application.Dialogs(xlDialogOpen).Show
(ou
autre) le fichier et le formater ensuite comme ci dessus.
Ca coince, le fichier est bien selectionné mais la macro s'arrête sur
l'etape 1 de l'assistant import Texte... si je fait ensuite "terminer" la
macro se pousuit et j'ai un message d'erreur qui me dit que le fichier
Fichier.xls est introuvable....
Que faut-il faire pour eviter cela ?

Ce que j'ai fait :
Application.DisplayAlerts = False
Application.ScreenUpdating = False
'Sélection du fichier à convertir (D:test2006.txt)
Select Case Application.Dialogs(xlDialogOpen).Show
Case True
Fichier = ActiveWorkbook.Name
Case False
MsgBox "Aucun fichier n'a été sélectionnné", vbExclamation,
"Erreur"
Exit Sub
End Select
'
Workbooks.OpenText Filename:="Fichier", Origin:=xlMSDOS, StartRow:=1,
DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:úlse, Tab:=True,
Semicolon:=True, _
Comma:úlse, Space:úlse, Other:úlse,
FieldInfo:=Array(Array(1,
2), _
Array(2, 2), Array(3, 1), Array(4, 4), Array(5, 2), Array(6, 2),
Array(7, 2), ...etc


Merci
Domi

Le problème rest le même sans les guillmets sauf que je n'ai plus de message
à la fin...
Merci tout de même
Domi

"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de news:
D4DF5D86-F612-425F-9CD4-C2B8926F2CFE@microsoft.com...

Salut à toi
A première vue ton instruction comporte une erreur de syntaxe dans la
partie :
Workbooks.OpenText Filename:="Fichier", ....
Si tu fait appel à la valeur "Fichier" décrite en amont (Fichier > > ActiveWorkbook.Name) tu ne doit pas la mettre entre 2 guillemets
Met plutôt ainsi :
Workbooks.OpenText Filename:=Fichier, ....

Celà devrait mieux fonctionner

Dis moi !!!

Bonjour à tous,
J'utilise dans une macro cette syntaxe pour ouvrir et formater rapidement
un
fichier texte.Ca marche.

Workbooks.OpenText Filename:="D:test2006.txt", Origin:=xlMSDOS,
StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:úlse, Tab:=True,
Semicolon:=True, _
Comma:úlse, Space:úlse, Other:úlse,
FieldInfo:=Array(Array(1,
2), _
Array(2, 2), Array(3, 1), Array(4, 4), Array(5, 2), Array(6, 2),
Array(7, 2), ......etc

Je voudrais pouvoir choisir via Application.Dialogs(xlDialogOpen).Show
(ou
autre) le fichier et le formater ensuite comme ci dessus.
Ca coince, le fichier est bien selectionné mais la macro s'arrête sur
l'etape 1 de l'assistant import Texte... si je fait ensuite "terminer" la
macro se pousuit et j'ai un message d'erreur qui me dit que le fichier
Fichier.xls est introuvable....
Que faut-il faire pour eviter cela ?

Ce que j'ai fait :
Application.DisplayAlerts = False
Application.ScreenUpdating = False
'Sélection du fichier à convertir (D:test2006.txt)
Select Case Application.Dialogs(xlDialogOpen).Show
Case True
Fichier = ActiveWorkbook.Name
Case False
MsgBox "Aucun fichier n'a été sélectionnné", vbExclamation,
"Erreur"
Exit Sub
End Select
'
Workbooks.OpenText Filename:="Fichier", Origin:=xlMSDOS, StartRow:=1,
DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:úlse, Tab:=True,
Semicolon:=True, _
Comma:úlse, Space:úlse, Other:úlse,
FieldInfo:=Array(Array(1,
2), _
Array(2, 2), Array(3, 1), Array(4, 4), Array(5, 2), Array(6, 2),
Array(7, 2), ...etc


Merci
Domi

Essai ce code qui aprés l'avoir testé fonctionne :

Application.DisplayAlerts = False
Application.ScreenUpdating = False
'Sélection du fichier à convertir (D:test2006.txt)
ChDrive ("D")
ChDir "D:test"
Fichier = Application.GetOpenFilename("(*.txt),")
If Fichier = False Then
MsgBox "Aucun fichier n'a été sélectionnné", vbExclamation, "Erreur"
Exit Sub
End If
Workbooks.OpenText Filename:=Fichier, Origin:=xlMSDOS, StartRow:=1,
DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:úlse, Tab:=True, Semicolon:=True, _
Comma:úlse, Space:úlse, Other:úlse, FieldInfo:=Array(Array(1, 2), _
Array(2, 2), Array(3, 1), Array(4, 4), Array(5, 2), Array(6, 2), Array(7,
2))

Il a de plus l'avantage de prépositionner la boîte de dialogue sur une
partie du chemin
Reste à sélectionner la suite

Dis moi !!!!

Le problème rest le même sans les guillmets sauf que je n'ai plus de
message
à la fin...
Merci tout de même
Domi

"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de news:
D4DF5D86-F612-425F-9CD4-C2B8926F2CFE@microsoft.com...

Salut à toi
A première vue ton instruction comporte une erreur de syntaxe dans la
partie :
Workbooks.OpenText Filename:="Fichier", ....
Si tu fait appel à la valeur "Fichier" décrite en amont (Fichier >> > ActiveWorkbook.Name) tu ne doit pas la mettre entre 2 guillemets
Met plutôt ainsi :
Workbooks.OpenText Filename:=Fichier, ....

Celà devrait mieux fonctionner

Dis moi !!!

Bonjour à tous,
J'utilise dans une macro cette syntaxe pour ouvrir et formater
rapidement
un
fichier texte.Ca marche.

Workbooks.OpenText Filename:="D:test2006.txt", Origin:=xlMSDOS,
StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:úlse, Tab:=True,
Semicolon:=True, _
Comma:úlse, Space:úlse, Other:úlse,
FieldInfo:=Array(Array(1,
2), _
Array(2, 2), Array(3, 1), Array(4, 4), Array(5, 2), Array(6,
2),
Array(7, 2), ......etc

Je voudrais pouvoir choisir via Application.Dialogs(xlDialogOpen).Show
(ou
autre) le fichier et le formater ensuite comme ci dessus.
Ca coince, le fichier est bien selectionné mais la macro s'arrête sur
l'etape 1 de l'assistant import Texte... si je fait ensuite "terminer"
la
macro se pousuit et j'ai un message d'erreur qui me dit que le fichier
Fichier.xls est introuvable....
Que faut-il faire pour eviter cela ?

Ce que j'ai fait :
Application.DisplayAlerts = False
Application.ScreenUpdating = False
'Sélection du fichier à convertir (D:test2006.txt)
Select Case Application.Dialogs(xlDialogOpen).Show
Case True
Fichier = ActiveWorkbook.Name
Case False
MsgBox "Aucun fichier n'a été sélectionnné", vbExclamation,
"Erreur"
Exit Sub
End Select
'
Workbooks.OpenText Filename:="Fichier", Origin:=xlMSDOS,
StartRow:=1,
DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:úlse, Tab:=True,
Semicolon:=True, _
Comma:úlse, Space:úlse, Other:úlse,
FieldInfo:=Array(Array(1,
2), _
Array(2, 2), Array(3, 1), Array(4, 4), Array(5, 2), Array(6,
2),
Array(7, 2), ...etc


Merci
Domi