comment enregistré un seul feuille de mon fichier en XML et pas le classeur

saverloo

XLDnaute Occasionnel
bonjour,

aujourd hui, je rencontre un problème dans ma macro enregistrement en Type XML ?

en faite ( voir la macro ci dessous ), losque je clique sur le bouton macro il ouvre bien l'enregistrement ou je peux mettre le nom que je souhaite et il met bien en format( type ) XML par contre lorsque je valide j'ai le message erreur soivant :

des fonctionnalités suivante ne peuvent etre enregistrées dans des classeurs sans macro

projet VB

pour enregistré un fichier avec ses fonctionnalités, cliquer sur non,puis selectionner un type de fichier prennant en charge les macros dans la liste type de fichier.

pour continuer a enregister le classeur sans macro cliquer sur oui ?

je clique donc sur non et j'ai un autre message erreur,

erreur ,.......... ne peuvent etre enregistré sans macro

en faite pour etre plus clair sur ce que j'ai besoin, je veux que lorsque je clique sur le bouton il enregistre UNIQUEMENT la feuille TOTALEXPORT en format XML et non le classeur. car pour moi ici il veux realisé un fichier XML de tout le fichier. donc comment faire pour que ceci ne se fasse que sur cette feuille la et uniquement celle la ?

voici ma macro :

Sub sauvegardesXML()

'
' 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


Merci pour votre aide si précieuse dans l'avancement de mon dossier.
 

Discussions similaires