Enregistrer sous , incriminer le formal xlsm

CEMOI -  
 CEMOI -
Bonjour,

Avant d'ouvrir une discussion sur ce sujet, j'ai regarder les autres discussions mais je n'ai pas trouvé ce qui fonctionne pour mon dossier :
J'ai une dossier comprenant 120 feuilles,
j'ai crée une macro afin de séparer 30 de ces feuilles et enregistrer le dossier dans un dossier avec un chemin bien spécifique. Jusque la cela fonctionne.
En revanche, alors que mon dossier est en xlsm, le format proposé est xls.
Je souhaiterai que le format soit en xlsm pour le dossier qui va être, les personnes utilisant ce dossier n'auront plus qu'a le nommer et cela évitera les erreurs lors de l'enregistrement.

Voici code que j'ai utilisé à la suite de la macro de la séparation de mes feuilles dans un nouveau dossier:

Application.Dialogs(xlDialogSaveAs).Show ("A:\PLUTO\ TOTO\2020")

J'ai testé pas mal de chose, mais la fenêtre "enregistrer sous" s'ouvre au bon endroit mais le format reste xls.

Merci pour l'aide que vous pourrez m'apporter.

4 réponses

  1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    Bonjour,

    dérouler le menu Type
    0
  2. CEMOI
     
    Bonjour .
    Merci pour votre retour.
    Pouvez vous m’en dire plus..?
    Car j’ai j’ai tenté Xl fileType .... sans réussite !!
    0
    1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
       
      Il faut choisir l'extension dans le menu déroulant Type comme ceci:



      @+
      0
  3. CEMOI
     
    Cela je le sais !!!
    Peut-être me suis-je mal expliquée?
    Je souhaiterai que ce choix soit fait directement pas ma macro.
    Puis l’utilisateur lui donnerai le nom
    approprié.
    0
    1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
       
      comme ceci:

      Sub test()
      Application.Dialogs(xlDialogSaveAs).Show ("A:\PLUTO\ TOTO\2020"), 52
      End Sub
      


      @+ Le Pivert
      0
  4. CEMOI
     
    Merci @+Le Pivert !!!

    J'ai crée un tas de codes avec ce 52, alors que cela était si simple ..

    Merci encore !!!
    0