Discussion :

[humbp]

Bonjour,

Je souhaite afficher, par le biais d'une macro, le type de fichier pointé par un lien hypertexte. Le chemin complet du ficher est déclaré dans la variable "Fichier". Qqun connait une fonction particulière permettant de résoudre mon problème?

Merci d'avance

[laloune]

Je ferais un truc du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub ExtraireExtension()
 
  Dim strType As String, strFichier As String
 
  strFichier="http://site.tonsite.fr/test.htm"
  strType=Right(Fichier, InStr(1, StrReverse(Fichier), ".") - 1)
 
  Debug.Print strType
 
End Sub

normalement ca fonctionne, à toi d'adapter