Reconnaître l'extension d'un fichier à son ouverture

[Boby94]

Bonjour à tous,

Est-il possible de reconnaitre l'extension d'un fichier à son ouverture?

J'ouvre une boite de dialogue ouverture fichier avec filtre *.txt et *.xls (jusqu'ici pas de problème). En fonction de l'extension du fichier ouvert, je voudrai lancer une macro spécifique pour chaque extension.

Je suis sur qu'il n'y pas de grande difficulté mais là, je sèche .

Je vous remercie d'avance.

 

[pierrejean]

Re : Reconnaître l'extension d'un fichier à son ouverture

bonjour Boby94

A tester juste apres l'ouverture du fichier

If Right(ActiveWorkbook.Name, 3) = "xls" Then
 'macro1
Else
 'macro2
End If

 

[Boby94]

Re : Reconnaître l'extension d'un fichier à son ouverture

bonjour Boby94

A tester juste apres l'ouverture du fichier

If Right(ActiveWorkbook.Name, 3) = "xls" Then
 'macro1
Else
 'macro2
End If

Merci beaucoup pierrejean, ca marche très bien.
Pourquoi n'y ai-je pas pensé 😛, c'était très simple.