Sujet Précédent Sujet Suivant

MACRO Enregistrer sous d'apres une cellule

Résolu/Fermé
J.S. - Modifié par J.S. le 4/04/2011 à 21:16
 J.S. - 5 avril 2011 à 19:49
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

Réponse 1 / 1
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 713
4 avril 2011 à 23:26
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.
5 avril 2011 à 16:18
J'utilise Excel 2010 est-ce que c'est la même macro???
0
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 713
Modifié par gbinforme le 5/04/2011 à 21:04
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.
5 avril 2011 à 19:49
Merci beaucoup!!!!! Sa fonctionne!! :D
0