Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Macros et VBA Excel
Macros et VBA Excel Vos questions relatives aux macros Excel, à l'utilisation de VBA et à l'automatisation de vos classeurs Excel.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
Vieux 04/02/2010, 17h30   #1
Membre du Club
 
Inscription : juin 2008
Messages : 280
Détails du profil
Informations forums :
Inscription : juin 2008
Messages : 280
Points : 46
Points : 46
Par défaut Nom de fichier en vba

Bonjour,
j'aimerai pouvoir en vba recuperer le nom d'un fichier séléctionné par une boite de dialogue,
avec le code ci dessous,
j'arrive a recuperer le chemin complet du fichier ( avec repertoires/sous repertoire/)
j'arrive egalement a recupere tout le chemin de ce fichier mais sans son nom ( donc uniquement les repertoires/et sous repertoires )

et je voudrais pouvoir n'avoir que son nom.. exemple : "toto.xls"
savez vous comment ?
Code :
1
2
3
4
5
6
7
8
Sub recup()
    Dim fichier As FileDialog
    Set fichier = Application.FileDialog(msoFileDialogFilePicker)
 fichier.Show
 MsgBox fichier.InitialFileName ' affiche le repertoire du fichier selectionné uniquement
 MsgBox fichier.SelectedItems(1) 'affiche le repertoire complet
    'msgbox qui premet de recuperer uniquement le nom du fichier selectionné ex : toto.xls
End Sub
djoumusic est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 04/02/2010, 17h38   #2
Responsable
Office & Excel

 
Avatar de Pierre Fauconnier
 
Homme Pierre Fauconnier
Formateur et développeur informatique indépendant
Inscription : novembre 2003
Messages : 7 906
Détails du profil
Informations personnelles :
Nom : Homme Pierre Fauconnier
Âge : 45
Localisation : Belgique

Informations professionnelles :
Activité : Formateur et développeur informatique indépendant
Secteur : Enseignement

Informations forums :
Inscription : novembre 2003
Messages : 7 906
Points : 13 685
Points : 13 685
Envoyer un message via Skype™ à Pierre Fauconnier
Salut

Le dernier \ détermine le début du nom du fichier. En inversant la chaine, il devient le premier et tu peux déterminer sa position n. Il suffit alors d'extraire les n-1 caractères à droite de la chaine.

Code :
1
2
3
  Dim chaine As String
  chaine = "C:\mon dossier\mon dossier2.xls"
  chaine = Right(chaine, InStr(1, StrReverse(chaine), "\") - 1)
__________________
"Plus les hommes seront éclairés, plus ils seront libres" (Voltaire)
---------------

Ma nouvelle vidéo: comparer des listes via une MFC - Mes articles sur DVP
Vous souhaitez rédiger pour DVP? Contactez-moi
Amoureux de la langue française? Venez corriger nos ressources
VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...
N'oubliez pas de VOTER (en bas à droite d'un message)

---------------
Pierre Fauconnier est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 04/02/2010, 18h31   #3
Membre du Club
 
Inscription : juin 2008
Messages : 280
Détails du profil
Informations forums :
Inscription : juin 2008
Messages : 280
Points : 46
Points : 46
GENIAL !
djoumusic est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +1. Il est actuellement 05h52.


 
 
 
 
Partenaires

Hébergement Web