Discussion :

[Coco47]

Bonjour à tous,

Dans le cadre d'un projet je dois manipuler un fichier XML avec VBA.
Jusqu'à mainteant j'arrive à l'ouvrir, le parcourir et même le mofier. Mais une fois que je veux le sauvegarder j'ai une erreur qui apparait :

le code que j'utilise est assez simple :

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
Sub StartEditingXMLFile()
 
    Dim stFichier As String
    Dim xmlDoc As DOMDocument, rootXML As IXMLDOMElement
 
    stFichier = Application.GetOpenFilename
 
    If stFichier = faux Then Exit Sub
 
    Set xmlDoc = New DOMDocument
    xmlDoc.async = False
    xmlDoc.Load stFichier
    Set rootXML = xmlDoc.DocumentElement
 
 
    If Not rootXML Is Nothing Then
        Set wksEd = ThisWorkbook.Worksheets("Editing")
 
        'On va parcourir la feuille complête pour traiter toutes les dépendances
        For Each rngDep In wksEd.Range("A2:A" & wksEd.Range("A65536").End(xlUp).Row)
            'On commence par aller remplacer la valeur de la dépendance
            EditDependency rootXML, rngDep.value, rngDep.Offset(0, 3).value
 
            'DEBUG : stop la boucle for pour tester direct la sauvegarde
            Exit For
        Next rngDep
 
        xmlDoc.Save (Split(stFichier, ".")(0) & "_edited." & Split(stFichier, ".")(1))
    End If
End Sub

Une fois cliqué sur OK sur le message d'erreur je peux voir le fivhier créé, il existe bien mais n'est pas complet. Il se termine brusquement au millieu d'une ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
		<Material Name="N91128101" BaseUnitOfMeasure="EA" Configurable="true" MaterialGroup="MC" IncludedByReference="true">
			<Properties>
			<ConfigurationProfiles>
			<ClassReferences>
			<LongTexts>
			<Translations>
				<Translation LanguageISO="ZH" Text="

Dans le fichier origninal j'ai le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
		<Material Name="N91128101" BaseUnitOfMeasure="EA" Configurable="true" MaterialGroup="MC" IncludedByReference="true">
			<Properties>
			<ConfigurationProfiles>
			<ClassReferences>
			<LongTexts>
			<Translations>
				<Translation LanguageISO="ZH" Text="红外手操器"/>
				<Translation LanguageISO="DE" Text="ZUBEHÖR FOR NP1213@"/>
				<Translation LanguageISO="EN" Text="ACCESSORIES FOR NP1213@"/>
			</Translations>
			<BOMs>
			<CharacteristicDomains>
        </Material>

J'ai essayer de supprimer ce "Material" et le code a poursuivi pour fianlement planter plus loin à un matérial qui possède le même type de valeur pour son attributs Text à savoir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"红外手操器"

J'ai l'impression que le problème viens du format de la donnée. Vous auriez une idée ?

Merci d'avance.

[mjpmjp]

bonjour,
a tu essayé avec Chr() pour les codes "spéciaux" (&#@"...) ?
@+JP

[mjpmjp]

bonjour,

code ASCII de 0 à 127

&=38
#=35
@=64
"=34
pour :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Text="红外手操器"/>

Text= Chr(38) & Chr(35) & "32418;" & Chr(38) & Chr(35) & "22806;" & Chr(38) & Chr(35) & "25163;" & Chr(38) & Chr(35) & "25805;" & Chr(38) & Chr(35) & "22120;"/>

à voir la function Replace(dansLigneTexte,ARemplacer,par)

@+JP

[Coco47]

Bonjour Merci pour votre réponse.

En continuant à chercher de mon coté je crois que j'ai trouvé d'où vient le problème. A priori ça serait à cause du format d'encodage des données du .xml.

Mon fichier d'entrée est US-ASCII et j'ai l'impression que ce format n'est pas géré par vba. En fait en regardant de plus pres je m'apperçoit que les données ne peuvent pas ^^etre écrites parce qu'à la base elle ne sont pas lues. Dans VBA j'ai "????" au lieu des codes.

Ces codes & #32418 sont en fait des codes de caractères chinois.

Maintenant je ne sais pas comment faire pour ouvrir mon fichier xml avec VBA et que celui-ci accepte le format US-ACSII et donc les codes qui posent problème .

[mjpmjp]

bonjour,

Ces codes & #32418 sont en fait des codes de caractères chinois.

je confirme :
Text="红外手操器"/>

@+JP

[Coco47]

Je ne veux pas traduire les caractères chinois, je voudrais qu'il soit interprétés correctement par mon VBA pour ensuite les retrouver lors de la sauvegarde...