XL 2010 Intégrer un bouton enregistrer-sous

nj85

XLDnaute Nouveau
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!
 

Pièces jointes

  • BCommandePrivilègeJulien.xlsm
    64 KB · Affichages: 8

Pounet95

XLDnaute Occasionnel
Bonjour,
Plus compliqué mais peut-être que ça répond au besoin ?

VB:
Sub Commandbutton()
    If Range("C4") <> "" Then
        nom = Range("C4") & ".xlsm"  ' C4 n'est pas vide !!!!!
        ChDir ThisWorkbook.Path
        ActiveWorkbook.SaveAs Filename:=nom, _
            FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    End If
End Sub
 

nj85

XLDnaute Nouveau
Salut Sylvanu
Je ne vise personne et la question est pour l'initiateur du fil.
J'ai cru comprendre dans la question qu'il voulait avoir le moins de saisie à faire.
Mais bon, tout le peut et à droit de se tromper, non ?

Bonjour à tous,

Merci pour vos réponses respectives,

Sylvanu c'est le système que je recherche hormis le fait que je souhaiterai que le fichier que j'enregistre porte automatiquement le contenu de la cellule A4 (je sais pas si c'est possible).
Pounet95, j'ai "bêtement" fait un copié collé de se que vous me proposez sur le forum et ce à la place de la formule de Sylvanu, cela m'indique un message d'erreur.

Merci pour vos retours
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Re,
Voilà corrigé.
"le thème de la cellule A4" est généralement compris comme son format, couleur, encadrement ...
Et non comme sa valeur.
C'est pour ça que mon bouton "Save as" reprend le thème de A4. :)
J'ai rajouté xlsx à la fin du nom, vous pouvez le modifier.
 

Pièces jointes

  • BCommandePrivilègeJulien(V3).xlsm
    69.7 KB · Affichages: 14

nj85

XLDnaute Nouveau
Re,
Voilà corrigé.
"le thème de la cellule A4" est généralement compris comme son format, couleur, encadrement ...
Et non comme sa valeur.
C'est pour ça que mon bouton "Save as" reprend le thème de A4. :)
J'ai rajouté xlsx à la fin du nom, vous pouvez le modifier.

C'est parfait sauf que je sais pas ou le fichier s'enregistre, je n'arrive pas à le retrouver (je suis pas très doué ;))
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
L'endroit où il se range est dans la colonne de gauche en grisé ... comme à chaque fois que vous faites enregistrer sous.
Si ensuite vous voulez un dossier particulier de rangement, c'est une autre histoire. Mais encore faut il le préciser. On ne peut pas le deviner.
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
2.jpg
 

Eric C

XLDnaute Barbatruc
Bonsoir le forum
Bonsoir nj85, sylvain et Pounet

Pourquoi ne puis je pas accéder à un répertoire bien défini ("C:\a\dossier\Semaines") pour y déposer le fichier. Alors que ce répertoire est défini, le fichier vient s'enregistrer dans "Téléchargement" ?

Mon code :
VB:
Sub SaveAs()
Dim Repertoire As String, nomFichier As String, extension As String
 Repertoire = "C:\a\dossier\Semaines"
    nomFichier = [A4]
    extension = ".xlsm"
    Application.Dialogs(xlDialogSaveAs).Show Repertoire & nomFichier & extension
End Sub

Merci de bien vouloir me renseigner ;)
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 948
Membres
101 849
dernier inscrit
florentMIG