Discussion :

[snorth68]

Bonjour,

Je travail actuellement sur un "programme" de création de rapport de calibration d'appareils de mesure de volume.
Nous utilisons un logiciel nous créant des fichier .XML
Ces fichiers XML sont importés dans excel et triturés dans tous les sens pour obtenir le certificat final (bon à imprimer).
L'ensemble de mon programme fait que je n'ai qu'à sélectionner l'ensemble des fichiers XML dont j'ai besoin pour imprimer les certificats correspondant.
Voila pour la petite histoire...
J'ai un soucis lors de l'actualisation de mon mappage.
Si le fichier XML N°1 contient des donnés de calibrations sur X volumes et que le fichier XML N°2 contient des données de calibrations sur Y volumes, le champ n'est pas correctement actualisé et je me retrouve avec X volumes au lieu de Y...

le problème est que sur tous les rapports créés après ce changement, je me retrouve avec toujours les mêmes données...

Y-a-t-il une solution "rapide" à cela ou avez-vous besoin de plus de renseignements?

merci d'avances.

[snorth68]

Hello,

personne n'aurait une idée?

[AlainTech]

Ben, sans voir ton code, non...

[snorth68]

Bonjour,

en ce qui concerne le code, voici la partie qui, à mon avis pose soucis :

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
Sub ImportXMLData(cFile, racine As String)
 
Application.DisplayAlerts = False
 
Dim cNumberformat As String
'
    On Error Resume Next
    Set xCalibryReport = New MSXML2.DOMDocument60
    If xCalibryReport Is Nothing Then
        MsgBox "This tool requires Microsoft XML 6.0. Please download it from the Microsoft website", vbOKOnly + vbCritical
        End
    End If
'
'Load the new xml
    xCalibryReport.Load cFile
 
    Dim xElementList As MSXML2.IXMLDOMNodeList
    Dim xElement As MSXML2.IXMLDOMElement
 
    Set xElementList = xCalibryReport.getElementsByTagName("Weight")
    If Not xElementList Is Nothing Then
        For Each xElement In xElementList
            xElement.Text = Replace(xElement.Text, ",", ".")
        Next
    End If
 
    Set xElementList = xCalibryReport.getElementsByTagName("Mean")
    If Not xElementList Is Nothing Then
        For Each xElement In xElementList
            xElement.Text = Replace(xElement.Text, ",", ".")
        Next
    End If
 
    Set xElementList = xCalibryReport.getElementsByTagName("SEul")
    If Not xElementList Is Nothing Then
        For Each xElement In xElementList
            xElement.Text = Replace(xElement.Text, ",", ".")
        Next
    End If
    Set xElementList = xCalibryReport.getElementsByTagName("SE")
    If Not xElementList Is Nothing Then
        For Each xElement In xElementList
            xElement.Text = Replace(xElement.Text, ",", ".")
        Next
    End If
    Set xElementList = xCalibryReport.getElementsByTagName("REul")
    If Not xElementList Is Nothing Then
        For Each xElement In xElementList
            xElement.Text = Replace(xElement.Text, ",", ".")
        Next
    End If
    Set xElementList = xCalibryReport.getElementsByTagName("RE")
    If Not xElementList Is Nothing Then
        For Each xElement In xElementList
            xElement.Text = Replace(xElement.Text, ",", ".")
        Next
    End If
    Set xElementList = xCalibryReport.getElementsByTagName("ZFactor")
    If Not xElementList Is Nothing Then
        For Each xElement In xElementList
            xElement.Text = Replace(xElement.Text, ",", ".")
        Next
    End If
    Set xElementList = xCalibryReport.getElementsByTagName("Evaporation")
    If Not xElementList Is Nothing Then
        For Each xElement In xElementList
            xElement.Text = Replace(xElement.Text, ",", ".")
        Next
    End If
 
        Set xElementList = xCalibryReport.getElementsByTagName("Sensibility")
    If Not xElementList Is Nothing Then
        For Each xElement In xElementList
            xElement.Text = Replace(xElement.Text, ",", ".")
        Next
    End If
 
    ActiveWorkbook.XmlMaps("Protocol_Map").ImportXml xCalibryReport.XML
 
    Range("CertificateNo").Value = SequenceNo(racine)
    Range("A1").Select
    Application.DisplayAlerts = True
 
 
End Sub

Le fonctionnement du code repose sur une procédure itérative. au début je choisi un liste de fichier .xml, à chaque itération j'appelle cette fonction pour importer les données et faire, au final, simplement une mise en forme de ces données.

Malheureusement je n'ai pas personnellement codé cette partie et en fait ne comprend pas trop son fonctionnement.

(Sans vouloir lancer des fausses pistes, nous avons installé le dernier service Pack sur nos stations - Win7 - et depuis les occurrences de ce soucis se font de plus en plus fréquente.)

j'ai mis également en PJ un des fichiers xml généré par notre programme de calibration. C'est de ces fichiers que nous tirons les informations nécessaires.

merci d'avance pour votre aide