VBA Excel récuperer nom de fichier via URL

Version imprimable

Bonjour à tous !

j'aurai besoin d'un coup de main,
en fait je voudrais récupérer le nom d'un fichier de type .xls qui se trouve dans un serveur...

J'ai d'abord testé en local et cela marche parfaitement :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub test2()
 
Dim oFSO As Scripting.FileSystemObject
Dim oFl As Scripting.File
Dim strChemin As String
Set oFSO = New Scripting.FileSystemObject
 
 
strChemin = "D:\test\file.xls"
 
If oFSO.FileExists(strChemin) Then
    Set oFl = oFSO.GetFile(strChemin)
    MsgBox oFSO.GetBaseName(strChemin)
    MsgBox oFSO.GetFileName(strChemin)
    MsgBox oFSO.GetExtensionName(strChemin)
 
End If
 
End Sub

Par contre, le fichier que je veux récupérer se trouve sous :
https://123456.com/dossier1/dossier2/file.xls

j'ai testé ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub test2()
 
Dim oFSO As Scripting.FileSystemObject
Dim oFl As Scripting.File
Dim strChemin As String
Set oFSO = New Scripting.FileSystemObject
 
 
strChemin = "https://123456.com/dossier1/dossier2/file.xls"
 
If oFSO.FileExists(strChemin) Then
    Set oFl = oFSO.GetFile(strChemin)
    MsgBox oFSO.GetBaseName(strChemin)
    MsgBox oFSO.GetFileName(strChemin)
    MsgBox oFSO.GetExtensionName(strChemin)
 
End If
 
End Sub

mais cela ne marche pas un petit coup de main ?

Merci !

Bonjour,

pas besoin de FSO !
Code:

1 2 3 4 5 6 7 8 Sub Demo4Noob() Chemin$ = "https://123456.com/dossier1/dossier2/file.xls" E& = InStrRev(Chemin, ".") P& = InStrRev(Chemin, "/") MsgBox Left(Chemin, P) & vbLf & Mid(Chemin, P + 1) & vbLf & _ Mid(Chemin, P + 1, E - P - 1) & vbLf & Mid(Chemin, E) End Sub
__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

29/10/2013, 15h26
FrenchyBoss

Merci !! Ca marche !

Pour s'affranchir de FSO dans les deux cas :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Private Type FileInfoType
    Base As String
     Ext As String
    Name As String
    Path As String
End Type
 
 
Private Function FileInfo(SOURCE$) As FileInfoType
    E& = InStrRev(SOURCE, ".")
    P& = InStrRev(SOURCE, IIf(InStr(SOURCE, "/"), "/", "\"))
 
    If E * P And E > P + 1 Then
        FileInfo.Base = Mid$(SOURCE, P + 1, E - P - 1)
         FileInfo.Ext = Mid$(SOURCE, E)
        FileInfo.Name = Mid$(SOURCE, P + 1)
        FileInfo.Path = Left$(SOURCE, P)
    End If
End Function
 
 
Sub Demo1()
    Dim INFO As FileInfoType
    CHEMIN$ = "D:\test\file.xls"
 
    If Dir(CHEMIN) > "" Then
        INFO = FileInfo(CHEMIN)
        MsgBox INFO.Path & vbLf & INFO.Name & vbLf & INFO.Base & vbLf & INFO.Ext
 
    Else
        MsgBox "Pas trouvé  " & CHEMIN & "  !"
    End If
End Sub
 
 
Sub Demo2()
    Dim INFO As FileInfoType
    CHEMIN$ = "https://123456.com/dossier1/dossier2/file.xls"
       INFO = FileInfo(CHEMIN)
    MsgBox INFO.Path & vbLf & INFO.Name & vbLf & INFO.Base & vbLf & INFO.Ext
End Sub

__________________________________________________________________________________________

Merci de cliquer sur :plusser: si ce message aide …

__________________________________________________________________________________________
La connaissance, c'est comme la confiture, moins on en a plus on l'étale !