Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
652 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Afficher le nom d'un fichier sans chemin d'acces ni extension

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Afficher le nom d'un fichier sans chemin d'acces ni extension

n°1369264
moebius80
Posté le 17-05-2006 à 23:28:43  profilanswer
 

Bonjour à tous,
 
Je réalise une macro en vba et je cherche à lister les fichiers présent dans un dossier. je souhaite que seul le nom du fichier s'affiche (sans chemin d'acces ni extension)...comment puis-je faire ? voilà mes lignes de code :
 
Set fs = Application.FileSearch
With fs
    .LookIn = "C:\Offres MSA\Images"
    .FileName = "*.jpg"
    If .Execute(SortBy:=msoSortByFileName, _
            SortOrder:=msoSortOrderAscending) > 0 Then
       
        For i = 1 To .FoundFiles.Count
            ComboBox2.AddItem FoundFiles.Item(i)                      *********ceci m'affiche le nom du fichier avec chemin et extension, ce que je ne
        Next i                                                                                        veux pas********
    Else
        MsgBox "There were no files found."
    End If
End With
 
 
Merci d'avance
 
A+

mood
Publicité
Posté le 17-05-2006 à 23:28:43  profilanswer
 

n°1369290
kiki29
Posté le 18-05-2006 à 00:17:10  profilanswer
 
n°1369315
moebius80
Posté le 18-05-2006 à 06:44:29  profilanswer
 

Merci pour ta réponse mais cela ne répond pas à ma question car je suis sous Word (j'ai oublié de préciser)....
Apparemment, foundfiles ne peut pas renvoyer uniquement un nom de fichier....
comment faire ? (le but de la macro étant de récuperer dans une combobox tous les noms de fichiers  (et uniquement les noms, sans les chemins) d'un dossier.
 
Je n'ai pas de très grande connaissances en vba...quelqu'un a t-il une solution ???


Message édité par moebius80 le 18-05-2006 à 08:09:38
n°1369326
kiki29
Posté le 18-05-2006 à 08:26:05  profilanswer
 

et alors Word comme Excel se programme en VBA

n°1369563
kiki29
Posté le 18-05-2006 à 13:00:15  profilanswer
 

Bestialement qqch comme ceci
 
Dim NomFichier As String, NomFichierSansExtension As String
Dim Dossier As String
Dim NbFichiers As Integer, Pos As Integer
Dim Tableau() As String
Dim i As Integer
    ' Dossier de test
    Dossier = "C:\Transfert\*.*"
    NomFichier = Dir(Dossier)
     
    Erase Tableau
    NbFichiers = 0
    Do While Len(NomFichier) > 0
        NbFichiers = NbFichiers + 1
        ReDim Preserve Tableau(1 To NbFichiers)
        Pos = InStr(1, NomFichier, ".", 1)
        NomFichierSansExtension = Left(NomFichier, Pos - 1)
        Tableau(NbFichiers) = NomFichierSansExtension
        NomFichier = Dir()
    Loop
         
    For i = 1 To UBound(Tableau)
           ......
    Next

n°1370024
moebius80
Posté le 18-05-2006 à 21:15:44  profilanswer
 

Merci beaucoup !!!!!
 
C'est exactement ce que je voulais....
SUPER !!!


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Afficher le nom d'un fichier sans chemin d'acces ni extension

 

Sujets relatifs
exporter un fichier csv vers une table sqlrechercher, et faire quelquechose avec le fichier trouvé après...
Generation d'un fichier cab sous Visual Studio 2005[MySQL] Importer des données venant d'un fichier texte.
[VB]Enregistrer le résultat d'une requête dans un fichier txtcommande qui place automatiquement à un endroit (démarrage) un fichier
conversion hexa ascii pour écrire dans un fichier [RESOLU]probleme de lecture/ecriture dans un fichier excel
Récupérer une chaîne de caractère dans un fichierComment ajouter un élément à un fichier typé
Plus de sujets relatifs à : Afficher le nom d'un fichier sans chemin d'acces ni extension


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR