Enregistrer sous en auto avec bouton

Bonjour à tous,

Je planche sur un fichier qui sera utilisé par 3 filiales de ma société. Afin que chacune puisse enregistrer le document à l'emplacement qu'elle aura défini, j'ai créé un bouton sauvegarder (onglet "General specification") dans lequel j'ai mis une macro. Le fichier est enregistré en .pdf et certaines cellules sont effacées après enregistrement.

Cette macro sélectionne tous les onglets du fichier puis ouvre la fenêtre "enregistrer sous" avec en nom de fichier le contenu de la cellule S29 de l'onglet "General specification" . Lorsque je fais Enregistrer, le sablier tourne mais je ne retrouve pas mon document

Avez-vous une idée de ce qui bloque?

Merci pour votre aide, je vous met le fichier revisité

Bonjour toutes et tous

@tester

Note: trop de cellules fusionnées attention

Option Explicit

Private Sub CommandButton1_Click()
On Error Resume Next

'Déclarations des variables
Dim texte, Chemin
texte = Sheets("General Specification").Range("S29").Value
Chemin = ThisWorkbook.Path & "\"

Sheets(Array("Page de garde", "General Specification", "XXXXX", "YYYYYYY", "ZZZZZZ", "Specification")).Select
Application.DisplayAlerts = False
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=Chemin & texte, _
    Quality:=xlQualityMinimum, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=True
End Sub

'     OpenAfterPublish:=False ' pour ne pas voir la publication PDF

crdlt,

André

Ajoute ceci pour voir :

fileSaveName = Application.GetSaveAsFilename(InitialFileName:=fichier, fileFilter:="PDF Files (*.pdf), *.pdf")
    If fileSaveName <> "False" Then
        Sheets(Array("Page de garde", "General Specification", "XXXXX", _
    "YYYYYYY", "ZZZZZZ", "Specification")).Select
        ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=fichier, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
        MsgBox "PDF enregistré.", vbInformation, ""
    End If

Re-bonjour,

Merci à tous les 2 pour votre retour très très rapide

La réponse à optimix correspond parfaitement à mon besoin.

André, ton code marche bien mais il enregistre directement le fichier sur le bureau alors que je veux pouvoir choisir l'emplacement; MERCI pour le tuto, j'ai appris quelque chose qui va bien me servir car j'utilise toujours des colonnes très étroites pour mieux pouvoir les fusionner selon le besoin que j'ai d'une ligne à une autre.

Vous êtes tous géniaux les pros d'Excel.

Merci encore pour votre temps et votre aide précieuse, Bonne après-midi