Séparateur de millier fichier importé

Bonjour,

Mon problème est que j'ai un séparateur de millier lorsque que je fais un export de mon logiciel compta. (export en format txt)

Bien entendu, j'ai essayé de voir tous les post mis ici pour trouver la solution, et je n'ai pas réussi.

Je suis plutôt débutante dans excel.

merci de votre aide

Bonjour,

Essais avec la fonction CNUM() !

Bonjour,

Cela me met: #VALEUR!

Le problème est que dans cette colonne d'export j'ai l'impression qu'il y a deux formats ....

Bonjour,

Peux-tu joindre ton fichier txt ?

Cdlt.

Bonjour

donne au moins un modèle de ton fichier

car la on voie rien

A+

Maurice

Bonjour,

Ci-joint une partie du fichier ou j'ai modifié bien entendu les libéllés, c'est la colonne F que je voudrais sans espace dans les nombres.

merci

Re,

Une proposition à étudier.

Réalisée avec Power Query, complément Microsoft gratuit à télécharger, pour Excel 2013.

1 - As-tu la possibilité d'installer ce complément ?

2 - Le résultat est il celui attendu ?

A te relire.

Cdlt.

Bonjour

Voila une macro Import Txt

Private Sub ChoixFicTxt()
Dim dossier As FileDialog
ChoixChemin = ActiveWorkbook.Path & Application.PathSeparator
   Set dossier = Application.FileDialog(msoFileDialogFilePicker)
      With dossier
         .AllowMultiSelect = False
         .InitialFileName = ChoixChemin
         .Title = "Choix d'un fichier Txt"
         .Filters.Clear
         .Filters.Add "Fichier Txt ", "*.txt*", 1
            If .Show = -1 Then
               Chemin = .SelectedItems(1)
               LireMan Chemin
            End If
      End With
   Set dossier = Nothing
End Sub

Sub LireMan(NomFichier)
Dim Ar() As String
Dim Lig&, Col&, X&
   With Application
      .ScreenUpdating = False
      .EnableEvents = False
      .Calculation = xlManual
   End With
Rows("1:" & Rows.Count).ClearContents
'Sep = ","
Sep = vbTab
Lig = 1
' -----------------------------------------
On Error Resume Next
   Open NomFichier For Input As #1
        Do While Not EOF(1)
            Line Input #1, Chaine
               Ar = Split(Chaine, Sep)
               Col = 1
                  For X = LBound(Ar) To UBound(Ar)
                    Select Case Col
                        Case 3, 13
                            Cells(Lig, Col).Value = CDate(Ar(X))
                        Case 6
                            Cells(Lig, Col).Value = CDbl(Ar(X))
                        Case Else
                            Cells(Lig, Col).Value = CStr(Ar(X))
                    End Select
                     Col = Col + 1
                  Next
            Lig = Lig + 1
        Loop
    Close #1
' -----------------------------------------
   With Application
      .ScreenUpdating = True
      .Calculation = xlCalculationAutomatic
      .EnableEvents = True
      .CutCopyMode = False
      .Goto [A1], True
   End With
End Sub

A+

Maurice

Jean Eric,

j'ai réussi a télécharger Power Query, mais ensuite je fais quoi?

je rappel que je n'y connais pas grand chose a excel.

Archer, la macro est un monde inconnu pour moi .... désolée, mais merci quand même

Jean Eric,

J'ai réussi !!! merciiiiiiiii

Re,

Merci de ce retour !...

Reviens vers nous pour un complément d'informations.

Cdlt.