XL 2019 bouton enregistrer

toffduq

XLDnaute Occasionnel
bonjour à tous le forum
je suis entrain de créer un bouton enregistrer sur une feuille
avec ce code

Sub enregistrer()
ThisWorkbook.Save
End Sub

la question est comment faire pour enregistrer dans un dossier précis et en le nommant avec le contenu d'une cellule qui se nomme (='base de donnée'!B1)

merci
 
Solution
Le '/' est interdit dans les références de fichiers je crois.
Essayez comme ça :
VB:
Sub Enregistrer()
   ThisWorkbook.SaveAs "B:\Desktop\fiche palette\" & ['base de donnée'!B1].Text _
      & "-" & Format(Now, "yy-mm-dd-hh-mm-ss")
   End Sub

Dranreb

XLDnaute Barbatruc
Le chemin qu'il faut s'il peut être chaque fois différent …
On aurait perdu moins de temps si vous aviez joint le fichier dès le début.
Je ne pouvais pas deviner que votre cellule B1 était juste un numéro dont il fallait déduire une référence de ficher complète.
 

Dranreb

XLDnaute Barbatruc
Le '/' est interdit dans les références de fichiers je crois.
Essayez comme ça :
VB:
Sub Enregistrer()
   ThisWorkbook.SaveAs "B:\Desktop\fiche palette\" & ['base de donnée'!B1].Text _
      & "-" & Format(Now, "yy-mm-dd-hh-mm-ss")
   End Sub
 

Discussions similaires

Réponses
2
Affichages
252

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 847
dernier inscrit
Djigbenou