Discussion :

[lexxor]

Bonjour à la communauté,

Pour le développement d'une application, j'ai réalisé des macros excels afin de mettre en forme un fichier .csv contenant que des informations Hexadecimales.

Lorsque j'importe le fichier .csv grâce à un bouton sur mon fichier de mise en forme, il me transforme une partie des trames (Par exemple : 6E69 -> 6,00E+69 ou 5E01 -> 5,00E+01 ...)
Y a-t-illa possibilité de définir le type de données à lire dans le fichier csv (ici HEXA) ?

Macro d'ouverture du fichier CSV :

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
' Ouverture du fichier d'enregistrement format CSV
    On Error GoTo Err_Ouverture
    Workbooks.OpenText FileName:=Application.GetOpenFilename("Fichiers CSV (*.csv), *.csv", , "OUVRIR UN FICHIER D'ENREGISTREMENT"), Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, _
        Comma:=True, Space:=False, Other:=True, OtherChar:="=", FieldInfo:= _
        Array(Array(1, 1), Array(2, 1), Array(3, 1))
 
' Mémorisation du nom du fichier d'enregistrement format CSV ouvert
    NomFichierEnreg = ActiveWorkbook.Name
 
' Conversion des données format EXCEL et texte
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
    Semicolon:=False, Comma:=True, Space:=False, Other:=False, OtherChar _
    :="=", FieldInfo:=Array(Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 2), Array(5, _
    2), Array(6, 2), Array(7, 2), Array(8, 2), Array(9, 2), Array(10, 2))
 
' Copie des données dans le fichier de mise en forme
    Cells.Select
    Selection.Copy
    NomFichierMiseEnForme = ThisWorkbook.Name
    Windows(NomFichierMiseEnForme).Activate
    Sheets("Enregistrement").Select
    Cells.Select
    ActiveSheet.Paste
 
' Fermeture du fichier d'enregistrement format CSV
    Windows(NomFichierEnreg).Activate
    Application.DisplayAlerts = False 'Désactive la boîte de dialogue de confirmation.
    ActiveWindow.Close
    Application.DisplayAlerts = True  'retour à la normale
 
' Efface la feuille de mise en forme enregistrement
    If FeuilleExiste("Mise en forme enregistrement") Then
        Application.DisplayAlerts = False 'Désactive la boîte de dialogue de confirmation.
        Sheets("Mise en forme enregistrement").Delete
        Application.DisplayAlerts = True 'retour à la normale
    End If

Je vous est mis en pièce jointe un exemple de fichier .csv que je dois mettre en forme. Il est necessaire de l'ouvrir avec le bloc note afin de ne pas rencontrer le problème mentionner ci-dessus.

Je vous remercie de votre aide.

Respectueusement Alexandre