Macro enregistrer PDF _ Emplacement Variable

Bonjour à tous,

Je pense que je suis au bon endroit pour poser ma question car je n'ai pas trouvé de réponse sur les autre postes.

j'ai crée une macro pour imprimer en PDF et en donnant un nom à ce fichier en fonction d'une cellule. Ca c'est ok. Voici ma macro

Sub Créer_PDF()


Dim monDossier As String, monFichier As String
monDossier = "O:\MO\etc... désolé je cache de véritable lien :)"
monFichier = [c4]

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
monDossier & monFichier, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub


Le problème avec cette macro est que le pdf est directement enregistré dans le dossier répertorié dans la macro. Je souhaite donc modifier ça.

J'aurai besoin de votre aide pour trouver une solution à mon problème:

- Première idée : Lorsque la macro commence, je ne veux pas éditer le pdf tout de suite mais je veux d'abord que l'on me demande où je souhaite enregistrer ce pdf.

- Deuxième idée : dans la définition de monDossier, je souhaite récupérer l'adresse où est stocké ce fichier Excel. Malheureusement, cette adresse est une variable car qui compte voudra utiliser ce fichier, l'enregistrera que un chemin d'accès spécifique non prévisible. Est-ce qu'il y a un moyen de récupérer cette variable ?

Je pense que la première idée est plus facilement réalisable mais je ne vois pas comment. Quant à la deuxième, si vous arrivez à faire quelques chose, je vous paye une bière :)


Dans un précédent post, Le Pivert m'a rebouté sur le site de Microsoft où le code suivant était écrit pour permettre le choix du fichier pour l'enregistrement.

Sub UseFileDialogOpen()

Dim lngCount As Long

' Open the file dialog
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.Show

' Display paths of each file selected
For lngCount = 1 To .SelectedItems.Count
MsgBox .SelectedItems(lngCount)
Next lngCount

End With

End Sub

J'ai fait des essais mais je ne trouve pas comment assembler les deux macro

Merci beaucoup pour vos conseils.

BOnne journée