Récupérer le nom d'un fichier

V

Vincent

Guest
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

XLDnaute Barbatruc
Re,

Autre chose, de plus pro

VB:
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
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
314 450
Messages
2 109 724
Membres
110 552
dernier inscrit
jasson