Suppression de caractère

Version imprimable

Bonjour à tous, je viens suite à un problème que j'ai eu la semaine dernière.

J'avais déjà créé un post suite à mon soucis de la semaine passée, il est résolue partiellement, mais un nouveau problème vient s'ajouter :

J'ouvre mon classeur excel, j'appuie sur un bouton.
En appuyant sur ce bouton, je créé un fichier généré par mon code VBA.

Ce code est le suivant :
Code:

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 Dim Ratio As Integer Dim Pole As Integer Dim Nom As String Function asc2hex(ByVal StrName As String) As String Dim loopCount As Integer, strHold As String For loopCount = 1 To Len(StrName) strHold = strHold & Hex(Asc(Mid(StrName, loopCount, 1))) Next loopCount asc2hex = strHold End Function Public Function hex2asc(ByVal str As String) As String Dim p As Integer For p = 1 To Len(str) Step 2 hex2asc = hex2asc & Chr(CInt("&H" & Mid(str, p, 2))) Next p End Function Private Sub CommandButton1_Click() Range("A1").Select ActiveCell.FormulaR1C1 = "2121204E69636874204265617262656974656E202D2D2D2D20446F204E6F742045646974202121" Range("A2").Select ActiveCell.FormulaR1C1 = hex2asc("2121204E69636874204265617262656974656E202D2D2D2D20446F204E6F742045646974202121" & "0D0D0A") Sheets("PLC").Copy CHEMIN_D_ACCES = "C:\Users\Germain\Desktop\" ActiveSheet.Copy ActiveWorkbook.SaveAs Filename:=CHEMIN_D_ACCES & "PLC_" & [C7].Value & ".sbt", FileFormat:=xlText, CreateBackup:=False End Sub
Je pense que le problème se situe dans la façon que j'ai de créer le fichier.
Quand je crée le fichier sur la ligne où je fais la conversion hex2asc il me met des " en début et fin de ligne. Je crois savoir que c'est parce qu'il considère m donnée comme un string, puisque c'est comme ça que je l'ai déclarer.Le soucis c'est que je n'en veux pas mais je ne vois pas comment déclarer cette donnée autrement qu'en String.

Je pense que je dois mal enregistrer mon fichier mais je ne vois pas d'autre façon de procéder.

Merci d'avance !

30/04/2012, 11h54
Daniel.C

Bonjour,
C'est l'ajout des caractères "0D0D0A" qui est mal interprétée lors de la conversion en fichier texte. Je t'avais donné une macro pour le faire. Sers-t'en.
02/05/2012, 08h26
Etudiant57

Bonjour Daniel.C,

Votre idée m'a permis de me débloqué, le plus gros problème est réglé, j'arrive à créé mon fichier parfaitement.

Evidemment, ca ne fonctionne toujours pas ce serait trop beau !

Mon soucis maintenant c'est que lorsque je fais ma conversion asc2hex d'un chiffre binaire comme 00000001, le résultat est juste et me donne 31. Malheureusement j'aurais souhaité qu'il me donne 3030303030303031.

Auriez vous une idée de la façon dont je pourrais procéder pour tenir compte des 0 ?

Voilà le code que je viens d'élaborer, malheureusement le problème reste le même :

Code:

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
Private Sub CommandButton1_Click()
a = 19
For i = 0 To 161
 
    a = a + 14
    Range("A" & a).Select
    Selection.NumberFormat = "00000000"
    If Range("A" & a).Value = "00000000" Then
        Range("A" & a).Value = "3030303030303030"
    ElseIf Range("A" & a).Value = "00000001" Then
        Range("A" & a).Value = "3030303030303031"
    ElseIf Range("A" & a).Value = "00000010" Then
        Range("A" & a).Value = "3030303030303130"
    End If
    a = a + 1
    Range("A" & a).Select
    Selection.NumberFormat = "000"
    If Range("A" & a).Value = "000" Then
        Range("A" & a).Value = "303030"
    ElseIf Range("A" & a).Value = "001" Then
        Range("A" & a).Value = "303031"
    ElseIf Range("A" & a).Value = "010" Then
        Range("A" & a).Value = "303130"
    ElseIf Range("A" & a).Value = "011" Then
        Range("A" & a).Value = "303131"
    ElseIf Range("A" & a).Value = "100" Then
        Range("A" & a).Value = "313030"
    ElseIf Range("A" & a).Value = "101" Then
        Range("A" & a).Value = "313031"
    ElseIf Range("A" & a).Value = "110" Then
        Range("A" & a).Value = "313130"
    ElseIf Range("A" & a).Value = "111" Then
        Range("A" & a).Value = "313131"
    End If
    a = a - 1
Next i
End Sub

La variable a représente les lignes qui sont en binaire.

Je vais donc sauté de ligne en ligne en transformant manuellement le code binaire en ASCII, malheureusement, il en va de même qu'avec la fonction asc2hex. Ca ne marche uniquement pour les numéros binaire commencant par un "1".

Problème résolue en changeant le code comme cela :

Code:

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
Private Sub CommandButton1_Click()
a = 19
For i = 0 To 161
 
    a = a + 14
    Range("A" & a).Select
    Selection.NumberFormat = "0"
    If Range("A" & a).Value = "0" Then
        Range("A" & a).Value = "3030303030303030"
    ElseIf Range("A" & a).Value = "1" Then
        Range("A" & a).Value = "3030303030303031"
    ElseIf Range("A" & a).Value = "10" Then
        Range("A" & a).Value = "3030303030303130"
    End If
    a = a + 1
    Range("A" & a).Select
    Selection.NumberFormat = "0"
    If Range("A" & a).Value = "0" Then
        Range("A" & a).Value = "303030"
    ElseIf Range("A" & a).Value = "1" Then
        Range("A" & a).Value = "303031"
    ElseIf Range("A" & a).Value = "10" Then
        Range("A" & a).Value = "303130"
    ElseIf Range("A" & a).Value = "11" Then
        Range("A" & a).Value = "303131"
    ElseIf Range("A" & a).Value = "100" Then
        Range("A" & a).Value = "313030"
    ElseIf Range("A" & a).Value = "101" Then
        Range("A" & a).Value = "313031"
    ElseIf Range("A" & a).Value = "110" Then
        Range("A" & a).Value = "313130"
    ElseIf Range("A" & a).Value = "111" Then
        Range("A" & a).Value = "313131"
    End If
    a = a - 1
Next i
End Sub

J'espère que ca servira à quelqu'un un jour, qui sera dans la même situation que moi à savoir passer du binaire à l'ascii !

Merci je met comme résolue.