Discussion :

[Alain7751]

Bonjour !
J'ai un fichier DEVFACT.xlsm ; ce fichier permet de réaliser des devis et des factures ; il comporte (entre autres) 2 feuilles : DEV qui regroupe des données (calculées ou renseignées) destinées au devis et la feuille FACT regroupe les données de la facture ; jusqu'ici tout va bien, on est sur un fichier traditionnel Excel avec du VBA.
Je dois envoyer pour un client particulier, non pas le fichier excel, mais les données en XML.
J'ai donc réalisé un schéma de mappage pour le devis et un pour la facture.
Lorsque je veux exporter, une petite fenêtre EXCEL s'ouvre m'invitant à choisir l'un des 2 mappages ; une fois le schéma sélectionné j'enregistre le fichier en XML.

Mon problème : peut-on par le VBA sélectionner le bon schéma (DEV ou FACT) avant l'enregistrement ?
ou dois je réaliser par le VBA un schéma pour l'exportation ????? (...je ne sais pas si c'est possible)

Merci par avance pour vos éclairages !

[patricktoulon]

bonjour

L ENREGISTREUR DE MACRO A QUOI SERT IL ???

[Alain7751]

... je viens de vivre un petit moment de solitude ....
le ridicule ne tue pas ! je vais donc m'en sortir !
Merci beaucoup Patrick (y compris pour le recadrage!)
Je n'ai absolument pas pensé à cet outil !! ... je pense ne pas l'oublier dorénavant !!

[patricktoulon]

re
apres il y a d'autre solution plus precise

par exemple ne sauver q'une plage bien precise dans le sheets

tien regarde cet exemple simple
je te sauve la plage A1 f10 dans 2 fichiers xml
les deux fichiers xml ont un format différent
c'est certainement l'un de ces deux format que tu recherche
sauf qu'avec cet méthode tu a que la plage que tu veux
teste cela et regarde sur ton bureau ouvre les avec bloknote

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
ReDim formatxml(1 To 2)
Set plage = Range("A1:f10")
formatxml(1) = plage.Value(xlRangeValueXMLSpreadsheet)
formatxml(2) = plage.Value(xlRangeValueMSPersistXML)
For i = 1 To 2
fichier =environ("userprofile") & "\Desktop\" & Replace(plage.Address, ":", "-") & "Format" & i & ".xml"
    x = FreeFile
    Open fichier For Output As #x
    Print #x, formatxml(i)
    Close #x
Next
End Sub

[Alain7751]

Merci Patrick pour tes cours !!
Je retrouve le schéma que j'ai fais sur notepad++ dans le format 2.
Je suis un peu bluffé !
Mes connaissances en XML sont limitées, je m'en rends compte.
Ta méthode m'intéresse beaucoup ! Sais-tu s'il existe des cours pour développer spécifiquement mes connaissances dans l'art de réaliser des fichiers XML à partir du VBA ??
En clair, de quoi approfondir mes connaissances sur les 2 méthodes !

Par manque de temps je ne peux pas développer tes méthodes sur les travaux en cours mais je vais y revenir dès que possible.
Dans l'immédiat je vais me contenter de la méthode "Enregistreur de macro" que tu m'as si gentiment remis en mémoire !!

Encore merci Patrick !