Réalisation d'une macro

[Nivtec]

Voila je suis étudiant et j'ai un soucis qu'une macro excel pourrait m'aider à résoudre. (Tout du moins à ne plus passer des heures interminables dessus)

Donc le problème c'est que j'ai des fichiers sous format txt que je dois mettre en forme sous excel pour le traiter.
Le soucis provient surtout de la mise en forme.
J'ai essayé de faire une macro via le module enregistrement d'une macro mais le problème arrive pour la fin de la macro.Les fichiers étant de longueur variables donc de nombreux sauts de page et de ligne total /Totaux.
Je dois avouer que je désespère.

Voila je m'adresse à vous en espérant que vous pourrez m'aider.

 

[Pierrot93]

Re : Réalisation d'une macro

Bonjour,

A tout hasard, peut être essayé la conversion de données, barre de menu Excel => Données => convertir.

bonne soirée
@+

 

[Nivtec]

Re : Réalisation d'une macro

J'ai essayé le soucis c'est qu'après je dois remettre en forme + oter les totaux
Et quand j'ai des fichiers qui font 20 000 lignes c'est ardu.
Mais j'avoue que c'est ma méthode actuelle.
(1h par fichier environ)

 

[bbb38]

Re : Réalisation d'une macro

Bonjour Nivtec, le forum,
Une solution est possible si le code en colonne A comprend toujours 2 chiffres suivi d’une lettre, d’un chiffre et de 2 lettres (composition du code actuel).
Cordialement,
Bernard

 

[Nivtec]

Re : Réalisation d'une macro

Malheureusement non
Par contre le nombre de caractère est fixe mais il peut y avoir chiffres ou lettres voire les 2.

 

[Efgé]

Re : Réalisation d'une macro

Bonjour Nivtec, bbb38, Bonjour Pierrot
Avec ce que j'ai compris...
En ayant le modèle dans le même classeur que le fichier texte:

Sub test()
Dim i&, j&, FSO As Object, Fichier As Object, TMP
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Fichier = FSO.OpenTextFile(ThisWorkbook.Path & "\Exemple.txt")
Application.ScreenUpdating = False
Sheets.Add Before:=Sheets(1)
With ActiveSheet
    Do
        If InStr(Fichier.ReadLine, "!") > 0 Then
            TMP = Split(Fichier.ReadLine, "!")
            If UBound(TMP) > 0 Then
                If Trim(TMP(1)) <> "" And Left(Trim(TMP(1)), 1) <> "*" Then
                    If Not CStr(Left(Trim(TMP(1)), 1)) Then
                        i = i + 1
                        .Cells(i, 1).Value = TMP(1)
                        For j = 2 To UBound(TMP)
                            If Trim(TMP(j)) <> "" Then
                                .Cells(i, j).Value = CDbl(Replace(TMP(j), ".", ","))
                            End If
                        Next j
                    End If
                End If
            End If
        End If
    Loop While Not Fichier.AtEndOfStream
    .Columns.AutoFit
End With
Application.ScreenUpdating = True
End Sub

Cordialement

 

[Nivtec]

Re : Réalisation d'une macro

merci
Mais je fais comment pour la faire fonctionner?
Elle me mets "Fichier Introuvable"....
Désolé d'etre une buse sur ce coup la

 

[Efgé]

Re : Réalisation d'une macro

Bonjour Nivtec, le fil, le forum, Remplace

\Exemple.txt

Par le nom de ton fichier, et vérifie qu'il est dans le même dossier que le classeur qui porte la macro. Cordialement

 

[Nivtec]

Re : Réalisation d'une macro

OK merci.
Le fichier résultat est ok mais je suis confronté à 2 problèmes:
le premier, il me mets incompatibilité de type
le second, il s'arrete des que la référence commence par une lettre.
je suppute que le premier est lié au second... mais je ne vois pas trop comment faire.

 

[Efgé]

Re : Réalisation d'une macro

Re, Peux tu mettre l'exemple qui "coince" ? Cordialement

 

[Nivtec]

Re : Réalisation d'une macro

Voila un exemple

 

[Efgé]

Re : Réalisation d'une macro

Re, Une nouvelle version. Cordialement

 

[Nivtec]

Re : Réalisation d'une macro

Un grand merci, c'est parfait.
Je me charge de la mise en forme.