Option Explicit
Public ThePathOnly As String
Public ThePathWithNewExtention As String
Sub CollectGetSaveAsFileName()
Dim MyPath As Variant
Dim FileSaveName As Variant
Dim TheExtention As String
Dim x As Byte
ThePathOnly = ""
ThePathWithNewExtention = ""
FileSaveName = Application.GetSaveAsFilename(InitialFileName:="Le nom que vous souhaitez", _
FileFilter:="Excel File (*.xlsx), *.xlsx", _
Title:="Veuillez seléctionner le folder et le file que vous souhaitez")
If FileSaveName = False Then
MsgBox "Abandon de l'utilisateur !"
Exit Sub
Else
MyPath = Split(FileSaveName, "\")
For x = 0 To UBound(MyPath) - 1
ThePathOnly = ThePathOnly & MyPath(x) & "\"
Next x
MyPath = Split(FileSaveName, ".")
For x = 0 To UBound(MyPath)
TheExtention = MyPath(x)
Next x
ThePathWithNewExtention = Replace(FileSaveName, TheExtention, "PDF")
MsgBox "Le Chemin seul : " & vbCrLf & ThePathOnly & vbCrLf & vbCrLf & "Le Chemin/Nom avec nouvelle extention : " & vbCrLf & ThePathWithNewExtention
End If
End Sub