XL 2019 bouton enregistrer

[toffduq]

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

 

[Dranreb]

Bonjour.
Essayez :

Sub Enregistrer()
   ThisWorkbook.SaveAs ['base de donnée'!B1].Value
   End Sub

 

[toffduq]

super ca marche
et comment faite si on veux forcer le dossier car là il va dans mes documents
exemple : B:\Desktop\fiche palette

 

[Dranreb]

Spécifiez le chemin dans la cellule.
Remarque: vous pourriez le déterminer par Application.GetSaveAsFilename

Exemple dans le module de l'objet Worrksheet de la feuille "base de donnée" :

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Address = "$B$1" Then
      Target.Value = Application.GetSaveAsFilename(, "Excel avec macro,*.xlsm")
      End If
   End Sub

 

[toffduq]

ca fonctionne pas

 

[Dranreb]

Qu'est ce qui ne fonctionne pas ?
Pour garantir que la référence du fichier est correcte, toujours dans le module du Worksheet pour la feuille :

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim GSAsFnm
   If Target.Address = "$B$1" Then
      GSAsFnm = Application.GetSaveAsFilename(, "Excel avec macro,*.xlsm")
      If VarType(GSAsFnm) = vbString Then Target.Value = GSAsFnm
      End If
   End Sub

 

[toffduq]

sa sauvegarde bien avec la cellule B1 mais pas dans mon dossier spécifique

 

[Dranreb]

Avez vous utilisé ma Worksheet_SelectionChange ?
Une autre mouture :

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim GSAsFnm As Variant
   If Target.Address = "$B$1" Then
      GSAsFnm = Target.Value
      On Error Resume Next
      ChDrive GSAsFnm: ChDir Left(GSAsFnm, InStrRev(GSAsFnm, "\") - 1)
      On Error GoTo 0
      GSAsFnm = Application.GetSaveAsFilename(InitialFileName:=ThisWorkbook.Name, _
         FileFilter:="Excel avec macro,*.xlsm")
      If VarType(GSAsFnm) = vbString Then Target.Value = GSAsFnm
      End If
   End Sub

 

[toffduq]

oui j'ai bien copie votre code dans le VBA de la feuille "base de données"

 

[Dranreb]

Alors, si vous l'avez bien exécuté en sélectionnant cette cellule, c'est la Sub Enregistrer du bouton qui ne va pas ?
Mettez un espion sur ['base de donnée'!B1].Value pour vérifier que ça ramène bien le nom complet du fichier, muni de son chemin.

 

[toffduq]

je vous joint mon fichier pour savoir ou est mon erreur

 

[Dranreb]

La cellule B1 de la feuille ne contient pas de chemin à l'ouverture du fichier.
Donc la cellule n'a pas été sélectionné pour l'y mettre.

 

[toffduq]

mais la cellule est modifiable a chaque dossier

 

[Dranreb]

Oui, bien sur. Il faut simplement y mettre le chemin devant avec ce que j'avais compris.
À moins qu'il soit fixe bien sûr. Dans ce cas il suffit de le concaténer devant :

Sub Enregistrer()
   ThisWorkbook.SaveAs "B:\Desktop\fiche palette\" & ['base de donnée'!B1].Text
   End Sub

 

[toffduq]

donc je dois mettre avant chaque numéro de dossier "B:\Desktop\fiche palette" ?