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