Enregistrer sous avec contenu d'une cellule

Bonsoir le Forum.

je travaille sur un classeur pour plusieurs utilisateurs.

Il faut pouvoir enregistrer ce classeur dans le style "Enregistrer sous" mais, il y a un mais, nommer le fichier avec le contenu de la cellule H1.

J'ai bien trouvé comment ouvrir la boite de dialogue, mais je coince sur l'import de la cellule H1.

Et pour finir, un msgbox de confirmation indique le nom de fichier et le répertoire de destination.

Merci de l'aide que vous pourriez m'apporter.

Licaon.

Bonjour,

à tester, note: FileFormat:=52 = .xlsm

'nommer le fichier avec le contenu de la cellule H1.
nom = Range("H1")
ActiveWorkbook.SaveAs Filename:=fd.SelectedItems(1) & "\" & nom, FileFormat:=52, CreateBackup:=False

Bonjour sabV, bonjour le Forum.

A quel endroit dois-je placer ces lignes ?

Je l'ai intégré à la suite du code existant, après le "Sub", avant le "End", cela active le débogage.

Cordialement.

Licaon.

Bonjour toutes et tous

fonctionne bien, j'ai la même version qu'Excel que toi merci à Sabv

à mettre avant le sub

crdlt,

André

Bonjour André13.

Cela ne fonctionne pas, même avec le fichier que tu as joints.

Pour info, je suis sous Excel 2007 et Win 10.

Licaon.

Bonjour Licaon

à tester ci-joint avec un bouton sans contrôle Active X

lorsque clic sur le bouton Enregistrer pas celui de couleur bleu (Contrôle ActiveX )

mais l'autre sans couleur.

-ne rien saisir lors de l'ouverture de la fenêtre pour enregistrer juste dire ou il enregistre uniquement.

Note : j'ai Excel2007 Fr et Win10

Bonjour,

l'avez-vous mit comme ça ?

Sub SelectionDossier()
 Dim fd As Office.FileDialog

  Set fd = Application.FileDialog(msoFileDialogFolderPicker)
  fd.Title = "Sélectionnez un dossier..."

  If fd.Show() Then
    MsgBox "Vous avez sélectionné le dossier : " _
      & vbCrLf & fd.SelectedItems(1), vbInformation

    nom = Range("H1")
    ActiveWorkbook.SaveAs Filename:=fd.SelectedItems(1) & "\" & nom, FileFormat:=52, CreateBackup:=False
  End If

  Set fd = Nothing
End Sub

Bonjour sabV, Bonjour André13, bonjour le Forum.

Ok, cela fonctionne bien. L'enregistrement se fait correctement mais sans "visibilité".

Par là, le nom du classeur à enregistrer n’apparaît pas dans la boite de dialogue ce qui m'a fait vous induire en erreur.

Y a t-il une possibilité de faire figurer dans la boite de dialogue le nom du classeur à enregistrer ?

Bien à vous.

Licaon.

Bonjour Licaon

Choix effectué sur la liste déroulante en A1, on clic sur le bouton qui demande ou enregistrer

la boîte de dialogue ne sert qu'à cette démarche, c'est pour cela que le champ est vide jusqu'à ce que l'on définisse ou enregistrer

un message box prévient si cela a été effectué sans encombrement

C'est ce que j'ai réussi à comprendre.

Dans Word, lorsque l'on veut enregistrer un document sans titre, c'est les premiers mots qui s'inscrivent comme nom de fichier.

C'est ce que je souhaitais mettre en place sur mon projet.

Si quelqu'un connait la solution je suis preneur, sinon il faudra s'adapter.

Bonjour Licaon, Andre13,

Licaon, est-ce que c'est ça que vous cherchez ?

cRef_File = "NomDeFichier"  
Set oDlgFind = Dialogs(wdDialogFileSaveAs)
With oDlgFind
    .Name = cRef_File
    Reponse = .Show() 
End With

Bonjour André13, bonjour le Forum.

A quel endroit dois-je placer ce bout de code, car après plusieurs tâtonnements, je n'y arrive pas ?

Cordialement.

Licaon.

Bonjour André13, bonjour sabV, bonjour le Forum.

Après une semaine de réflexion et de recherche un peu partout, j'ai trouvé une réponse sur le Net avec un code léger.

Ce Forum étant un lieu de partage,voici ce que j'ai trouvé :

Sub test()

Application.Dialogs(xlDialogSaveAs).Show Range("H1")

SetAttr ThisWorkbook.FullName, 1

Worksheets("feuil1").Range("B5,A19:G25").Value = ""

End Sub