Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Modeste
;-))) Bonne fête Victor (avec un peu de retard ;-)))
methode un peu rudimentaire (on peut faire plus concis): Sub zaza() nomfichier = Application.GetOpenFilename For i = 1 To Len(nomfichier) If Mid(nomfichier, i, 1) = "" Then nomclasseur = Mid(nomfichier, i + 1, Len(nomfichier)) End If Next MsgBox nomfichier & Chr(10) & nomclasseur End Sub
@+
-----Message d'origine----- Bonjour,
J'utilise la commande suivante pour ouvrir un classeur:
NomFichier = Application.GetOpenFilename
Comment faire pour récupérer que le nom du classeur?
Merci d'avance
.
;-)))
Bonne fête Victor (avec un peu de retard ;-)))
methode un peu rudimentaire (on peut faire plus concis):
Sub zaza()
nomfichier = Application.GetOpenFilename
For i = 1 To Len(nomfichier)
If Mid(nomfichier, i, 1) = "" Then
nomclasseur = Mid(nomfichier, i + 1, Len(nomfichier))
End If
Next
MsgBox nomfichier & Chr(10) & nomclasseur
End Sub
@+
-----Message d'origine-----
Bonjour,
J'utilise la commande suivante pour ouvrir un classeur:
NomFichier = Application.GetOpenFilename
Comment faire pour récupérer que le nom du classeur?
;-))) Bonne fête Victor (avec un peu de retard ;-)))
methode un peu rudimentaire (on peut faire plus concis): Sub zaza() nomfichier = Application.GetOpenFilename For i = 1 To Len(nomfichier) If Mid(nomfichier, i, 1) = "" Then nomclasseur = Mid(nomfichier, i + 1, Len(nomfichier)) End If Next MsgBox nomfichier & Chr(10) & nomclasseur End Sub
@+
-----Message d'origine----- Bonjour,
J'utilise la commande suivante pour ouvrir un classeur:
NomFichier = Application.GetOpenFilename
Comment faire pour récupérer que le nom du classeur?
Merci d'avance
.
Laurent M
Modeste wrote:
methode un peu rudimentaire (on peut faire plus concis):
Si je puis me permettre, puisque tu tends la perche, voici une version plus optimale, puisqu'elle commence par la fin de la chaîne:
Function NomCourt(nomComplet As String) As String Dim i As Integer For i = Len(nomComplet) To 1 Step -1 If Mid(nomComplet, i, 1) = "" Then Exit For Next NomCourt = Mid(nomComplet, i + 1, 999) End Function
PS: il serait sage d'ajouter un test pour vérifier que l'usager n'a pas annulé la boite de dialogue GetOpenFilename (du genre if nomcomplet<>"" then...)
Modeste wrote:
methode un peu rudimentaire (on peut faire plus concis):
Si je puis me permettre, puisque tu tends la perche, voici une version
plus optimale, puisqu'elle commence par la fin de la chaîne:
Function NomCourt(nomComplet As String) As String
Dim i As Integer
For i = Len(nomComplet) To 1 Step -1
If Mid(nomComplet, i, 1) = "" Then Exit For
Next
NomCourt = Mid(nomComplet, i + 1, 999)
End Function
PS: il serait sage d'ajouter un test pour vérifier que l'usager n'a pas
annulé la boite de dialogue GetOpenFilename (du genre if nomcomplet<>""
then...)
methode un peu rudimentaire (on peut faire plus concis):
Si je puis me permettre, puisque tu tends la perche, voici une version plus optimale, puisqu'elle commence par la fin de la chaîne:
Function NomCourt(nomComplet As String) As String Dim i As Integer For i = Len(nomComplet) To 1 Step -1 If Mid(nomComplet, i, 1) = "" Then Exit For Next NomCourt = Mid(nomComplet, i + 1, 999) End Function
PS: il serait sage d'ajouter un test pour vérifier que l'usager n'a pas annulé la boite de dialogue GetOpenFilename (du genre if nomcomplet<>"" then...)
J'utilise la commande suivante pour ouvrir un classeur:
NomFichier = Application.GetOpenFilename
Comment faire pour récupérer que le nom du classeur?
Merci d'avance
.
Frédéric Sigonneau
Bonsoir,
Tu peux aussi utiliser la fonction Dir, pour extraire Nom+Extension à partir d'un chemin complet :
Sub test() NomFichier = Application.GetOpenFilename If NomFichier <> False Then MsgBox Dir(NomFichier) End Sub
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
J'utilise la commande suivante pour ouvrir un classeur:
NomFichier = Application.GetOpenFilename
Comment faire pour récupérer que le nom du classeur?
Merci d'avance
Bonsoir,
Tu peux aussi utiliser la fonction Dir, pour extraire Nom+Extension à partir
d'un chemin complet :
Sub test()
NomFichier = Application.GetOpenFilename
If NomFichier <> False Then MsgBox Dir(NomFichier)
End Sub
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
J'utilise la commande suivante pour ouvrir un classeur:
NomFichier = Application.GetOpenFilename
Comment faire pour récupérer que le nom du classeur?
Tu peux aussi utiliser la fonction Dir, pour extraire Nom+Extension à partir d'un chemin complet :
Sub test() NomFichier = Application.GetOpenFilename If NomFichier <> False Then MsgBox Dir(NomFichier) End Sub
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
J'utilise la commande suivante pour ouvrir un classeur:
NomFichier = Application.GetOpenFilename
Comment faire pour récupérer que le nom du classeur?