choix du nom et chemin dans filenae

rafmix · 12 Novembre 2008

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 · 12 Novembre 2008

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.

Code:

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 · 12 Novembre 2008

Re : choix du nom et chemin dans filenae

nikel, un grand merci
🙂

Gael · 12 Novembre 2008

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

choix du nom et chemin dans filenae

rafmix

Guest

Gael

XLDnaute Barbatruc

rafmix

Guest

Gael

XLDnaute Barbatruc

Discussions similaires

choix du nom et chemin dans filenae

rafmix

Guest

Gael

XLDnaute Barbatruc

rafmix

Guest

Gael

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency