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 NJ,
La macro n'est pas trop compliquée :

Sub SaveAs()
    Application.Dialogs(xlDialogSaveAs).Show
End Sub

 

[Pounet95]

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

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

 

[sylvanu]

Bonjour,
En quoi ma macro ne réponds pas au besoin ?

 

[Pounet95]

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 ?

 

[nj85]

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]

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.

 

[nj85]

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]

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.

 

[Pounet95]

Moi non plus je ne suis pas doué.
Je cherche mais rien !!!

 

[sylvanu]

 

[nj85]

Merci,
Mais impossible de les retrouver, même en faisant une recherche sur l'ensemble des docs du PC!!

 

[sylvanu]

Oups! Il manquer un Execute.
La fenêtre s'ouvrait mais ne s’exécutait pas. Mais comme j'avais enregistrer le fichier, on ne voyait rien.

 

[nj85]

Oups! Il manquer un Execute.
La fenêtre s'ouvrait mais ne s’exécutait pas. Mais comme j'avais enregistrer le fichier, on ne voyait rien.

Super c'est au top MERCI a TOUS!!!!!!!!!!!!!

 

[Eric C]

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 :

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 😉