Félicitations !
+
0
points
En savoir plus
Actualités
Tests & Guides
Bons Plans
Forum
Premium
Rechercher sur le site
Connexion
Si votre email correspond à un compte, vous recevrez un lien de réinitialisation.
Réinitialiser le mot de passe
Retour connexion
Actualités
Tests & Guides
Bons Plans
Twitter
iPhone pliant
OnePlus 11
PS5
Disney+
Orange Livebox
Windows 11
Génération NT
Entraide
Applications
Microsoft Office
Excel
Ecrire du xml avec VBA
Ecrire du xml avec VBA
1 réponse
Frédéric
29/11/2005 à 19:16
Bonjour,
Est ce que quelqu'un sait comment écrire dans un fichier xml à partir de VBA?
J'ai lu pas mal de choses sur le net, entre autre concernant MS XMLDOM, mais
il est difficile de trouver des exemples de code....
Merci.
Partager
Facebook
Twitter
Reddit
Whatsapp
Email
Signaler
Signaler un problème avec ce contenu
Envoyer
1 réponse
Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Supprimer
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Envoyer
Frédo P
Signaler
29/11/2005 à 23:28
Bonsoir
un exemple remanié dont je n'ai plus l'origine
Sub creérune_feuil_HTml()
msgbox_popup "Frédéric", "Alliance", "Aviculteur"
End Sub
Sub msgbox_popup(Adherent, Contrat, Specialite)
Dim ie As Object, BR
Set ie = CreateObject("internetexplorer.application")
ie.Navigate ("about:blank")
ie.addressbar = False
ie.MenuBar = False
ie.StatusBar = False
ie.Toolbar = False
ie.Width = 650
ie.Height = 500
ie.document.write "<IMG SRC='file:///C:Photo.jpg' ALIGN='right'>" < BR <>
BR > ""
ie.document.write "<FONT COLOR='black'>" & Adherent & "<BR><BR></FONT>"
ie.document.write "<FONT COLOR='red'><B><U>Contrat :</B></U></FONT>"
ie.document.write "<FONT COLOR='black'>  " & Contrat &
"</FONT><BR><BR><BR>"
ie.document.write "<HR WIDTH`% COLOR='MAGENTA'>"
ie.document.write "<FONT COLOR='red'><B><U>Spécialité :</B></U></FONT>"
ie.document.write "<FONT COLOR='black'>  " & Specialite
& "</FONT><BR><BR><BR>"
ie.Visible = True
End Sub
--
Fred
"
Bonsoir
un exemple remanié dont je n'ai plus l'origine
Sub creérune_feuil_HTml()
msgbox_popup "Frédéric", "Alliance", "Aviculteur"
End Sub
Sub msgbox_popup(Adherent, Contrat, Specialite)
Dim ie As Object, BR
Set ie = CreateObject("internetexplorer.application")
ie.Navigate ("about:blank")
ie.addressbar = False
ie.MenuBar = False
ie.StatusBar = False
ie.Toolbar = False
ie.Width = 650
ie.Height = 500
ie.document.write "<IMG SRC='file:///C:Photo.jpg' ALIGN='right'>" < BR <>
BR > ""
ie.document.write "<FONT COLOR='black'>" & Adherent & "<BR><BR></FONT>"
ie.document.write "<FONT COLOR='red'><B><U>Contrat :</B></U></FONT>"
ie.document.write "<FONT COLOR='black'>  " & Contrat &
"</FONT><BR><BR><BR>"
ie.document.write "<HR WIDTH`% COLOR='MAGENTA'>"
ie.document.write "<FONT COLOR='red'><B><U>Spécialité :</B></U></FONT>"
ie.document.write "<FONT COLOR='black'>  " & Specialite
& "</FONT><BR><BR><BR>"
ie.Visible = True
End Sub
--
Fred
"
Vous avez filtré cet utilisateur ! Consultez son message
Bonsoir
un exemple remanié dont je n'ai plus l'origine
Sub creérune_feuil_HTml()
msgbox_popup "Frédéric", "Alliance", "Aviculteur"
End Sub
Sub msgbox_popup(Adherent, Contrat, Specialite)
Dim ie As Object, BR
Set ie = CreateObject("internetexplorer.application")
ie.Navigate ("about:blank")
ie.addressbar = False
ie.MenuBar = False
ie.StatusBar = False
ie.Toolbar = False
ie.Width = 650
ie.Height = 500
ie.document.write "<IMG SRC='file:///C:Photo.jpg' ALIGN='right'>" < BR <>
BR > ""
ie.document.write "<FONT COLOR='black'>" & Adherent & "<BR><BR></FONT>"
ie.document.write "<FONT COLOR='red'><B><U>Contrat :</B></U></FONT>"
ie.document.write "<FONT COLOR='black'>  " & Contrat &
"</FONT><BR><BR><BR>"
ie.document.write "<HR WIDTH`% COLOR='MAGENTA'>"
ie.document.write "<FONT COLOR='red'><B><U>Spécialité :</B></U></FONT>"
ie.document.write "<FONT COLOR='black'>  " & Specialite
& "</FONT><BR><BR><BR>"
ie.Visible = True
End Sub
--
Fred
"