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

 

[Mytå]

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

Salut le forum

Adapte le code suivant (Mais XML n'accepte pas les macros)

    With Application.FileDialog(msoFileDialogSaveAs)
        'Définit un nom par défaut dans le champ "Nom de fichier".
        .InitialFileName = "Nom fichier"
        '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

Mytå

 

[saverloo]

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

myta,

si je comprend bien ta macro, je definie un nom de fichier mais je souhaite lorsque je veux mettre ma feuille xlsm en xml via le bouton qu'il me demande justement le nom que je souhaite mettre ?

 

[saverloo]

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

oui ok forcement si je met "" la je peux mettre le nom lollll

ok un grand merci a vous pour votre aide enfin un problème reglé

MERCCIIIIIIIIIIIIIII