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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Récuperer le nom du fichier ouvert

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Récuperer le nom du fichier ouvert

n°1805570
jaco75010
Posté le 28-10-2008 à 16:28:02  profilanswer
 

Bonjour à tous,
 
Je suis sous Excel.
 
Alors voilà, je dois ouvrir un fichier  csv afin de le traire. Ca y  a pas de proble.
 
La chose que je n'arrive pas à faire c'est recuperer le nom du fichier ouvert.  
 
J'arrive uniquement à recuperer le chemin d'accès et le chemins d'accès plus le nom du fichier...
 
En gros si j'ouvre jaco.csv, je voudrais pouvoir stocker ce nom dans une variable.
 
 

Code :
  1. Dim fd As FileDialog
  2. Set fd = Application.FileDialog(msoFileDialogFilePicker)
  3. With fd
  4.     .AllowMultiSelect = False
  5.     .Filters.Clear
  6.     .Filters.Add "Fichiers CSV", "*.csv"
  7.     If .Show = -1 Then
  8.         nom_fichier = .SelectedItems(1) 'Là je recupere le chemin d'accès + le nom du fichier
  9.         chemin = .InitialFileName ' là juste le chemin d'accès.
  10.     End If
  11.    End With


 
Je n'arrive pas à trouver une quelconque fonction qui me permettrait de faire ça...
 
 
Si vous avez de l'aider à m'apporter la dessus: Milles Merci.


---------------
"Nos vies sont grillées, comme la gaule dans un survet lotto"
mood
Publicité
Posté le 28-10-2008 à 16:28:02  profilanswer
 

n°1805588
seniorpapo​u
Posté le 28-10-2008 à 17:00:46  profilanswer
 

Bonsoir,
Sub extttt()
a = "azerty"
b = "azertyuiop"
 
uiop = Mid$(b, Len(a))
End Sub
 
Cordialement

n°1805592
jaco75010
Posté le 28-10-2008 à 17:13:36  profilanswer
 

seniorpapou a écrit :

Bonsoir,
Sub extttt()
a = "azerty"
b = "azertyuiop"
 
uiop = Mid$(b, Len(a))
End Sub
 
Cordialement


 
Ca marche nickel merci beaucoup. :hello:


---------------
"Nos vies sont grillées, comme la gaule dans un survet lotto"

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

  Récuperer le nom du fichier ouvert

 

Sujets relatifs
Verifier la date de modification d'un fichier[PHP] Récupérer fichier CSV à partir d'une adresse puis copie serveur
suppression de dossiers avec fichier txt en paramètreIHM générée depuis un XSD pour éditer un fichier XML
telecharger un fichier protege par htaccess[SQL] Lier la récupération d'infos de 2 tables
renvoyer le resultat d un .bat dans fichier txt puis l ouvrirrenvoyer un resultat .bat dans fichier .txt puis l ouvrir
Cmd pour tester si un fichier est utilisé .... 
Plus de sujets relatifs à : Récuperer le nom du fichier ouvert


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