import fichier *.txt

Francis31000

XLDnaute Nouveau
Bonjour à tous et à toutes
voici ma question: j'ai dans un Userform , un bouton qui déclenche un import de fichier *.txt avec ce petit bout de code :


Dim CeFichier As String

Private Sub CmdImport_Click()
ChDir 'C:\\'
ChDir 'C:\\'
CeFichier = Application.GetOpenFilename('Text Files (*.txt), *.txt')
If VarType(CeFichier) = vbBoolean Then
Exit Sub
Else
Workbooks.OpenText Filename:=CeFichier, Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False, _
Space:=False, Other:=False, FieldInfo:=Array(1, 1)
End If
Unload UserForm7
End Sub


cela fonctionne tres bien , seulement, cela me copie toute la ligne de text dans une seule cellule.

Y a t'il une astuce pour 'découper' la ligne en plusieurs valeurs ?

Merci par avance pour toutes vos suggestions
 

Abel

XLDnaute Accro
Bonjour Francis31000,

C'est peut être le type de séparateur que tu as choisi qui ne convient pas.

Vérifie le fichier texte pour voir s'il s'agit d'un fichier délimité (en premier lieu) puis vérifie le séparateur.

Dans le code, tu as choisi la tabulation. Il faut peut être mettre la virgule ou autre chose.

Abel.

Message édité par: Abel, à: 31/08/2005 16:29
 

MichelXld

XLDnaute Barbatruc
bonjour Francis , Abel et Spock

si le séparateur est le point d'exclamation tu peux tester

Workbooks.OpenText Filename:=CeFichier, Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=False, _
Space:=False, Other:=True, otherchar:='!', FieldInfo:=Array(1, 1)


bonne soiree
MichelXld
 

Discussions similaires

Statistiques des forums

Discussions
311 711
Messages
2 081 799
Membres
101 818
dernier inscrit
tiftouf5757