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