Récupérer le nom d'un fichier

[Vincent]

Salutations


J'ai une petite question qui semblera surement débile aux utilisateurs confirmés d'Excel mais sur laquelle je bute depuis un certain temps.
Lorsque je sauvegarde un fichier à l'aide de ma macro, j'utilise
le code suivant:
Application.Dialogs(xlDialogSaveAs).Show

Comment puis je faire pour que ma macro récupère le nom du fichier (et pas le chemin) que l'utilisateur à alors spécifié?

Merci d'avance pour avoir fait l'effort de lire, de réfléchir, et de répondre.

Et bravo à ceux qui prennent le temps de nous aider!!

 

[Staple1600]

Rebonjour

Dim jour, x, z, NomFic As String
x = Application.WorksheetFunction.Find(':', ActiveWorkbook.FullName)
z = Mid(ActiveWorkbook.FullName, x + 2, Len(ActiveWorkbook.FullName))
NomFic = Left(z, Len(z) - 4)

 

[Staple1600]

Re,

Autre chose, de plus pro

Function NomClasseur(nomComplet As String) As String
'Auteur: Laurent M
    Dim i As Integer
    For i = Len(nomComplet) To 1 Step -1
        If Mid(nomComplet, i, 1) = '\\' Then Exit For
     Next
     NomClasseur = Mid(nomComplet, i + 1, 999)
     If InStr(NomClasseur, '.') > 0 Then
        NomClasseur = Left(NomClasseur, InStr(NomClasseur, '.') - 1)
     End If
End Function
Sub nomc()
x = NomClasseur(ActiveWorkbook.FullName)
MsgBox x
End Sub

 

[Vincent]

Merci Staple pour tes réponses à mes deux post.
J'ai réussi à venir à bout de mes problèmes grâce à ton aide et ça fait vraiment plaisir.

Bonne continuation