Dim sChemin As String Dim Liste() As String sChemin = "c:\users\toto\desktop\fichier.txt" 'exemple d'un chemin complet Liste = Split(sChemin, "") MsgBox Liste(UBound(Liste) - 1)
OpenFileDialog1.ShowDialog() Dim Liste As New ListBox Liste.Items.Clear() For Each Rep In Split(OpenFileDialog1.FileName, "") Liste.Items.Add(Rep) Next MessageBox.Show(Liste.Items.Item(Liste.Items.Count - 2))
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionsChemin = Application.GetOpenFilename(, , , , True) ' C:\Temp répertoire = Mid(sChemin, 1, InStrRev(sChemin, "") - 1) répertoire = Mid(répertoire, 4, InStrRev(répertoire, "") + 2) msgbox répertoire
Dim ouvrir As Variant Dim sChemin As String ouvrir = Application.GetOpenFilename(, , , , True) ' C:\Temp sChemin = ouvrir(1) MsgBox sChemin répertoire = Mid(sChemin, 1, InStrRev(sChemin, "") - 1) MsgBox répertoire répertoire = Mid(répertoire, InStrRev(répertoire, "cas"), 50) MsgBox répertoire
Le classeur Macros personnelles dans le dossier de démarrage doit être ouvert pendant l'enregistrement
Enregistrement impossible