Récuperer le nom du fichier ouvert

Récuperer le nom du fichier ouvert - VB/VBA/VBS - Programmation

Marsh Posté le 28-10-2008 à 16:28:02    

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"
Reply

Marsh Posté le 28-10-2008 à 16:28:02   

Reply

Marsh Posté le 28-10-2008 à 17:00:46    

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

Message cité 1 fois
Reply

Marsh Posté le 28-10-2008 à 17:13:36    

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"
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed