Modification fichier xml

Bonjour à tous et toutes,

J'essaye à l'heure actuelle de modifier la 2ème ligne d'un fichier xml généré à partir d'Excel.
Ligne initiale :
<all_comments xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
Ligne attendue:
<all_comments mode="diff">

J'arrive bien à :
- récupérer le contenu du fichier
- modifier la ligne que je veux en passant par la fonction replace
- afficher via la fonction MsgBox le nouveau texte
mais impossible de le remettre dans mon fichier xml pour le sauvegarder. J'ai une erreur sur la ligne de sauvegarde sur le type d'objet

Est-ce la bonne méthode ?
J'ai essayé en passant par les noeuds mais je n'y arrive pas.

Avez-vous des conseils ?

Voici mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Sub ModifyXMLFile() Set xmlDoc = CreateObject("Microsoft.XMLDOM") Set XML_Content = CreateObject("Microsoft.XMLDOM") xmlDoc.async = False If xmlDoc.Load("C:\export_xml_10-08-2017.xml") Then 'MsgBox "Document XML correctement chargé" XML_Content = xmlDoc.XML TexteInitial = "<all_reviews xmlns:xsi=""" & "http://www.w3.org/2001/XMLSchema-instance" & """" & ">" TexteNouveau = "<all_reviews mode=""" & "diff" & """" & ">" XML_Content = Replace(XML_Content, TexteInitial, TexteNouveau) xmlDoc = XML_Content MsgBox XML_Content xmlDoc.Save "C:\export_xml_10-08-2017_modified.xml" Else MsgBox "Erreur de lecture du document XML" End If Set xmlDoc = Nothing End Sub

Salut.

Je pense qu'il faut remplacer xmlDoc = XML_Content par xmlDoc.xml = XML_Content à la ligne 12 du code fourni (mais je n'ai pas testé).

Merci de la réponse.
J'avais déjà essayé mais ça ne lui plait pas.

Avec cette ligne, j'ai le message d'erreur :
Nombre d'arguments incorrect ou affectation de propriété incorrecte

Bonjour,

Avez-vous essayer avec la méthode loadXML documentée ici ?

Oui, j'ai été trop vite

Remplace la ligne 12 par xmldoc.loadxml content[EDIT] Oups, coiffé par Ben_L ;)

Oui, ça marche beaucoup mieux.
Merci beaucoup pour cette aide très utile pour me débloquer