Informatique

2 Responses to Informatique

1. Louis Dubois says:

   2014-03-01 at 12:50

   Dim oCustXMLPart As CustomXMLPart
   For Each oCustXMLPart In ThisWorkbook.CustomXMLParts
   ‘Debug.Print oCustXMLPart.SelectSingleNode(“/*”).BaseName
   If (oCustXMLPart.SelectSingleNode(“/*”).BaseName = “SCH_DEF”) Then
   Debug.Print oLANG_XMLPart.SelectSingleNode(“/SCH_DEF/ENGLISH/A11/LC_NB[@value=’3530’]”).Text
   End If
   Next

   Reply
   • Louis Dubois says:

     2014-03-04 at 08:21

     Je vais le modifier… Formatage du texte.

     Reply

This site uses Akismet to reduce spam. Learn how your comment data is processed.