Tester l'extension du fichier

[jarod1990]

Bonjour, je voudrais tester l'extension du fichier que j'ouvre avec

nomfichierentree = Application.GetOpenFilename()​

pour déterminer si c'est un document Word ou un document Excel.
Vous avez une idée ?
Cordialement.
Jarod

 

[Guest]

Re : Tester l'extension du fichier

Bonjour Jarod,

Si tu es sûr qu'il n'y a qu'un seul . (poin) dans le nom de tes fichiers:

Extension= split(nomfichierentree ,".")(1)

Sinon tu peux utiliser ceci

Function TypeFichier(NomFichier As String) As String
   Dim t
   t = Split(NomFichier, ".")
   Select Case Left(t(UBound(t)),3)
      Case "xls": TypeFichier = "Excel"
      Case "doc": TypeFichier = "Worde"
   End Select
End Function

A+

 

[jarod1990]

Re : Tester l'extension du fichier

Je ne parviens pas à utiliser ce code, tu veux bien me mettre un exemple dans un doc excel ?
Cordialement.
Jarod

 

[skoobi]

Re : Tester l'extension du fichier

Bonjour Jarod1990,
en l'absence de Hasco, que je salue bien bas 😀, il s'agit d'une fonction VBA à exploiter par exemple comme ceci dans ton code:

nomfichierentree = Application.GetOpenFilename()
If TypeFichier(nomfichierentree) = "Excel" Then
......
ElseIf TypeFichier(nomfichierentree) = "Word" Then
......
End If

Function TypeFichier(NomFichier As String) As String
   Dim t
   t = Split(NomFichier, ".")
   Select Case Left(t(UBound(t)), 3)
      Case "xls": TypeFichier = "Excel"
      Case "doc": TypeFichier = "Word"
   End Select
End Function

 

[jarod1990]

Re : Tester l'extension du fichier

Bonsoir et merci de ta réponse mais voici l'erreur qui arrive:

type d'argument byref incompatible!​

Que faire ?
Cordialement.
Jarod

 

[skoobi]

Re : Tester l'extension du fichier

Ajoute ceci dans la fonction:

Function TypeFichier([B][COLOR=Blue]ByVal [/COLOR][/B]NomFichier As String) As String

 

[Catrice]

Re : Tester l'extension du fichier

Bonsoir à tous,

Je propose également ceci :

Sub Test()
nomfichierentree = Application.GetOpenFilename()
Select Case Right(nomfichierentree, 3)
Case "xls": MsgBox "Document Excel"
Case "doc": MsgBox "Document Word"
Case Else: MsgBox "Ni Word, ni Excel"
End Select
End Sub