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

gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 725
 
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
J.S.
 
J'utilise Excel 2010 est-ce que c'est la même macro???
0
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 725
 
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
J.S.
 
Merci beaucoup!!!!! Sa fonctionne!! :D
0