Pbs fichier txt

Bonjour,

j'utilise le chargement d'un fichier txt avec une macro.

mon fichier est comme cela sur le site:

1744687477,daniel.plancot@gmail.com

750311152,morganplancot@gmail.com

872986569,9158d.l.r@gmail.com

par contre quand il as chargé le fichier sur mon disque dur il se transforme en:

1744687477,daniel.plancot@gmail.com750311152,morganplancot@gmail.com872986569,9158d.l.r@gmail.com

quand je l'ouvre avec le bloc note est est bon avec wordpad??????

et donc ma macro de lecture ne fonctionne pas??????

Sub LireFichierTXT()
   Dim i As Long
   Dim xRepertoire As String
   Dim xNomFichier As String
   Dim Lig As Long
   Dim iFile As Integer
   Dim xNumSerie As String
   Dim xAdrMail As String
   Dim WS As Worksheet

  ' xRepertoire = Workbooks(ActiveWorkbook.Name).Path & ":"   'Doit terminer avec un ":"  pour mac
   xRepertoire = Workbooks(ActiveWorkbook.Name).Path & "\"    'Doit terminer avec un "\" pour PC
   xNomFichier = [ND_NomFich]

   If Right(xNomFichier, 4) <> ".txt" Then xNomFichier = xNomFichier & ".txt"

   Set WS = Sheets("ADMIN")                 'Feuille o _crire les r_sultats

   'Ouvrir le fichier
   iFile = FreeFile
Open xRepertoire & xNomFichier For Input As #iFile

   'Lecture du fichier et _criture dans Excel
   Lig = 16
   Do Until EOF(iFile)
      Input #iFile, xNumSerie, xAdrMail
      WS.Cells(Lig, "G") = xNumSerie
      WS.Cells(Lig, "H") = xAdrMail
      Lig = Lig + 1
   Loop
   Close #iFile                             'Fermer le fichier
End Sub

j'ai le message "l'entrée dépasse la fin du fichier (erreur d'excecution 62).

quelqu'un aurait il une idée???

Daniel

re,

une info quand je crée mon fichier txt il est bon que ce soit sur wordpad ou blocnote.

il y as donc un probléme entre le site de téléchargement et la sauvegarde.

sur le site c'est bon mais quand il arrive sur le DD plus bon?????

RE je viens de passer en rtf mais même chose je pense que c'est du à la façon d'ouvrir le fichier dans la macro il doit utiliser le blocnote et là c'est pas bon.

Daniel

Bonjour à tous,

personne n'a une idée???

Bon WE

Daniel

RE,

une idée si je fais une importation de données (donc ici txt).

j'utilise la cellule nommée [ND_NomFich] pour avoir le nom du fichier txt qui ce trouve dans le même répertoire.

j'utilise un tableau nommé Tab_PCOK pour stocker les données sur deux colonnes en G16 sur la feuille ADMIN.

voici mon code et j'aimerais avoir votre avis car la je suis sur MAC et cela ne marche pas et de plus il y a beaucoup de choses pour une opération simple.

Sub LireFichierTXT()
   Dim xRepertoire As String
   Dim xNomFichier As String

   xRepertoire = Workbooks(ActiveWorkbook.Name).Path & "\"    'Doit terminer avec un "\" pour PC

   xNomFichier = [ND_NomFich]

   If Right(xNomFichier, 4) <> ".txt" Then xNomFichier = xNomFichier & ".txt"

   Worksheets("ADMIN").Select

   With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;xRepertoire & xNomFichier" _
        , Destination:=Range("$G$16"))
         .CommandType = 0
        .Name = xNomFichier
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With

    End Sub
 

fichier txt en piéce jointe.

à l'avance merci

Daniel

Bonjour,

essai plutôt avec line Input

(...)
If not EOF(iFile) then        Line Input #iFile, xNumSerie
If not EOF(iFile) then        Line Input #iFile,  xAdrMai
(...)

Bonjour,

merci pour cette aide.

Daniel