macro mis en forme separateur

[serge]

Bonjour,

Voila je cherche a faire une macro sous excel pour importer un fichier automatiquement et a le mettre en forme tous seul....
voici le code que j'utilise:

Sub ImporterFichier()
Dim r, Data
Range('A1').Activate
Open 'C:\\Test.txt' For Input As #1
r = 0
Do Until EOF(1)
Line Input #1, Data
ActiveCell.Offset(r, 0) = Data
r = r + 1
Loop
Close #1
End Sub
il me manque la commande pour dire a excel quand il importe le fichier .txt que le separateur pour les cellules est un '~'... quelqu'un a une idee...?
Merci d'avance
Serge

 

[Gruick]

Bonjour Serge,
En fait, pour ne pas avoir de problème, il faut faire une macro auto enregistrée par nouvelle macro, s'en inspirer pour la coller après où on veut.
Donc, Nlle Macro, ouvrir (ton doc.txt), délimité, suivant, séparateur autre, tu tapes ta tilde (AltGr 2) deux fois, terminer et hop, c'est fait.
Viva España !!

 

[Hervé]

Bonjour serge, gruick

sinon, essayes comme ceci :

Dim r As Integer
Dim Data As String
Dim tablosplit As Variant
Dim i As Byte


Open 'C:\\\\\\\\Test.txt' For Input As #1
r = 1
Do Until EOF(1)
        Line Input #1, Data
        tablosplit = Split(Data, '~')
        For i = 0 To UBound(tablosplit)
                Cells(r, i + 1) = tablosplit(i)
        Next i
        r = r + 1
Loop
Close #1

salut