Insertion de guillemets dans mon résultat

Version imprimable

11/07/2016, 10h32
Richou42

Insertion de guillemets dans mon résultat

Bonjour,

Je vous expose mon problème: j'ai réalisé une macro avec Excel 2010 permettant de me générer automatiquement du code. Ma macro fonctionne et je n'ai pas de soucis particulier sauf que lorsque j'enregistre mon fichier crée au format ".txt" j'ai des guillemets qui s'incrustent à chaque début de ligne.
Quelqu'un aurait-il la solution?
11/07/2016, 11h17
Al__22

Bonjour Richou,

Pourrais-tu poster ton code pour que l'on puisse comprendre d'où vient le problème ? (sans données personnelles bien entendu)
11/07/2016, 11h50
Richou42

Je ne peux pas te mettre l'intégralité du résultat du code justement pour soucis de confidentialité mais je vais te mettre un simple exemple:

Rien qu'à l'entête:

Code:

"<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>"

Tu vois il me met un guillemet au début, à la fin. Et il double également les guillemets là où il n'y en avait qu'un de base.

Après si tu veux je peux t'envoyer le code de ma macro mais je pense pas que ça vienne de ça et le code est plutôt long...
11/07/2016, 11h58
unparia

Bonjour,
Ce n'est pas le code de ta macro, qui nous intéresse, mais uniquement la méthode (donc le code) que tu appliques pour ouvrir et écrire ce fichier texte (quel que soit le contenu de la variable string que tu y écris).

Pour écrire le code je fais ça en plusieurs temps:

- Je créer mon nouveau fichier:

Code:

1
2
3
4
5
6
7
Workbooks.Add
        Name = memo_DescEM(NumLigneEM)
        Sheets(1).Name = Name
        ActiveWorkbook.SaveAs Filename:= _
            chemin + "\" + memo_DescEM(NumLigneEM), _
            FileFormat:=xlTextWindows, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False, local:=False

- Je copie d'un fichier modèle générique le début et je le colle dans mon:

Code:

1
2
3
4
5
6
 
        Workbooks.OpenText Filename:=cheminConfigAPI + "\em_type04.txt", Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, Tab:=True
        Application.Sheets("em_type04").Range("A1:A75").Copy
        Workbooks(memo_DescEM(NumLigneEM) & ".txt").Worksheets(memo_DescEM(NumLigneEM)).Activate
        ActiveSheet.Paste

- Ensuite je vais chercher un autre fichier modèle en fonction de ce qu'il y a dans une colonne "type" de mon tableau:

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
38
39
If memo_TypeDM(NumLigneDM) = "DM_EANA" Then
                        Call fct_Coller_EANA
                        Call fct_Replace_APIEM
                    End If
                    If memo_TypeDM(NumLigneDM) = "DM_ETOR" Then
                        Call fct_Coller_ETOR
                        Call fct_Replace_APIEM
                    End If
                    If memo_TypeDM(NumLigneDM) = "DM_BASC_BUHLER" Then
                        Call fct_Coller_BASC_BUHLER
                        Call fct_Replace_APIEM
                    End If
                    'If memo_TypeDM(NumLigneDM) = "DM_BASC_PRECIA" Then
                    '    Call fct_Coller_PRECIA
                    'End If
                    If memo_TypeDM(NumLigneDM) = "DM_MOT" Then
                        Call fct_Coller_MOT
                        Call fct_Replace_APIEM
                    End If
                    If memo_TypeDM(NumLigneDM) = "DM_MOT_CPLX" Then
                        Call fct_Coller_MOT_CPLX
                        Call fct_Replace_APIEM
                    End If
                    If memo_TypeDM(NumLigneDM) = "DM_MULTI_POS_MOT" Then
                        Call fct_Coller_MULTI_POS_MOT
                        Call fct_Replace_APIEM
                    End If
                    If memo_TypeDM(NumLigneDM) = "DM_POSITIONNEUR" Then
                        Call fct_Coller_POSITIONNEUR
                        Call fct_Replace_APIEM
                    End If
                    If memo_TypeDM(NumLigneDM) = "DM_VANNE" Then
                        Call fct_Coller_VANNE
                        Call fct_Replace_APIEM
                    End If
                    If memo_TypeDM(NumLigneDM) = "DM_VANNE_MOD" Then
                        Call fct_Coller_VANNE_MOD
                        Call fct_Replace_APIEM
                    End If

- Je vais ensuite chercher le fichier j'ouvre je copie et je colle dans le bon fichier:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Function fct_Coller_EANA()
    Dim NumLigne As Integer: NumLigne = 1
    Workbooks.OpenText Filename:=cheminConfigAPI + "\API_DM_EANA.xbd", Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, Tab:=True
    Application.Sheets("API_DM_EANA").Range("A1:A11").Copy
    Workbooks(memo_DescEM(NumLigneEM) & ".txt").Worksheets(memo_DescEM(NumLigneEM)).Activate
    With Workbooks(memo_DescEM(NumLigneEM) & ".txt").Worksheets(memo_DescEM(NumLigneEM))
        While .Cells(NumLigne, 1) <> ""
            NumLigne = NumLigne + 1
        Wend
    .Cells(NumLigne, 1).Select
    End With
    ActiveSheet.Paste
    Workbooks("API_DM_EANA.xbd").Close
End Function

- Je remplace les noms génériques des fichiers modèles:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Public Function fct_Replace_APIEM()
    Dim NumLigne As Integer: NumLigne = 1
    With Sheets(memo_DescEM(NumLigneEM))
        While .Cells(NumLigne, 1) <> ""
            .Cells(NumLigne, 1) = Replace(.Cells(NumLigne, 1), "DescriptionEM", memo_DescEM(NumLigneEM))
            .Cells(NumLigne, 1) = Replace(.Cells(NumLigne, 1), "InstanceEM", memo_InstanceEM(NumLigneEM))
            .Cells(NumLigne, 1) = Replace(.Cells(NumLigne, 1), "InstanceDM", memo_InstanceDM(NumLigneDM))
            .Cells(NumLigne, 1) = Replace(.Cells(NumLigne, 1), "Num_Var_Public_DM", memo_Num_Var_PublicDM(NumLigneEM))
            .Cells(NumLigne, 1) = Replace(.Cells(NumLigne, 1), "Type", memo_TypeEM(NumLigneEM))
            .Cells(NumLigne, 1) = Replace(.Cells(NumLigne, 1), "SELECTION", "SELECTEUR_CDE_" & memo_InstanceEM(NumLigneEM))
            .Cells(NumLigne, 1) = Replace(.Cells(NumLigne, 1), "ZoneEM", memo_TypeEM(NumLigneEM))
            .Cells(NumLigne, 1) = Replace(.Cells(NumLigne, 1), "NumAPI", Left(Right(memo_TypeEM(NumLigneEM), 4), 1))
            .Cells(NumLigne, 1) = Replace(.Cells(NumLigne, 1), "NumEM", Right(memo_TypeEM(NumLigneEM), 1))
            .Cells(NumLigne, 1) = Replace(.Cells(NumLigne, 1), "Num", Right(memo_TypeEM(NumLigneEM), 4))
                NumLigne = NumLigne + 1
        Wend
    End With
End Function

- Puis je sauvegarde et je ferme:

Code:

ActiveWorkbook.Close True

Bonjour,

Ensuite, en-dehors de ta question initiale, je vois plusieurs éléments qui pourraient te poser problème:

L'utilisation de .cells(x,y) sans le .value (dans tes 2 derniers codes)
Pour un soucis de lisibilité d'ailleurs, j'écrirais ton dernier code ainsi :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Public Function fct_Replace_APIEM()
    Dim NumLigne As Integer
    NumLigne = 1
    With Sheets(memo_DescEM(NumLigneEM)).Cells(NumLigne, 1)
        While .value <> ""
            .value = Replace(.value),"DescriptionEM", memo_DescEM(NumLigneEM))
            .value = Replace(.value),"InstanceEM", memo_InstanceEM(NumLigneEM))
            .value = Replace(.value),"InstanceDM", memo_InstanceDM(NumLigneDM))
            .value = Replace(.value),"Num_Var_Public_DM", memo_Num_Var_PublicDM(NumLigneEM))
            .value = Replace(.value),"Type", memo_TypeEM(NumLigneEM))
            .value = Replace(.value),"SELECTION", "SELECTEUR_CDE_" & memo_InstanceEM(NumLigneEM))
            .value = Replace(.value),"ZoneEM", memo_TypeEM(NumLigneEM))
            .value = Replace(.value),"NumAPI", Left(Right(memo_TypeEM(NumLigneEM), 4), 1))
            .value = Replace(.value),"NumEM", Right(memo_TypeEM(NumLigneEM), 1))
            .value = Replace(.value),"Num", Right(memo_TypeEM(NumLigneEM), 4))
            NumLigne = NumLigne + 1
        Wend
    End With
End Function

11/07/2016, 15h40
Richou42

Merci pour ta réponse,
En effet ça donne un rendu plus propre et ça me permet d'en apprendre toujours plus :P.

Je pense que mon soucis viens du fait qu'excel détecte peut être un caractère spécial, ici en l'occurrence ça serait le " et que du coup il me rajoute en début et en fin de lignes les guillemets?
11/07/2016, 15h45
jeanmidudu

Plausible, mais là, puisque tu utilises des fichiers extérieurs à Excel, trouver le hic est un vrai couac (Je suis fier de moi là :lol: ). Je ne suis pas non plus expert dans l'utilisation des fichiers, mais la conversion de ceux-ci vers un autre format avant leur utilisation pourrait peut-être résoudre le problème.
11/07/2016, 15h49
Richou42

Peut-être bien je vais essayer.

J'ai également remarqué que si j'ouvrais mon fichier .txt avec Excel, je n'avais plus ce problème mais bon le but va être de directement importer le fichier texte dans un logiciel alors bon...
11/07/2016, 16h05
jeanmidudu

Alors là oui, première chose à vérifier : l'encodage des caractères.
11/07/2016, 17h07
unparia

Il semble que le fichier copié était défini avec l'utilisation de doubles quotes pour les textes.
Essaye de forcer la main vers aucun délimiteur de texte, lors de son ouverture.
Lire :
1)
https://msdn.microsoft.com/fr-fr/lib.../ff837097.aspx
2)
https://msdn.microsoft.com/fr-fr/lib.../ff838376.aspx
essaye de spécifier expressément xlTextQualifierNone comme délimiteur d'identification de texte
Je ne sais par contre pas si Excel acceptera une spécification qui ne serait pas celle du fichier d'origine. Je n'ai rien pour essayer. Tente-le.
12/07/2016, 11h26
Richou42

Salut unparia!

J'ai essayé ce que tu m'as passé plein d'espoir, mais malheureusement c'est encore pire qu'avant :mouarf:
Voici ce que j'obtient:

Code:

"""<?xml version=""""1.0"""" encoding=""""UTF-8"""" standalone=""""yes""""?>"""
12/07/2016, 11h40
unparia

Ah.
Montre le code que tu as écrit.

Code:

1
2
Workbooks.OpenText Filename:=cheminConfigEM + "\API_DM_VANNE_MOD.xbd", Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, Tab:=True, TextQualifier:=xlTextQualifierNone

A chaque fois que j'ouvrais un document