XL 2010 Intégrer un bouton enregistrer-sous

nj85 · 10 Mars 2020

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 · 11 Mars 2020

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 · 11 Mars 2020

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

VB:

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 · 11 Mars 2020

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

XL 2010 Intégrer un bouton enregistrer-sous

nj85

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Eric C

XLDnaute Barbatruc

Eric C

XLDnaute Barbatruc

Discussions similaires

XL 2010 Intégrer un bouton enregistrer-sous

nj85

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Eric C

XLDnaute Barbatruc

Eric C

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency