MACRO Enregistrer sous d'apres une cellule

Résolu
J.S. -  
 J.S. -
Bonjour,
J'aimerais créer une macro qui sera associer à un bouton qui fera la commande suivante:

Enregistrer sous dans le dossier P:/ACHAT/Cout FOB et je voudrais que le nom du fichier soit la référence qui se trouve dans la Cellule B12 et B13 et le tout serais fait automatiquement.

Pourriez vous me dire comment faire la commande je suis très débutante avec les macros...

Merci beaucoup!!

1 réponse

  1. gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
     
    bonjour

    Tu n'as pas donné d'indication sur ta version, alors en supposant que tu es avec 2003 tu peux utiliser ce codage :

    Sub Sauvegarde()
    ThisWorkbook.SaveAs _
        Filename:="P:\ACHAT\Cout FOBF\" & [B12].Value & [B13].Value & ".xls", _
        FileFormat:=xlExcel8
    End Sub
    
    0
    1. J.S.
       
      J'utilise Excel 2010 est-ce que c'est la même macro???
      0
    2. gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
       
      Elle fonctionne sous 2010 mais le format des fichiers change :

      Sub Sauvegarde() 
      ThisWorkbook.SaveAs _ 
          Filename:="P:\ACHAT\Cout FOBF\" & [B12].Value & [B13].Value & ".xlsm", _ 
          FileFormat:=xlOpenXMLWorkbookMacroEnabled 
      End Sub
      0
    3. J.S.
       
      Merci beaucoup!!!!! Sa fonctionne!! :D
      0