import fichier *.txt

[Francis31000]

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]

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

 

[Francis31000]

oki oki , Abel, merci pour ton indication , piste à suivre , je te tiens au courant par ce fil 😉

 

[Spock]

Bonjour, francis, abel,

J'ai fais cela plusieurs fois.

Si tu ne trouve pas de solution, je 'rapatrierai' un exemple du boulot qui devrait t'aider.

 

[Francis31000]

Ben si tu l'as , ça m'arrangerai bien, je n'arrive pas à mettre le séparateur.
j'importe un fichier *.txt avec comme séparateur de colonne le point d'exclamation

Merci par avance

 

[MichelXld]

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

 

[Francis31000]

Un grand MERCI à toi MichelXLD 🙂
je le testerai demain matin, et je pense que ça fonctionnera merci à toi, ainsi qu'a Abel et Spock 😉

 

[Francis31000]

Bonjour à toutes et à tous,

Je viens de tester la modif de MichelXld, et ça fonctionne à merveille
C'est exactement ce qu'il me fallait un grand merci a toi MichelXld

😉