[VBA-W] Ajouter les extensions des fichiers [Résolu]

[dev81]

Bonjour,
Je souhaiterais si possible activer l'option de windows d'afficher les extensions des fichiers, en VBA.
Merci pour vos réponses.

[ouskel'n'or]

Tu peux développer ? Naturellement, quand tu listes les fichiers, l'extension s'y trouve, sauf si tu demandes qu'elle n'y soit pas...

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Sub ConnaîtreLextension()
Dim LeFich As Variant
Dim CL As Workbook
    With Application.FileSearch
        .NewSearch
        .LookIn = "D:\xls\"
        .Execute
        For Each LeFich In .FoundFiles
            MsgBox Right(LeFich, 4)
        Next
    End With
End Sub

[Speedrman]

Salut,

normalement ça devrait marcher, sinon tu devrais pouvoir retrouver la clé avec son nom

Code :

1
2
3
4
System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", _
  "HideFileExt") = "0"
'="0" pour afficher
'="1" pour masquer

[dev81]

Voila, actuellement tous mes fichiers ne s'affiche pas avec l'extension (xls,ppt,doc...).Hors lorsque je veux ouvrir un fichier je me base sur son extension, pour l'ouvrir avec le bon programme.
Et je ne peux pas laisser l'option cocher dans windows car d'autres logiciels me demande de l'enlever.

[dev81]

Merci speedrman ca marche parfait