XL 2010 Intégrer un bouton enregistrer-sous

[nj85]

Bonjour à tous,

Je souhaiterai dans ma feuille de calcul ci-joint intégrer un "bouton" enregistrer-sous dans la cellule B2. Ce bouton permettra d'enregistrer plus facilement sans passer par la barre de tâche excel (idem de ce que j'ai déjà fait avec le "bouton" "envoi service commande" pour le mail).
Le Top c'est que se bouton puisse reprendre pour l'enregistrement le thème

PHARMACIE DES JACOBINS 411P7214

de la cellule A4.

Merci pour votre aide!

 

[sylvanu]

Bonjour le fil,
Eric, votre chemin est mal défini, il doit se terminer par un "\":
Repertoire = "C:\a\dossier\Semaines\"
Ca ne résoudra peut être pas tout, mais c'est une début.

 

[Eric C]

Re le fil,
C'est bon, j'ai fini par trouver (je me suis mis à réfléchir ) :

Sub Essai_Chemin()
    Dim Chemin As String, MonDossier As String, NomFichier As String
 
    Chemin = "C:\"                                              'A adapter
    MonDossier = "a\dossier\Semaines\"           'A adapter
    NomFichier = [A4] & ".xlsm"
 
    ChDrive "C:"
    ChDir Chemin & MonDossier
 
 
Fichier = Application.GetSaveAsFilename(NomFichier, "Fichiers Excel (*.xlsm), *.xlsm")
    ActiveWorkbook.SaveAs Fichier
End Sub

Bonne journée à toutes & à tous

 

[Eric C]

Re le fil,
Bonjour & merci Sylvain pour t'être penché sur la question. Vite et bien ne vont pas de paire pour moi. @+