Microsoft 365 Enregistrement répertoire de mon choix

[FCMLE44]

Bonjour

J'ai le code ci dessous. Toutefois je souhaiterais donner à ce fichier le nom que je souhaite et l'enregistrer dans le répertoire de mon choix

Sub PDF()
Dim sNomFichierPDF As String
Dim Ar(1) As String

sNomFichierPDF = ThisWorkbook.Path & "\" & "Test.pdf"
Ar(0) = "Renseignements Salarié"
Ar(1) = "Feuille Calcul Indemnités"
Application.ScreenUpdating = False
Sheets(Ar).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=sNomFichierPDF, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Sheets("Renseignements Salarié").Select
Application.ScreenUpdating = True
End Sub

Néanmoins, cette ligne, je pense me cause un souci

sNomFichierPDF = ThisWorkbook.Path & "\" & "Test.pdf"

Quelqu'un aurait il une idée ?

 

[FCMLE44]

Cela fait pareil
L'idée est de pouvoir mettre le nom du fichier de mon choix et de le mettre dans un répertoire que je choisirais en ouvrant l'explorateur

 

[Muratime]

J'ai trouvé ceci

Sub test()


' choix répertoire de stockage
    Dim MonRepertoire
    Dim Repertoire As FileDialog
    Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
    Application.FileDialog(msoFileDialogFolderPicker).Title = "Choix du répertoire de stockage des fichiers générés"
    Repertoire.Show
    If Repertoire.SelectedItems.Count > 0 Then
        MonRepertoire = Repertoire.SelectedItems(1)
    Else
        Exit Sub
    End If
   
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    MonRepertoire & "\Classement.pdf", Quality:= _ ' <<<<<<<<  ici il faut changer par le tiens
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=True
End Sub

 

[Muratime]

Sinon il faudrait ton fichier exemple

 

[FCMLE44]

Voici le fichier exemple

 

[FCMLE44]

J'ai avancé en rajoutant une donnée pour aouvrir la boite de dialogue mais meme si je mets un nom de fichier différent il me met le nom du classeur

Private Sub Estimation_Click()

Dim sNomFichierPDF As String
Dim Ar(1) As String
Dim lngCount As Long
 
    ' Open the file dialog
    With Application.FileDialog(msoFileDialogSaveAs)
        .AllowMultiSelect = True
        .Show
 
        ' Display paths of each file selected
        For lngCount = 1 To .SelectedItems.Count
            MsgBox .SelectedItems(lngCount)
        Next lngCount
 
    End With

Ar(0) = "Renseignements Salarié"
Ar(1) = "Feuille Calcul Indemnités"
Application.ScreenUpdating = False
Sheets(Ar).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=sNomFichierPDF, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
        
Sheets("Renseignements Salarié").Select
Application.ScreenUpdating = True

End Sub

Je pense que c'est cette ligne qui ne va pas

Filename:=sNomFichierPDF, _

Quelqu'un aurait il une idée. J'essaie de me creuser la tête mais novice sur le langage ce n'es tpas évident

 

[Muratime]

Essai de voir si ceci fonctionne ça devrait te l'enregistrer sur à la racine de C:\ en tant que Solde_de tout_compte.pdf

 

[FCMLE44]

Ca ne fonctionne. Aucune réaction alors même que la macro affectée au bouton est bien la bonne

 

[Muratime]

Question : sur ta version XL365, dans l'option Enregistrer sous, as-tu bien l'option PDF ou XPS ?

 

[FCMLE44]

Oui pas de souci

 

[Muratime]

Essai de l’enregistrer sous en format PDF

 

[FCMLE44]

que souhaites tu que j enregistre en format PDF. cette opération fait partie d'un gros projet d'outil excel avec macros ce n'est mon fichier définitif RGDP oblige

 

[Muratime]

tu vas sur ta feuille "Renseignements Salarié" tu fais enregistrer sous et PDF et tu la met sur le bureau et tu vois s'il t'as créer ton pdf.
Chez moi ça fonctionne pour ça c'est bizarre que chez toi non

 

[FCMLE44]

ca ca fontionne mais je ne veux pas utiliser cette méthode je vais déclencher cet enregistrement via un bouton dans un userform et c la que ca ne fonctionne pas et que je ne peux choisir mon répertoire. En effet il y aura plusieurs utilisateurs et les répertoires ne seront pas les memes a chaque fois

 

[Muratime]

Essai celui là ça devrais déjà enregistrer ta feuille sur le bureau au format PDF