Fonction "Enregistrer sous" pour un État? Comment faire?

Merci pour le lien mais ça ne m'explique pas comment avoir la fenêtre de pop-up qui pop quand je cliquerais sur un bouton "Enregistrer sous" afin de choisir mon emplacement de mon fichier en format PDF et non dans un ruban.

Re,
un exemple sans choix du nom de fichier:

Private Sub Commande4_Click()
  Dim Chemin As String
  Const ssfTous = &H1
  Dim objShell As Object, objFolder As Object, oFolderItem As Object
    
   'Boite a dialogue recherche repertoire
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", ssfTous)
    Set oFolderItem = objFolder.Items.Item
    Select_Rep = oFolderItem.Path & "\"
    Set objShell = Nothing
    Set objFolder = Nothing
    Set oFolderItem = Nothing
    
  'Sélection répertoire et nom de savegarde (a adapter)
  Chemin = Select_Rep & "Bdd_Bon.PDF"
  'Visu etat
  DoCmd.OpenReport "Bdd_Bon", acViewPreview
  'Impression etat en .PDF
  DoCmd.OutputTo acOutputReport, "Bdd_Bon", "PDF", Chemin

End Sub

Salut, j'ai pris ton exemple, je l'ai intégré dans un module et inséré le code. Je l'ai modifier selon ce que j'avais besoin, voici le code :

Private Sub Commande4_Click()
Dim Chemin As String
Const ssfTous = &H1
Dim objShell As Object, objFolder As Object, oFolderItem As Object

'Boite a dialogue recherche repertoire
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", ssfTous)
Set oFolderItem = objFolder.Items.Item
Select_Rep = oFolderItem.Path & "\"
Set objShell = Nothing
Set objFolder = Nothing
Set oFolderItem = Nothing

'Sélection répertoire et nom de savegarde (a adapter)
Chemin = Select_Rep & "recette.PDF"
'Visu etat
DoCmd.OpenReport "EtatImpRecette", acViewPreview
'Impression etat en .PDF
DoCmd.OutputTo acOutputReport, "EtatImpRecette", ".PDF", Chemin

End Sub

Sur la ligne « Select_Rep = oFolderItem.Path & "\" » il me marque une erreur de variable non définie et à la derniere ligne, ça dit que le format n'est pas défini ou non reconnu...

Re,

pour premiere alerte:

Oblige de changer de code, une fois sur x meme erreur que vous!!!!!!

Private Sub Commande4_Click()
  Dim Chemin As String
    
  'Sélection répertoire et nom de savegarde (a adapter)
  Chemin = Select_Rep & "EtatImpRecette.PDF"
  'Visu etat
  DoCmd.OpenReport "EtatImpRecette", acViewPreview
  'Impression etat en .PDF
  DoCmd.OutputTo acOutputReport, "EtatImpRecette", "PDF", Chemin

End Sub

Function Select_Rep()
  Const ssfTous = &H1
  Dim objShell As Object, objFolder As Object, oFolderItem As Object
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", ssfTous)
    Set oFolderItem = objFolder.Items.Item
    Select_Rep = oFolderItem.Path & "\"
    Set objShell = Nothing
    Set objFolder = Nothing
    Set oFolderItem = Nothing
End Function

Deuxieme alerte: vous avez mis un point devant "PDF" de DoCmd