choix du nom et chemin dans filenae

[rafmix]

bonjour,
je fais un export xml en vba :

Location = ThisWorkbook.Path & "\export.xml"

ActiveWorkbook.SaveAsXMLData Filename:=Location, Map:= _
ActiveWorkbook.XmlMaps("Root_Mappage")

j'aimerais que l'utilisateur puisse choisir le chemin et le nom si celui que je lui ai proposé ne lui convient pas. Pour les choix , je souhaiterais un menu standard.

Si qq a déjà fait
merci

 

[Gael]

Re : choix du nom et chemin dans filenae

Bonjour Rafmix,

Essaye le code suivant. Je n'ai jamais utilisé la sauvegarde XML, mais ce code permet de définir par défaut et de modifier le chemin et le nom du fichier avant sauvegarde.

Tu peux aussi ajouter un titre à la fenêtre au lieu du "Enregistrer sous" de Windows.

Sub test()
Dim Location As Variant
Location = ThisWorkbook.Path & "\export.xml"
Location = Application.GetSaveAsFilename(ThisWorkbook.Path & "\export.xml", filefilter:="Fichiers XML (*.xml),*.xml")
If Location = False Then Exit Sub
ActiveWorkbook.SaveAsXMLData Filename:=Location, Map:=ActiveWorkbook.XmlMaps("Root_Mappage")

End Sub

@+

Gael

 

[rafmix]

Re : choix du nom et chemin dans filenae

nikel, un grand merci

 

[Gael]

Re : choix du nom et chemin dans filenae

Re,

Petit détail, la première instruction "Location=..." est inutile puisque le contenu est inclus dans l'instruction suivante, j'ai simplement oublié de l'enlever.

Location=False se produit lorsque l'utilisateur choisit "Annuler" dans la fenêtre de sauvegarde.

@+

Gael