Discussion :

[Vincent32]

Bonjour,

J'importe des fichiers texte dans une feuille de classeur. Ces fichiers textes comporte deux colonnes qui peuvent être soit séparées par une virgule (code ascii 44) soit par une tabulation (code ascii 13). Je sais importer soit un cas soit l'autre mais pas déterminer lequel choisir. Une idée ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
'Importation des données .dpt dans le classeur
        C = 2 'Boucle sur fichiers du repertoire
            For Each FsoFichier In FsoRepertoire.Files
                i = 2
                str = Split(FsoFichier.Name, ".") 'Vérifie si le fichier a l'extension souhaité
                    If str(UBound(str)) = "dpt" Then
                        Sheets("Import").Cells(1, C).Value = NomFichierSansExtension(FsoFichier.Name)
                        Open FsoFichier.Path For Input As #1 'ouvre le fichier
                            Do While Not EOF(1) 'Boucle sur chaque ligne du fichier
                                Line Input #1, strLigne
                                str = Split(strLigne, Chr(44))
                                Sheets("Import").Cells(i, C).Value = str(1) 'insere la ligne dans la cellule
                                If C = 2 Then
                                    Sheets("Import").Cells(i, 1).Value = str(0)
                                End If
                                i = i + 1
                            Loop
                        Close #1
                        C = C + 1
                    End If
            Next
        ws1.[A1] = "Nombre d'onde (cm-1)"
        ws1.[A1].Characters(Start:=18, Length:=2).Font.Superscript = True

Merci d'avance pour votre aide

[jfontaine]

Bonjour,

Une méthode serait de tester sur la première ligne avec le séparateur tabulation.
Si une seule colonne alors on utilise chr(44) sinon chr(13)

[Vincent32]

Merci jérome pour ta réponse

En fait il ne faut pas tester le nombre de colonne mais si le caractère existe sur la première ligne alors l'utiliser. Mais je ne vois pas comment faire le test

[jfontaine]

En fait il ne faut pas tester le nombre de colonne mais si le caractère existe sur la première ligne alors l'utiliser. Mais je ne vois pas comment faire le test

C'est une autre approche

En testant si caractère existant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If InStr(StrLigne, ";") > 0 Then
    MsgBox "séparateur ;"
Else
    MsgBox "séparateur Tab"
End If

[Vincent32]

Merci beaucoup pour cette solution qui fonctionne très bien !