comment dans ma macro obliger l'enregistrement en format XML et non xls

[saverloo]

bonjour,

ci dessous, une macro j'aimerais que lorsque la macro est lancée et qu'elle demande le nom du fichier, il mette directement le TYPE de fichier en FORMAT XML et non en format xls ou autres

ceci afin d'eviter que les gens enregistre le fichier dans un mauvais format type

merci d'avance



Sub enregistrementavantxml()
'
' enregistrementavantxml Macro
'

'
ActiveWorkbook.Save

'
' sauvegardefichierxml Macro
' pour sauvegarder viale bouton disque le fichier totalexport en format xml afin de realiser l'exportation par la suite sur le site hdp
'

'
Sheets("totalexport").Select
ActiveWindow.SmallScroll Down:=-18
ActiveWindow.ScrollRow = 308
ActiveWindow.ScrollRow = 303
ActiveWindow.ScrollRow = 297
ActiveWindow.ScrollRow = 268
ActiveWindow.ScrollRow = 227
ActiveWindow.ScrollRow = 198
ActiveWindow.ScrollRow = 169
ActiveWindow.ScrollRow = 146
ActiveWindow.ScrollRow = 130
ActiveWindow.ScrollRow = 92
ActiveWindow.ScrollRow = 59
ActiveWindow.ScrollRow = 52
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 23
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
Application.Dialogs(xlDialogSaveAs).Show

Sheets("donnee presta de base a export").Select
End Sub

 

[Staple1600]

Re : comment dans ma macro obliger l'enregistrement en format XML et non xls

Bonsoir


Fais la manipulation en utilisant l'enregistreur de macros

et tu auras le code VBA nécessaire

 

[saverloo]

Re : comment dans ma macro obliger l'enregistrement en format XML et non xls

bonsoir

oui beh je veux bien néanmoins je ne vois pas tres bien ce que je dois reprendre dans cette macro que j'avais a la base mise car celle ci enregistre directement le fichier sans demandé le nom que je souhaite lui donnée je suppose que le prob est dans le bas de la macro ou il y a les lignes :

ChDir "C:\Users\alain\Desktop\HDP EXPORT TEST"
ChDir "C:\Users\alain\Desktop"
ActiveWorkbook.SaveAsXMLData Filename:= _
"C:\Users\alain\Desktop\exporthdpxml.xml", Map:=ActiveWorkbook.XmlMaps( _
"loonverwerking_Mappage")

Sub sauvegardefichierxml()
'
' sauvegardefichierxml Macro
' pour sauvegarder viale bouton disque le fichier totalexport en format xml afin de realiser l'exportation par la suite sur le site hdp
'

'
Sheets("totalexport").Select
ActiveWindow.SmallScroll Down:=-18
ActiveWindow.ScrollRow = 308
ActiveWindow.ScrollRow = 303
ActiveWindow.ScrollRow = 297
ActiveWindow.ScrollRow = 268
ActiveWindow.ScrollRow = 227
ActiveWindow.ScrollRow = 198
ActiveWindow.ScrollRow = 169
ActiveWindow.ScrollRow = 146
ActiveWindow.ScrollRow = 130
ActiveWindow.ScrollRow = 92
ActiveWindow.ScrollRow = 59
ActiveWindow.ScrollRow = 52
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 23
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
ChDir "C:\Users\alain\Desktop\HDP EXPORT TEST"
ChDir "C:\Users\alain\Desktop"
ActiveWorkbook.SaveAsXMLData Filename:= _
"C:\Users\alain\Desktop\exporthdpxml.xml", Map:=ActiveWorkbook.XmlMaps( _
"loonverwerking_Mappage")
Sheets("donnee presta de base a export").Select
End Sub

 

[Staple1600]

Re : comment dans ma macro obliger l'enregistrement en format XML et non xls

Bonjour

Ce qui t'intéresse est là non ?

ActiveWorkbook.SaveAsXMLData

 

[saverloo]

Re : comment dans ma macro obliger l'enregistrement en format XML et non xls

Oui mais je viens de tester et cela ne fonctionne pas ou alors je dois ajouter une donnée peux etre , voir ce dessous



Sub sauvegardefichierxml()
'
' sauvegardefichierxml Macro
' pour sauvegarder viale bouton disque le fichier totalexport en format xml afin de realiser l'exportation par la suite sur le site hdp
'

'
Sheets("totalexport").Select
ActiveWindow.SmallScroll Down:=-18
ActiveWindow.ScrollRow = 308
ActiveWindow.ScrollRow = 303
ActiveWindow.ScrollRow = 297
ActiveWindow.ScrollRow = 268
ActiveWindow.ScrollRow = 227
ActiveWindow.ScrollRow = 198
ActiveWindow.ScrollRow = 169
ActiveWindow.ScrollRow = 146
ActiveWindow.ScrollRow = 130
ActiveWindow.ScrollRow = 92
ActiveWindow.ScrollRow = 59
ActiveWindow.ScrollRow = 52
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 23
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
Application.Dialogs(xlDialogSaveAs).Show
ActiveWorkbook.SaveAsXMLData

Sheets("donnee presta de base a export").Select
End Sub

 

[Staple1600]

Re : comment dans ma macro obliger l'enregistrement en format XML et non xls

Re


Bonsoir Jean-Marcel

Pour info
Il y a une réponse sur le forum Excel 2007 aussi

 

[saverloo]

Re : comment dans ma macro obliger l'enregistrement en format XML et non xls

re bonsoir

en faite la solution de myta est la bonne oufffff voir forum sur 2007 et la macro ci dessous en cas ou :

Sub sauvegardefichierxml()
'
' sauvegardefichierxml Macro
' pour sauvegarder viale bouton disque le fichier totalexport en format xml afin de realiser l'exportation par la suite sur le site hdp
'

'
Sheets("totalexport").Select
ActiveWindow.SmallScroll Down:=-18
ActiveWindow.ScrollRow = 308
ActiveWindow.ScrollRow = 303
ActiveWindow.ScrollRow = 297
ActiveWindow.ScrollRow = 268
ActiveWindow.ScrollRow = 227
ActiveWindow.ScrollRow = 198
ActiveWindow.ScrollRow = 169
ActiveWindow.ScrollRow = 146
ActiveWindow.ScrollRow = 130
ActiveWindow.ScrollRow = 92
ActiveWindow.ScrollRow = 59
ActiveWindow.ScrollRow = 52
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 23
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
With Application.FileDialog(msoFileDialogSaveAs)
'Définit un nom par défaut dans le champ "Nom de fichier".
.InitialFileName = ""
'Définit le type de fichier par défaut:
'(la valeur 5 spécifie les classeurs XML lorsque vous êtes dans Excel 2007)
.FilterIndex = 5
'Affiche la boîte de dialogue
.Show
'Enregistre
.Execute
End With

Sheets("donnee presta de base a export").Select
End Sub

 

[jeanpierre]

Re : comment dans ma macro obliger l'enregistrement en format XML et non xls

Bonsoir saverloo, aux deux JM,

Tu peux, peut-être, supprimer tous tes : ActiveWindow.ScrollRow = ....
totalement inutiles.

Bonne soirée.

Jean-Pierre