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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Reduire une chaine de caractere en VBA

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Reduire une chaine de caractere en VBA

n°1317748
misteroliv​ier
Posté le 03-03-2006 à 08:43:43  profilanswer
 

Bonjour,
 
Je developpe actuellement un petit soft en VBA sous Excel, j'importe des fichiers en utilisant la fonction GetOpenFileName qui renvoi le chemin complet avec le nom de mon fichier dans une variable déclarée en Variant.
Ca c'est bon, j'obtiens donc ma valeur sous le style c:\excel\essai.txt.
 
Mon problème est que j'ai besoin de récupérer dans cette valeur juste le nom de mon fichier sans l'extention juste " essai ".
 
Comment je peux faire?
 
Merci pour vos réponses.
Olivier

mood
Publicité
Posté le 03-03-2006 à 08:43:43  profilanswer
 

n°1317749
chailloug
où est passé mon temps libre ?
Posté le 03-03-2006 à 09:08:18  profilanswer
 

postes plus tôt içi : http://forum.hardware.fr/hardwaref [...] ujet-1.htm c'est eux les pros du vb.

n°1318191
Epena
Posté le 03-03-2006 à 21:49:20  profilanswer
 

Bonjour,
 
on peut essayer cette fonction qui malheureusement ne fonctionne pas si il existe plusieurs "." dans le nom de dossier.
 
Sub tester()
    Dim NomFichierSansExtension As String
    NomFichierSansExtension = InfosNomFichier("c:\excel\essai.txt", 4)
End Sub
 
Public Function InfosNomFichier(fichier, Contexte)
    While InStr(pos + 1, fichier, "\" ) <> 0
        pos = InStr(pos + 1, fichier, "\" )
    Wend
    Select Case Contexte
        Case 3
            InfosNomFichier = Mid(fichier, pos + 1)     'nom du fichier sans chemin  
       Case 4
            NomFichier = Mid(fichier, pos + 1)      'nom du fichier sans extension
            InfosNomFichier = Left(NomFichier, InStr(NomFichier, "." ) - 1)
        Case 5
            InfosNomFichier = Left(fichier, pos)    'chemin
        Case Else
    End Select
End Function
 
Cordialement
Epena


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

  Reduire une chaine de caractere en VBA

 

Sujets relatifs
Reduire une chaine de caractere en VBA[javascript] Impossible de réduire la taille d'un popup
VBA - ACCESS Fichier texte de plus de 20 000 lignes[VBA] Compatibilité Office 10 & 11
Compter le nombre de caractère d'une ligne d'un fichierdéclaration chaine de caractères ???
Identifier le type d'un caractere (majuscule, minuscule; nombre...) 
Plus de sujets relatifs à : Reduire une chaine de caractere en VBA


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